1F
数据需在工作薄中第一个表，数据从A1开始，且数据列中无空白单元格.Subtest()i=1DoUntilSheets(1).Cells(i,1)=""svalue=Cells(i,1).ValueIfsvalue>10Andsvalue<20ThenSheets(1).Cells(i,1).Interior.ColorIndex=3ElseIfsvalue>20Andsvalue<100ThenSheets(1).Cells(i,1).Interior.ColorIndex=5EndIfi=i+1LoopEndSub建议关掉无关的表，然后复制到代码窗口后按F5运行都不会？？我以为你有点基础了。。。。。。怎么进代码窗口知道吧。ALT+F11
