Excl两列数据对比用VBA实现，如：A列的数据是否在B列出现过

快速用A的数据在B列里面匹配是否存在，存在就标起来

首先启动excl的宏插件

先声明一个按钮，单击事件

Private Sub CommandButton1_Click()

'获取a列的数据一共有多少条
a = Range("A65536").End(3).Row

'获取B列的数据一共有多少条
b = Range("B65536").End(3).Row

'开始循环 i = 2 表示从第二行开始，一般第一行是表头，不计算在内
'To a 从第二行开始，到a（总数）结束

For i = 2 To a

    '选择a列第二行的内容 Cells参数：第几行，第几列 i = 当前行，1 = A列。
    a_content = Cells(i, 1).Value
    
    '在开始循环b列的数据
    For j = 2 To b

        '获取内容
        b_content = Cells(j, 2).Value
        
        '开始判断，A列的内容是否在B列里面出现过
        If a_content = b_content  Then

           '如果存在，那就将它的单元格添加颜色
            Cells(i, 1).Interior.Color = 65535

           '然后跳出循环开始匹配下一个
           exit for

        End If

    Next


    
Next

End Sub

完成之后，只需点击按钮，执行了点击事件之后，自动运行代码。实现需求。A列张三在B列里面存在，则 A列的张三标黄。

 

欢迎有大佬一起交流探讨excl技术。感兴趣的可以留言，我每天都会看csdn的