Hsieh

¦^´_ 7# softsadwind
·ÓµÛ§Aªº¤½¦¡·N¸q¡A§ï¦¨¨Ï¥ÎVBA±Ô­z

1. Sub ex()
   
2. Dim Ar()
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. Set d1 = CreateObject("Scripting.Dictionary")
   
5. With ¤u§@ªí1
   
6.    For Each a In .Range(.[B2], .[B65536].End(xlUp))
   
7.       d(a.Value) = a.Offset(, -1).Value
   
8.       d1(a.Value) = a.Offset(, -1).Resize(, 6).Value
   
9.    Next
   
10. End With
    
11. With ¤u§@ªí2
    
12. .[B2:B65536] = ""
    
13. .[B2].Resize(d.Count, 1) = Application.Transpose(d.keys)
    
14. End With
    
15. With ¤u§@ªí3
    
16. .[A2:F65536] = ""
    
17. .[A2].Resize(d1.Count, 6) = Application.Transpose(Application.Transpose(d1.items))
    
18. End With
    
19. With ¤u§@ªí4
    
20. n = .[B1]
    
21. For Each ky In d.keys
    
22. If Date - n >= d(ky) Then
    
23. ReDim Preserve Ar(s)
    
24. Ar(s) = d1(ky)
    
25. s = s + 1
    
26. End If
    
27. Next
    
28. .[A3:F65536] = ""
    
29. .[A3].Resize(s, 6) = Application.Transpose(Application.Transpose(Ar))
    
30. End With
    
31. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 10# softsadwind

§Aªºªþ¥ó¤¤ÀÉ®×À³¬O2010ª©¦s¦¨97-2003ª©
©Ò¥H¤u§@ªíªºCodeName¬O"¤u§@ªí1"ªº¦r¦ê
±Nµ{¦¡½X¤º³o¨Ç§ï¦¨¥¿½T¤u§@ªí¦WºÙ¸Õ¸Õ