=============================原本的寫法=============================
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

五天通常還學不會 & 接字串 :|