|
Sub test()
Dim rng As Range
Dim d As Object
Set d = CreateObject("scripting.dictionary")
With Sheet1
r = .Cells(Rows.Count, 2).End(xlUp).Row
ar = .Range("b1:b" & r)
For i = 2 To UBound(ar)
If Trim(ar(i, 1)) <> "" Then
d(Trim(ar(i, 1))) = ""
End If
Next i
rs = .Cells(Rows.Count, 1).End(xlUp).Row
br = .Range("a1:a" & r)
For i = 2 To UBound(br)
If Trim(br(i, 1)) <> "" Then
If d.exists(Trim(br(i, 1))) Then
If rng Is Nothing Then
Set rng = .Range("a" & i)
Else
Set rng = Union(rng, .Range("a" & i))
End If
End If
End If
Next i
End With
If Not rng Is Nothing Then rng.Interior.ColorIndex = 3
End Sub
|
评分
-
1
查看全部评分
-
|