|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
Option Explicit
Sub TEST1()
Dim ar, i&, j&, k&, n&, vNum, p&
With [A1].CurrentRegion
ar = .Resize(, .Columns.Count + 6)
.Interior.Color = xlNone
For i = 2 To UBound(ar)
vNum = ar(i, 6): p = 6
n = 3
For j = 6 To UBound(ar, 2) - 6 Step 6
If ar(i, j + 6) <> vNum Then
n = n + 1
For k = p To j Step 6
If n = 56 Then n = 4
.Cells(i, k).Interior.ColorIndex = n
Next k
vNum = ar(i, j + 6)
p = j + 6
End If
Next j
Next i
End With
Beep
End Sub
|
评分
-
1
查看全部评分
-
|