Hsieh

¦^´_ 4# jovi0801
¦pªG³o¬O¥æ©ö¬ö¿ý¡A¤£À³¸Ó§PÂ_©P¤@»P©P¤­¬°°Ï¶¡
¦]¬°¦³¥i¯à¹J¨ì°²¤é¥ð¥«¡A¥H©P§O§P©w¤£ª¾¬O§_¤ñ¸û¥¿½T?

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. Set d1 = CreateObject("Scripting.Dictionary")
   
4. With Sheet1
   
5. d1(1) = Array(.[A1].Value, .[B1].Value, .[C1].Value, .[d1].Value, .[E1].Value)
   
6. For Each a In .Range(.[A2], .[A2].End(xlDown))
   
7. w = Year(a) & ":" & Application.WorksheetFunction.WeekNum(a)
   
8. If IsEmpty(d(w & "¶}")) Then d(w & "¶}") = a.Offset(, 1).Value
   
9. If a.Offset(, 2) > d(w & "°ª") Then d(w & "°ª") = a.Offset(, 2).Value
   
10. If IsEmpty(d(w & "§C")) Then
    
11. d(w & "§C") = a.Offset(, 3).Value
    
12. ElseIf d(w & "§C") > a.Offset(, 3) Then
    
13. d(w & "§C") = a.Offset(, 3).Value
    
14. End If
    
15. d(w & "¦¬") = a.Offset(, 4).Value
    
16. d1(w) = Array(a.Value, d(w & "¶}"), d(w & "°ª"), d(w & "§C"), d(w & "¦¬"))
    
17. Next
    
18. End With
    
19. With Sheet2
    
20. .Cells = ""
    
21. .[A1].Resize(d1.Count, 5) = Application.Transpose(Application.Transpose(d1.items))
    
22. End With
    
23. End Sub

½Æ»s¥N½X