Excel vba如何使用宏實現：判斷A列數據是否重復，如果重復，在B列顯示重復，如果不重復，則在

Dim myBoo As Boolean

myBoo = True

Dim I As Long, C As Long

C = Application.WorksheetFunction.CountA(Range("A:A"))

For I = 1 To C

If Range("B" & I).Value <> Application.WorksheetFunction.VLookup(Range("A" & I).Value, Range("A:B"), 2, 0) Then myBoo = False: Exit For

Next

If myBoo Then

MsgBox "正常"

Else

MsgBox "異常"

End If