您现在的位置: 万盛学电脑网 >> 办公软件 >> Excel教程 >> excel综合 >> 正文

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

作者:佚名    责任编辑:admin    更新时间:    2015-10-16 15:17:35

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