查询A表中包含B表A列所有数据

zhouyulv

沈默00 发表于 2024-7-17 17:14
B表里有的，A表里没有就空着？
想一次性做好感觉VBA会好处理些，，365函数处理下来你2019也用不了

可以帮忙看看吗？ 是的。B表有，A表就空着

沈默00

沈默00

1. Sub simoy()
   
2. Dim cr(1 To 55555, 1 To 8), i&, j%, m&, n&, kk As Boolean
   
3. t = Timer
   
4. ar = Sheet2.[a1].CurrentRegion
   
5. br = Sheet1.[a1].CurrentRegion
   
6. For i = 2 To UBound(ar)
   
7.     kk = False
   
8.     For m = 2 To UBound(br)
   
9.         If br(m, 1) = ar(i, 1) Then
   
10.             kk = True
    
11.             n = n + 1
    
12.             For j = 1 To UBound(br, 2)
    
13.                 cr(n, j) = br(m, j)
    
14.             Next
    
15.         End If
    
16.     Next
    
17.     If kk = False Then
    
18.         n = n + 1
    
19.         cr(n, 1) = ar(i, 1)
    
20.     End If
    
21. Next
    
22. With Sheet3
    
23.     .Cells.AutoFilter
    
24.     .UsedRange.Offset(1).ClearContents
    
25.     .[a2].Resize(n, 8) = cr
    
26.     .UsedRange.EntireColumn.AutoFit
    
27.     If .AutoFilterMode = 0 Then .Rows("1:1").AutoFilter
    
28. End With
    
29. MsgBox "提取完毕，共用时" & Format(Timer - t, "#0.00") & "秒"
    
30. End Sub

复制代码

沈默00

删除了结果，不然附件太大，自己试一下，，，

zhouyulv

沈默00 发表于 2024-7-18 07:47
删除了结果，不然附件太大，自己试一下，，，

感谢