Excel找出两列相同值的VBA宏代码
发布时间：2022-06-29 01:03:42
标签：Excel找出两列相同值的VBA宏代码
以下的宏代码，其功能是，找到AB两列相同值，并存放到C列。
Sub MySubSearch()
Dim i As Integer
Dim c As Range
For i = 2 To Sheet1.[B65536].End(xlUp).Row
For Each c In Sheet1.Range("A2:A" & Sheet1.[A65536].End(xlUp).Row)
If Cells(i, 2).Value = c Then Cells(i, 2).Font.ColorIndex = 3
Next c
If Cells(i, 2).Font.ColorIndex = 3 Then _
Cells(Sheet1.[C65536].End(xlUp).Row + 1, 3).Value = Cells(i, 2).Value
Next i
MsgBox "所有重复编号已经找出，请查看结果!"
End Sub
0
投稿猜你喜欢
我们在使用电脑的时候，发现电脑桌面非常的散乱，而有些用户就会使用小智桌面。但是最近不少用户在使用的时候发现程序总是出现闪退崩溃的情况，遇到这- 在Windows 11上，截图工具应用包括创建屏幕录像的功能。该功能非常基本，但它包含生成整个桌面或应用程序的录制会话的基本工具，您可以随后
- 发现Windows任务管理器中有Tor.exe进程？它为什么在运行？会是病毒吗？带着疑问来了解下Tor.exe是什么进程！历及作用Tor.e
- Win10系统安装补丁后，需要重新启动系统才能生效。重启系统时会对系统进行配置，这可能会花费一些时间，但是一般也就几分钟。如果Win10安装
- 360驱动大师是一款专业解决驱动安装更新软件，有用户在使用360驱动大师的时候，发现弹窗非常烦人就想添加弹窗过滤，但是不清楚该怎么操作，下面
- 利用Excel进行数据的统计的时候，相信大家都有用过进行过各类的求和操作。比如在进行单个条件求和的时候用的sumif函数，多个条件求和操作的
- 尽管现在给电脑重装系统的方法有很多，但最方便且最快速的方法还是U盘装机法。不过要使用U盘装机，就必须得有U盘启动盘，而如果没有U盘启动盘的话
- 在使用计算机时，可能会遇到某些情况下无法使用win102004快捷键的情况。小编认为我们可以先用清洁启动来解决问题等等。让我们看看小编是怎么
- 近期有部分Win10用户想要关闭Windouw安全中心，但是不知道具体应该如何操作，针对这一情况，今天小编就为大家带来Win10关闭系统安全
- 小伙伴们，你们是怎么让电脑进行休眠的呢？用快捷键还是手动操作？小编这儿有种用快捷方式就能让电脑处于休眠的状态的方法哟~小伙伴们快和小编一起去
- 在word中使用下拉列表菜单会比较少，但在word中确实提供一个这样功能，例如在同一份表格中只需要改变一点内容可选性内容就可以适用不同的人使
- Excel是一个办公很经常用到的一个办公软件，他主要用于数据的分析、查看、对比等，让数据看起来更直观，更容易对比，而有很多时候需要制作财务报
- 软件调试的目的是：改正错误。软件调试的概念软件调试是泛指重现软件缺陷问题,定位和 查找问题根源,最终解决问题的过程。 软件调试通常有如下两种
- 不少用户反应Win11玩游戏突然没有声音怎么办？本文就为大家带来了Win11玩游戏突然没有声音两种解决方法，需要的朋友一起看看吧近期有部分W
- 正在使用WinXP系统的用户如果发现自己的电脑没有声音，就会安装一个声卡驱动，没有声卡驱动，再好的喇叭也是没有用的，但是怎么安装呢？小编带你
- 我们在使用电脑的时候，电脑右下角的音量是电脑中很重要的一个设置，发现电脑上右下端的声音小图标不见了，给调节声音大小带来诸多不便，怎么也找不出
- 电脑是我们目前使用最多的工具，而win10系统又是目前使用用户最多的操作系统。很多还没有升级win10的用户就想要试一试，那么我们如何升级w
- 用户可以通过借用另一个PPT幻灯片中的配色方案节省重新设置配色方案的时间，从而提高工作效率。本文图文详解借用另一个PPT幻灯片中的配色方案的
- 可能：你的word页面设置里右页边距＞左页边距解决方法：文件→页面设置→将左右页边距设成一样的就可以了最笨但最好用的方法：复制这个表格，新建
- 复制黏贴功能是我们经常使用的，但如果这两个菜单都用不了，那会怎么样呢?这会让我们很麻烦的，都是缺一不可，少了谁都不可以，下面的任务就很难完成
