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

2013-10-09 16:50 阅读 510 次 评论关闭

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

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:Excel找出两列相同值的VBA宏代码 | 猎微网
分类:Excel VBA 标签:, , , ,

评论已关闭!