手机版

首页 IT科技安全资讯卡饭教程卡饭论坛

卡饭网 > excel > 正文

Excel找出两列相同值的VBA宏代码

来源：本站整理作者：梦在深巷时间：2013-02-27 16:38:05

以下的宏代码，其功能是，找到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

本周热门

1

在用EXCEL计算标准偏差的时候该用STDEV STDEVA STDEVP哪一种? 2016/07/22
2

excel单元格中格式太多该怎么解决? 2016/11/25
3

Excel常用函数公式大全 2013/08/05
4

EXCEL表中#N/A是什么意思?#N/A是什么? 2015/05/26
5

EXCEL中如何使每页都打印出底端备注? 2016/07/09
6

excel 常见符号输入方法详解 2016/07/30
7

excel中vlookup函数的值是最后一个数是怎么回事 2016/07/30
8

Excel"锅状"对比图表如何制作 2016/10/19

本月热门

1

在用EXCEL计算标准偏差的时候该用STDEV STDEVA STDEVP哪一种? 2016/07/22
2

Excel常用函数公式大全 2013/08/05
3

Excel怎么设置英文首字母大写 2020/08/24
4

excel求和出现#value是什么原因? 2016/08/18
5

excel表格的水平(分类)轴标签灰色不可编辑是什么原因? 2016/07/24
6

EXCEL表中#N/A是什么意思?#N/A是什么? 2015/05/26
7

Excel怎么提取时间中的小时 2020/08/27
8

excel表格中隔行选取的三种方法 2016/12/03
9

Excel中怎么在散点图中插入直线 2016/08/08
10

Excel中将15位身份证号转换为18位 2014/07/08