excel中用vba查找出重复值(vba查找相同内容)

1. vba查找相同内容

把电脑打开，把字典匹配，跟电脑里就差走出来了。

2. vba检查重复项

这个用2嵌套的循环来实现比对就可以了,A列第一个数据和B列第一个数据比对,

如果不重复就转到B列第二个,如果重复了就转到A列第二个,依次比对。大概十几句代码吧,添加一个按钮:(假定数据从第二行开始)

PrivateSubCommandButton1_Click()

ROW_A=2:ROW_B=2

ENDROW_B=[A65536].End(xlUp).Row

DoWhileCells(ROW_A,1)""

DoWhileCells(ROW_B,2)""

IfCells(ROW_A,1)=Cells(ROW_B,2)Then

Cells(ROW_B,2).Interior.ColorIndex=6

MsgBox("B"&ROW_B&"行出现重复")

ExitDo

Else:IfROW_B=ENDROW_BThen

ExitDo

Else:ROW_B=ROW_B+1

EndIf:EndIf

Loop

ROW_A=ROW_A+1

ROW_B=2

Loop

EndSub

3. vba查找重复的单元格的行号

亲，打开你的Excel文件，按“Alt+F11”打开VBA编辑窗口，然后在左侧对应的Sheet上双击，右侧空白处粘贴下面的代码。关闭VBA窗口。然后按“Alt+F8”打开宏窗口，选择刚插入的宏，点击“执行”。

Sub cz()Dim f As Range: Dim i, n As Integern = 3357: Columns("D").NumberFormat = "@"For i = 3357 To 3343 Step -1 Set f = Range("B3343:B3357").Find(Range("A" & i).Value) If Not f Is Nothing Then Range("C" & n).Value = i: Range("D" & n).Value = Range("A" & i).Value: n = n - 1NextEnd Sub

4. vba查找重复数据

使用集合Collection的key唯一性除去重复的值Sub A() Dim A(1 To 100) Dim b As New Collection Dim i As Integer A(1) = 1 A(2) = 3 A(3) = 5 A(4) = 7 A(5) = 3 A(6) = 5 A(7) = 2 On Error Resume Next For i = 1 To 100 b.Add A(i), Str(A(i)) Next i For i = 1 To b.Count A(i) = b(i) Next iEnd Sub

5. vba 查找

Sub TestFind()；MsgBox Sheet1.Range("1:" & Sheet1.Rows.Count).Find("测试字符串").Address；End Sub；如果是多个，并且不要提示，让它变成行数的变量

顶一下

(0)

0%

踩一下

(0)

0%