用VBA 比对请各位大圣帮忙用什么代码最快，数据很多。

zhang139

用VBA 比对请各位大圣帮忙用什么代码最快，数据很多。

opiona

公式  countif

lizhipei78

1、判断重复最快的是用Excel的高亮重得项
2、比对最快的是VLOOKUP函数，简单高效，不输VBA代码数组

excel玉米

用数组+字典

pc_12

比对数据.rar (19.47 KB, 下载次数: 11)

2024-1-28 12:41 上传

点击文件名下载附件

ykcbf1100

数据多的话，用字典＋数组吧

zhang139

ykcbf1100 发表于 2024-1-28 12:46
数据多的话，用字典＋数组吧

代码怎么写

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.1.28
   
2.     Dim arr, brr, d
   
3.     Set d = CreateObject("Scripting.Dictionary")
   
4.     Set d1 = CreateObject("Scripting.Dictionary")
   
5.     Application.ScreenUpdating = False
   
6.     r = Me.Cells(Rows.Count, 6).End(xlUp).Row
   
7.     arr = Me.[f1].Resize(r, 1)
   
8.     For i = 2 To UBound(arr)
   
9.         s = arr(i, 1)
   
10.         d(s) = ""
    
11.     Next
    
12.     t = d.items
    
13.     r = Me.Cells(Rows.Count, 1).End(xlUp).Row
    
14.     Me.Columns(2).Font.ColorIndex = 0
    
15.     For i = 2 To r
    
16.         s = Me.Cells(i, 1)
    
17.         If d.exists(s) Then
    
18.             d1(s) = d1(s) + 1
    
19.             If d1(s) > 1 Then
    
20.                 Me.Cells(i, 2) = "重复有"
    
21.                 Me.Cells(i, 2).Font.ColorIndex = 3
    
22.             Else
    
23.                 Me.Cells(i, 2) = "比对OK"
    
24.             End If
    
25.         End If
    
26.     Next
    
27.     Set d = Nothing
    
28.     Application.ScreenUpdating = True
    
29.     MsgBox "OK！"
    
30. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

tmplinshi

1. =IF(ISNA(MATCH(A2,$A$1:$A1,0)), "比对OK", "重复有")

复制代码

再用条件格式把“重复有”设置为红色粗体