快速用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的