您当前的位置: 首页 > 办公软件教程 > Excel教程 浏览
Excel找出两列相同值的VBA宏代码
发布时间:2015-10-25    点击率:次    来源:www.sytcke.com    作者:电脑技术学习网

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

发表留言
发表留言请先登录!
免责声明:本站发布的信息和评论纯属网民个人行为,并不代表本站立场,如发现有违法信息或侵权行为,请直接与本站管理员联系,我们将在收到您的信息后24小时内作出处理!