怎样使用VBA双列不允许输入重复值?

1、首先在开发工具中打开VBA编辑器

2、在单元格区域当中输入一些内容作为例子

3、在VBA编辑器中插入模块

4、在模块当中输入如下代码，然后运行

Private Sub Worksheet_Change(ByVal Target As Range)

 

With Target

 

    If .Count=1 And (.Column=3 Or .Column=6) Then

 

                          '如果一次仅在单个单元格输入且当前列为3或者6

 

    If WorksheetFunction.CountIf(Columns(3), .Value)+

 

            WorksheetFunction.CountIf(Columns(6), .Value) > 1 Then

 

    MsgBox "数据重复，请检查后再输入！", 64, "提示"

 

    .ClearContents

 

    End If

 

    End If

 

    End With

 

End Sub

5、在单元格F6输入已存在的学号025，系统立即提示数据重复，同时清除输入的数据