- 帖子
- 549
- 主題
- 152
- 精華
- 0
- 積分
- 691
- 點名
- 0
- 作業系統
- WIN7
- 軟體版本
- OFFICE 2010
- 閱讀權限
- 50
- 性別
- 男
- 註冊時間
- 2013-8-10
- 最後登錄
- 2022-9-7
 
|
2#
發表於 2014-11-23 12:59
| 只看該作者
本帖最後由 PKKO 於 2014-11-23 13:08 編輯
回復 1# s13983037
此巨集假設你是在sheets(1)下面操作,如果不是就在range前面加上 sheets(1).
試試看- Sub test()
- For i = 1 To Range("A65536").End(xlUp).Row
- With Cells(i, 1)
- For j = 1 To Range("C65536").End(xlUp).Row
- If .Value = Cells(j, 3) Then
- .Interior.ColorIndex = 6 '是的話黃色
- Exit For '是就離開比對
- Else
- .Interior.ColorIndex = 2 '不是的話白色
- End If
- Next
- End With
- Next
- End Sub
複製代碼 interior font HTML bgcolor= Red< Green Blue Color
Black [Color 1] #000000 #000000 0 0 0 [Black]
White [Color 2] #FFFFFF #FFFFFF 255 255 255 [White]
Red [Color 3] #FF0000 #FF0000 255 0 0 [Red]
Green [Color 4] #00FF00 #00FF00 0 255 0 [Green]
Blue [Color 5] #0000FF #0000FF 0 0 255 [Blue]
Yellow [Color 6] #FFFF00 #FFFF00 255 255 0 [Yellow]
Magenta [Color 7] #FF00FF #FF00FF 255 0 255 [Magenta]
Cyan [Color 8] #00FFFF #00FFFF 0 255 255 [Cyan] |
|