下面这个宏代码的作用是在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
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容， 请发送邮件至 86345@qq.com 举报，一经查实，本站将立刻删除。
