6,210
社区成员
发帖
与我相关
我的任务
分享
Application.ScreenUpdating = False
l = [B65530].End(xlUp).Row: Columns("C:C").ClearContents
Range("C1:C" & l).FormulaR1C1 = "=MATCH(RC[-1],C[-2],0)"
For i = 1 To l
If Not IsError(Range("C" & i)) Then
With Range("A" & Range("C" & i)).Interior
If .ColorIndex = xlNone Then .ColorIndex = Int(Rnd * 55 + 3)
Range("B" & i).Interior.ColorIndex = .ColorIndex
End With
End If
Next i
Columns("C:C").ClearContents
Application.ScreenUpdating = True