列1 在列2不存在的数据筛选到结果区域

looselace

麻烦大师看下，用数组或字典的方式，加快运行，谢谢啊~~~想了半天。

杨建营

请楼主参考。

looselace

杨建营 发表于 2023-4-18 14:26
请楼主参考。

运行不太对，麻烦再看一下，标号列1的数据 在标号 列2的列中没有的话，将匹配的数据返回到另外一个区域。
就是提取不存在的数据，到另外一个区域。
两个黄色列在匹配。另外列2在另外一个工作表的话，那该怎么实现？您这个是都放在一个数组里了，要两个数组对比。

looselace

For Ipro = 2 To UBound(pro)
If Application.CountIf(rng（被匹配的区域）, pro(Ipro, 1)) = 0 Then
k = k + 1
.Cells(k, 1) = pro(Ipro, 1)
End If
我用的counif if函数可以实现， 但是我觉得太low了一点，数组是不是更快些，更简洁。
另外我想用另外一个数组来装pro(Ipro, 1)，那么redim该怎么写？就是下标的值怎么提前定？

looselace

Bom = .[a1].CurrentRegion
Set rng = .Range("b2:b" & UBound(Bom))

Dim Tgt()


For Ipro = 2 To UBound(pro)
If Application.CountIf(rng, pro(Ipro, 8)) = 0 Then
k = k + 1
End If
Next
g = k




ReDim Tgt(1 To g, 1 To 3)
For Ipro = 2 To UBound(pro)
If Application.CountIf(rng, pro(Ipro, 8)) = 0 Then
j = j + 1
Tgt(j, 1) = pro(Ipro, 8)
Tgt(j, 2) = pro(Ipro, 9)
Tgt(j, 3) = pro(Ipro, 10)
End If
Next

looselace

1. Set rng = .Range("b2:b" & UBound(Bom))
   
2. 
   
3. Dim Tgt()
   
4. 
   
5. 
   
6. For Ipro = 2 To UBound(pro)
   
7. If Application.CountIf(rng, pro(Ipro, 8)) = 0 Then
   
8. k = k + 1
   
9. End If
   
10. Next
    
11. g = k
    
12. 
    
13. 
    
14. 
    
15. 
    
16. ReDim Tgt(1 To g, 1 To 3)
    
17. For Ipro = 2 To UBound(pro)
    
18. If Application.CountIf(rng, pro(Ipro, 8)) = 0 Then
    
19. j = j + 1
    
20. Tgt(j, 1) = pro(Ipro, 8)
    
21. Tgt(j, 2) = pro(Ipro, 9)
    
22. Tgt(j, 3) = pro(Ipro, 11)
    
23. Tgt(j, 4) = pro(Ipro, 11)
    
24. End If
    
25. Next
    
26. 
    
27. 
    
28. End With
    

复制代码

我用的contif函数来实现的，不过这种方法，不够简洁。有没有更好的办法？

杨建营

looselace 发表于 2023-4-18 14:38
运行不太对，麻烦再看一下，标号列1的数据 在标号 列2的列中没有的话，将匹配的数据返回到另外一个区域。 ...

把另一个文件也加上吧，否则不能确定格式。

looselace

杨建营 发表于 2023-4-18 16:22
把另一个文件也加上吧，否则不能确定格式。

麻烦老师看一下，我的做法太笨了点。

gwjkkkkk

请参考。。。

wowo000

楼主：你的模拟结果有问题，列1和列2不是都有“5”吗？