不同表格日期如何用VBA统计

lzclzch

不同表格日期如何用VBA统计
请老师们帮忙，谢谢

蓝桥玄霜

1. Private Sub CommandButton1_Click()
   
2. Dim d, k, t, Sht As Worksheet, Brr, rq, n&, Myr&, Arr
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. rq = Sheet1.[g3].Value
   
5. For Each Sht In Sheets
   
6.     If Sht.Name <> "Sheet4" Then
   
7.         Myr = Sht.[d65536].End(xlUp).Row
   
8.         Arr = Sht.Range("d1:d" & Myr)
   
9.         For i = 1 To UBound(Arr)
   
10.             d(Arr(i, 1)) = ""
    
11.         Next
    
12.     End If
    
13. Next
    
14. k = d.keys
    
15. t = d.items
    
16. ReDim Brr(1 To d.Count)
    
17. For i = 0 To UBound(k)
    
18.     If k(i) < rq Then
    
19.         n = n + 1
    
20.         Brr(n) = k(i)
    
21.     End If
    
22. Next
    
23. Sheet1.[h1].Resize(UBound(Brr), 1) = Application.Transpose(Brr)
    
24. End Sub

复制代码

月光小小

终于看完了~~~