Question

如何设置EXCEL表格中的某2列，不允许录入重复的数据

同时满足2列都不能重复！各位高手帮忙解救一下~~先谢过！！

Answer 1

数据有效性能帮助你解决这问题：
选择A列，菜单－数据－数据有效性，“允许”选择“自定义”，然后在“公式”框内输入如下公式：=COUNTIF($A:$A,A1)=1
B列同样如此操作，公式：=COUNTIF($B:$B,B1)=1

如果A列输入的数据，B列也不能输入同样的数据，那么
同时选择A、B列数据，菜单－数据－数据有效性，“允许”选择“自定义”，然后在“公式”框内输入如下公式：=COUNTIF($A:$B,A1)=1

Answer 2

有这么麻烦吗？数据有效性就能解决吧
假设A B两列 不允许输入重复数据
数据-数据有效性-自定义 输入公式 =COUNTIF($A:$B,A1)=1
出错警告-错误信息输入 数据重复，请检查~！！
确定

Answer 3

楼上的代码为什么我放到SHEET1中做时出现死循环呢？难道是没有SHEET4的原因？
我改一下吧，在SHEET1的A、B两列不能重复录入数据。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
With Target
If .Column > 2 Then Exit Sub
End If
If WorksheetFunction.CountIf(Sheet1.Range("A:B"), .Value) > 1 Then
.Value = ""
MsgBox "不能输入重复的数据！请查实后重新输入！"
END IF
End With
End Sub

Answer 4

需要加宏，打开宏编辑器，到指定表格
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Dim i As Integer
Dim myStr As String
With Target
If .Column <> 2 Or .Count > 1 Then Exit Sub
If WorksheetFunction.CountIf(Sheet4.Range("B:B"), .Value) > 1 Then
.Value = ""
MsgBox "不能输入重复的数据！请查实后重新输入！", 64
Exit Sub
End If
End With
End Sub

Answer 5

我也觉得 prophet_BD说得没错，只能用VBA实现！不过VBA本人不是很熟，你上EH论坛的VBA专栏问一下吧，一定会有你满意的答案