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

2016-02-19 17:09 17 1 收藏

生活已是百般艰难,为何不努力一点。下面图老师就给大家分享Excel找出两列相同值的VBA宏代码，希望可以让热爱学习的朋友们体会到设计的小小的乐趣。

【 tulaoshi.com - Excel教程】

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

来源:http://www.tulaoshi.com/n/20160219/1614373.html

上一篇： EXCEL中宏毒X97M.Laroux.DX1的解决办法
下一篇：在Visual C#中用ListView显示数据记录

看过《Excel找出两列相同值的VBA宏代码》的人还看了以下文章更多>>

EXCEL查找并返回最后一个相同值

标签：电脑入门

在EXCEL中，我们常常使用vlookup函数查找相同的数据，可以跨工作表查找，同时还能跨工作并查找，非常方便! 仍然，问题出在vlookup函数只能查找相同值的第一个值。如果我们要想查找相同值的最后一个值，就不能使用该函数了，得使用如下方法，请认真阅读，或许对您有帮助。下面，我们使用的函数是LOOKUP函数。先看下表吧。如下图，在Sheet...

CSS布局实例代码:两列布局实例

标签： Web开发

CSS两列布局，右侧固定，左侧自适应宽度div style="width:90%; margin:0 auto;" div style="width:200px; float:right;"这是右侧的内容/div div style=" margin-right:210px;"这是左侧的内容，自适应宽度/div /divCSS两列布局，左侧固定，右侧自适应宽度div style="width:90%;...

在EXCEL中获取列中不重复的值的个数

Public Sub distinctCount() '求Col列中StartRow到EndRow范围中不重复的个数 '本例是计算标题为sheet1的Excel表中的A1:A240的不重复值的个数 '修改下面四行的结尾值 Dim sheetsCaption As String: sheetsCaption = "Sheet1" Dim Col As String: Col = "A" Dim StartRow As Integer: StartRow = 1 Dim EndRow As Integer: EndRow = 240 '...

VBA代码编写技巧

标签：电脑入门

方法1：尽量使用VBA原有的属性、方法和Worksheet函数由于Excel对象多达百多个，对象的属性、方法、事件多不胜数，对于初学者来说可能对它们不全部了解，这就产生了编程者经常编写与Excel对象的属性、方法相同功能的VBA代码段，而这些代码段的运行效率显然与Excel对象的属性、方法完成任务的速度相差甚大。例如用Range的属性CurrentRegion来返...

Excel vba返回的路径

标签：电脑入门

①返回应用程序完整路径 Application.Path 比如：D:SoftWareOffice2003OFFICE11 ②返回当前工作薄的路径 ThisWorkbook.Path 比如：D: ③返回当前默认文件路径 Application.DefaultFilePath 比如：C:Documents and SettingsAdministratorMy Documents ④只返回路径 Application.ActiveWorkbook.Path 比如：D: ⑤返回路径及工作簿文...

查看更多精彩>>