- 帖子
- 2798
- 主題
- 10
- 精華
- 0
- 積分
- 2854
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2024-4-20
|
Sub TEST()
Dim xR As Range, xH As Range, T$, Cr, c%
[A:A].Font.ColorIndex = 1
Cr = Array(5, 3)
For Each xR In Range([A1], [A65536].End(xlUp))
If xR & "" <> T Then Set xH = xR: T = xR & ""
If xR(2) & "" <> T Then
Range(xH, xR).Font.ColorIndex = Cr(c)
c = (c + 1) Mod 2
End If
Next
End Sub |
|
發表於 2020-12-21 19:59
| 