- 帖子
- 2842
- 主題
- 10
- 精華
- 0
- 積分
- 2898
- 點名
- 0
- 作業系統
- 〔略〕
- 軟體版本
- 〔略〕
- 閱讀權限
- 100
- 性別
- 男
- 來自
- 〔略〕
- 註冊時間
- 2013-5-13
- 最後登錄
- 2025-4-28
|
Sub 填色()
Dim xR As Range, T, N%, C
C = Array(36, 35) '兩種顏色輪換
For Each xR In Range([A4], [A65536].End(xlUp))
If xR.Row < 4 Then Exit Sub '沒有資料，跳出
If xR <> T Then N = 1 - N: T = xR
xR.Resize(1, 13).Interior.ColorIndex = C(N)
Next
End Sub |
|
發表於 2015-10-28 14:35
| 