[已解决]如何用VBA，将总表里的内容按日期，分别在对应的表里出来

dsmch

1. Sub Macro1()
   
2. Dim arr, brr, d, i&, j%, y&
   
3. Set d = CreateObject("scripting.dictionary")
   
4. Sheets("总表").Activate
   
5. arr = Range("a2").CurrentRegion
   
6. ReDim brr(1 To UBound(arr), 1 To 8)
   
7. y = UBound(arr, 2)
   
8. For j = 6 To Sheets.Count
   
9.     Sheets(j).UsedRange.Offset(2, 0).ClearContents
   
10. Next
    
11. For i = 3 To UBound(arr)
    
12.     If arr(i, 9) = "锻压" Then d(arr(i, 1)) = d(arr(i, 1)) & " " & i
    
13. Next
    
14. a = d.keys: b = d.items
    
15. For i = 0 To d.Count - 1
    
16.     x = Split(b(i))
    
17.     z = Day(a(i))
    
18.     For j = 1 To UBound(x)
    
19.         brr(j, 1) = a(i)
    
20.         brr(j, 2) = arr(x(j), 8)
    
21.         brr(j, 3) = arr(x(j), 3)
    
22.         brr(j, 4) = arr(x(j), 4)
    
23.         brr(j, 5) = arr(x(j), 5)
    
24.         brr(j, 6) = arr(x(j), 6)
    
25.         brr(j, 7) = arr(x(j), 7)
    
26.     Next
    
27.     Sheets("" & z).Cells(3, 1).Resize(UBound(x), UBound(brr, 2)) = brr
    
28. Next
    
29. End Sub
    

复制代码

新一

dsmch 发表于 2014-3-23 12:08

非常感谢