=============================原本的写法=============================
Sub tghh()
Range("A2").Characters(Range("D2"), Range("E2")).Font.ColorIndex = 3
Range("A3").Characters(Range("D3"), Range("E3")).Font.ColorIndex = 3
Range("A4").Characters(Range("D4"), Range("E4")).Font.ColorIndex = 3
Range("A5").Characters(Range("D5"), Range("E5")).Font.ColorIndex = 3
Range("A6").Characters(Range("D6"), Range("E6")).Font.ColorIndex = 3
Range("A7").Characters(Range("D7"), Range("E7")).Font.ColorIndex = 3
Range("A8").Characters(Range("D8"), Range("E8")).Font.ColorIndex = 3
End Sub
===================For Next的版本无法执行====================
Sub tghh()
For I = 2 To 10 Step 1
Range("A" & I).Characters(Range("D" & I), Range("E" & I)).Font.ColorIndex = 3
Next I
End Sub

不要拼字串了 cells(r, c)不是简单有效

我可以执行说0,0 是否有原档另外一件事,a栏一定得用文字型态喔,数字就算改了颜色也会被自动修正成黑色就算是格式改成文字也没用喔,一定要在数字前面加上 '号http://imgur.com/a/pBMtZ

我的 D栏 有非数字符号 所以无法执行 感谢W大大

那可能要用分辨是否为文字的方式 如果是文字 则会跳过该行是数字就做下去 不过我忘了那个函数-m-

cells(r, c)好用太多 但录制宏不会这样显示Range("A10") =Me.cells(10,1) 可以直接用变量花时间学会不烦恼

改成以上高手提供方法.我刚学不到5天XD

5天可以这样 感觉颇有天分=,= 看来我不是学这个的料XD

五天通常还学不会 & 接字串 :|