关于VBA筛选问题

lin0527

Qs18 发表于 2024-7-4 16:43
试试...........

大师，我不太懂，能不能麻烦你每个代码备注一下中文呀

yanglinzi

参与一下。。

1. Sub 条件筛选()
   
2. Dim arr, brr, i, j, r, d
   
3. Set d = CreateObject("scripting.dictionary") '定义字典
   
4. With Sheet1
   
5.     r = .Cells(Rows.Count, 1).End(xlUp).Row '汇总表的最大行
   
6.     arr = .Range("a2:y" & r) '把汇总表写入数组arr
   
7. End With
   
8. sb = Sheet2.[b1].Value '需要筛选的型号
   
9. For i = 4 To UBound(arr)
   
10.     sa = arr(i, 2) '定义关键字
    
11.     d(sa) = d(sa) & "," & i '用字典标记行号
    
12. Next
    
13. ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2)) '定义结果数组
    
14. For Each k In d.keys
    
15.     If k = sb Then
    
16.         aa = Split(d(k), ",") '拆分行号
    
17.         For j = 1 To UBound(aa)
    
18.             n = n + 1
    
19.             For i = 1 To UBound(arr, 2)
    
20.                 brr(n, i) = arr(aa(j), i)
    
21.             Next
    
22.         Next
    
23.     End If
    
24. Next
    
25. With Sheet2
    
26.     .UsedRange.Cells.Offset(4).Clear
    
27.     .[a:a].NumberFormatLocal = "yyyy-m-d"
    
28.     .[a5].Resize(n, UBound(brr, 2)) = brr
    
29.     .[a5].Resize(n, UBound(brr, 2)).Borders.LineStyle = 1
    
30. End With
    
31. End Sub
    

复制代码

yanglinzi

参与一下。。

lizhipei78

https://club.excelhome.net/threa ... tml?_dsign=2f533d8d
了解一下