VBA用两种方法找出两列数据相同项

laoau123

VBA用两种方法找出两列数据相同项

Excel学徒123

你这个，因为每一列都存在单独的重复的数据，所以在一开始就需要排除重复，而这个直接用字典就是最快的

laoau123

Excel学徒123 发表于 2016-8-23 20:24
你这个，因为每一列都存在单独的重复的数据，所以在一开始就需要排除重复，而这个直接用字典就是最快的

快点写代码啊

mathking77

1. Sub cnmb()
   
2. Dim f As Range: Dim i, n As Integer
   
3. n = 13: Columns("D").NumberFormat = "@"
   
4. For i = 13 To 1 Step -1
   
5.     Set f = Range("B1:B13").Find(Range("A" & i).Value)
   
6.     If Not f Is Nothing Then Range("D" & n).Value = Range("A" & i).Value: n = n - 1
   
7. Next
   
8. End Sub
   

复制代码

laoau123

mathking77 发表于 2016-8-24 08:51

用数组和字典，不要用FIND

mathking77

laoau123 发表于 2016-8-24 09:00
用数组和字典，不要用FIND

要的不就是结果 能做出来不就好了 要那么多方法干什么