急!!!如何在同一个excle的不同工作表内防止输入重复的号码

右键单击任意工作表标签，选择“查看代码”，在左侧双击“ThisWorkbook”，在右侧里把下面的代码粘进去就可以了。
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target = "" Then Exit Sub
V = Target.Text
N = 0
For Each W In Sheets
N = N + WorksheetFunction.CountIf(W.UsedRange, V)
Next
If N = 1 Then Exit Sub
Set R = Cells.Find(Target.Text, ActiveCell, xlFormulas, xlWhole, xlByRows, xlNext, False, False)
If R Is Nothing Then Exit Sub
Set W = Sheets(1)
While R.Address = Target.Address And R.Worksheet.Name = Target.Worksheet.Name
Set R = W.Cells.FindNext(R)
If R.Address = Target.Address And R.Worksheet.Name = Target.Worksheet.Name Then Set W = W.Next
Wend
If MsgBox("输入与工作表 " & R.Worksheet.Name & " 的 " & R.Address(False, False) & " 单元格重复。" & vbLf & vbCr & "是否清除？", vbYesNo) = vbYes Then Target = ""