生活已是百般艰难,为何不努力一点。下面图老师就给大家分享Excel找出两列相同值的VBA宏代码，希望可以让热爱学习的朋友们体会到设计的小小的乐趣。
【 tulaoshi.com - Excel教程 】
以下的宏代码，其功能是，找到AB两列相同值，并存放到C列。
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com）Sub MySubSearch()
Dim i As Integer
Dim c As Range
（本文来源于图老师网站，更多请访问https://www.tulaoshi.com）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
来源:https://www.tulaoshi.com/n/20160219/1614373.html
看过《Excel找出两列相同值的VBA宏代码》的人还看了以下文章 更多>>
