Excl两列数据对比用VBA实现，如：A列的数据是否在B列出现过 |
您所在的位置：网站首页 › 两列不同的数据 › Excl两列数据对比用VBA实现，如：A列的数据是否在B列出现过 |
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的 |
【本文地址】
今日新闻 |
推荐新闻 |