A1,B1,C1
A2,B2,B2
...
A30,B30,C30
A40,B40,B40
A列输入名字，B列输入电话，C列用来提示功能
怎么在C列写函数提示B列中有重复的电话呢？
请高手帮我写一个函数实现提示；
（分数我先给50分，后面加，怕百度吃我分）
最好能在C列中直接提示和那行重复，谢谢
右键单击任意工作表标签，选择“查看代码”，在左侧双击“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 = ""
End Sub
如果在使用的时候提示你不能运行宏，可以在Excel主菜单“工具”-“宏”-“安全性”中选择“中”或“低”安全级别。
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 = ""
End Sub
如果在使用的时候提示你不能运行宏，可以在Excel主菜单“工具”-“宏”-“安全性”中选择“中”或“低”安全级别。
温馨提示：答案为网友推荐，仅供参考
第1个回答 2008-12-23
c1不用判断，
c2输入=if(countif(b$1:b1,b2),match(b2,b$1:b1,0)&"行已有该号码","")
拖
c2输入=if(countif(b$1:b1,b2),match(b2,b$1:b1,0)&"行已有该号码","")
拖
第2个回答 2008-12-23
方法一：C1里输入 =IF(COUNTIF(B:B,B1)>1,"重复行","") ，公式下托，它会在两个重复值后都提示“重复行”；
方法二：如果你装有excel2007，那就更方便，直接选中B列，选择条件格式里的“重复值”，选择一个颜色，当你输入有重复值时，这两个值都会显示 颜色，很方便修改的。
祝你成功！
方法二：如果你装有excel2007，那就更方便，直接选中B列，选择条件格式里的“重复值”，选择一个颜色，当你输入有重复值时，这两个值都会显示 颜色，很方便修改的。
祝你成功！
第3个回答 2008-12-23
C2中输入:=IF(COUNTIF(B:B,B2)>1,"重复","")我是刚刚学的
