一段Excel宏

有人让我帮他做一个录入人名过程中提示重复的程序，因为他有一大批人名要录入，而且人名来源途径不一样，要找人一个一个录入，出现相同姓名便提醒标记一下。最后给他用Excel宏实现了这一简单功能：

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo errorHandler1

rangeStr = "A1:A" + CStr(Target.Cells(1, 1).Row() - 1)

result = Application.WorksheetFunction.Match(Target.Cells(1, 1).Value, Range(rangeStr), 0)
If result > 0 Then
MsgBox ("重复：" + Target.Cells(1, 1).Value + CStr(Count))
Target.Activate
End If
Exit Sub
errorHandler1:
'do nothing
Exit Sub
End Sub