vba查重填充颜色

我做了一个，没办法发给你

Sub xx()  m = ActiveSUsedRItem(ActiveSUsedRCount)Row  n = ActiveSUsedRItem(ActiveSUsedRCount)Column  For i = 12 To n    If Cells(1, i) <> "" Then      For j = 2 To 11        If Cells(1, j) = Cells(1, i) Then Exit For      Next      For k = 2 To m        If Cells(k, i) <> "" And Cells(k, i) = Cells(k, j) Then Cells(k, i)IColorIndex = 3      Next    End If  NextEnd Sub

'写了这段代码，你应该能看懂Sub color_by_zzllrr    For i=4 To 12        For j=1 To 10            IF Cells(i,12+j*2)=Cells(i,j+1) Then                Cells(i,12+j*2)FColor=vbRed            End IF        Next j    Next iEnd Sub