|
Sub 按钮1_Click()
Application.ScreenUpdating = False
arr4 = Sheets("4月").UsedRange
arr5 = Sheets("5月").UsedRange
Set sh = Sheets("5月")
k = IIf(UBound(arr4) < UBound(arr5), UBound(arr4), UBound(arr5))
Dim rng As Range
Set rng = Nothing
For j = 3 To k
For i = 1 To UBound(arr4, 2)
If CStr(arr4(j, i)) <> CStr(arr5(j, i)) Then
If rng Is Nothing Then
Set rng = sh.Cells(j, i)
Else
Set rng = Union(sh.Cells(j, i), rng)
End If
End If
Next i
Next j
For j = k + 1 To UBound(arr5)
Set rng = Union(sh.Rows(j), rng)
Next j
If Not rng Is Nothing Then
rng.Font.ColorIndex = 3
End If
Application.ScreenUpdating = True
End Sub |
|