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
投稿猜你喜欢
excel中多图标进度图如何制作呢？跟小编来看看吧1、选中要制作的数据表格，并插入一个二维簇状柱形图表；2、选中红色的柱子，单击鼠标右键，选- 打开wps后，在菜单栏，点击插入，再点击页码按钮。这是我们就会发现已经插入页码了。单击页码就可以对页面的页码进行操作了。点击修改页码，就可以
- Excel2010怎么合并单元格Excel2010用到单元格的情况还是很多的，小编给大家带来了Excel2010合并单元格的方法教程，一起来
- word2010 怎么设置默认字体大小?word设置默认字体格式的方法?ffice2010软件进行了大幅度改版，很多用户都不知道Word20
- 不少朋友都将手机当做了U盘，经常在一些办公Word文档放在手机中，有时候一些室友会发出这样一个疑问，手机是否也可以打开编辑Word文档呢?网
- word怎么去掉箭头图形里的颜色?有时候用word做流程图，但是word里的图形内部都有颜色该怎么去掉呢?那么下面就由学习啦小编为您分享下去
- 我们在Win10系统中，搜索引擎是经常使用到的。常用的搜索引擎有Googel、Baidu、Bing等等。很多小伙伴不习惯使用Bing搜搜引擎
- 在使用Word制作和编辑表格时，可以直接插入Excel电子表格，并且插入的电子表格也具有数据运算等功能。或者粘贴Excel电子表格，表格不具
- 许多小伙伴下载win10系统镜像，想做u盘启动盘，但不知道怎么做。其实我们作为把硬盘视频写成管理员就可以了，今天小编就给大家带来详细的步骤，
- 索引是根据一定需要,把书刊中的主要概念或各种题名摘录下来,标明出处、页码,按一定次序分条排列,以供人查阅的资料。它是图书中重要内容的地址标记
- 1、手机与电脑首先需要安装360手机助手，将手机用USB数据线连接电脑，接着依次打开“手机设置”——“开发者选项”——打开“开启开发者选项”
- 去掉word英文下面红色线的方法如下：1、打开需要去掉红色波浪线的WORD文档，点击左上角的“文件”。2、在左侧导航栏“帮助”中找到并点击“
- 当电脑出现系统故障问题时，进入安全模式就可以解决问题了。但是有win10用户发现自己进入安全模式后电脑黑屏了，只显示鼠标，这是怎么回事？其实
- 最近打开Office总弹出2016专业增强版的激活向导，明明我的是家庭版，不知道为什么总会弹出来，可能是WIN10更新的缘故吧，
- 平常我们总是习惯于在同一个Excel文档中设计大量表格。工作表标签栏一次最多也就显示五六个工作表名称，即不能排序又不支持查找功能。想直接在标
- 在编辑word表格时，有时或许需要进行一些简单的计算。这项工作，你可以使用“表格”菜单中的“公式”命令(Word2003)或者“表格工具”的
- 现在我就以使 用 Word 多年的经验， 谈谈保护 Word 2003文件的方法和措 施。 第一种：windos自带的加密方法，适
- 在应用win10系统的时分，我们都时常会遇到更新的问题，这个更新偶然候非常烦人，那么奈何才能办理这个问题呢，迅速来看看若应用组策略封闭主动更
- 在日常的交往人际关系中,名片是一种常用的工具,名片可以让人快速的了解对方的基本个人信息,名片是我们与人联系沟通的重要纽带及方式。下面小编就为
- 当我们使用Windows10系统时，如果我们在设置中心遇到没有Windows预览体验计划选项的问题，小编认为这可能是因为我们的默认账户。因为
