[µo°Ý] ¨D§U¥Îµ{¦¡À°¦£¦X¨Ö¸ê®Æ¼Æ¾Ú

glriffy_su

·PÁ¤j¤j´£¨Ñ¤èªk (¦pªþÀÉ

¤U¸ü (66.9 KB)

2013-8-8 20:25

)

¤£µM¨C¤Ñ­nªá¤@°ï®É¶¡¦X¨Ö¨Ãºâ¥X¼Æ¾Ú  ·|µoºÆ   ·PÁÂ¥ý

glriffy_su

¦^´_ 1# glriffy_su


    ¥i¥H¥ÎMAIL±Hµ¹§Ú¶Ü  ¶W¯Å·PÁ  : [email protected]

p212

¦^´_ 1# glriffy_su
½Ð¤W¶Ç°Ñ¦ÒÀɮס]¤£¬O¶K¹Ï®@¡I¡^¡A¥H§Q¸ÑÃD¡AÁÂÁ¡I

Hsieh

¦^´_ 1# glriffy_su
¸Õ¸Õ¬Ý

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. Set d1 = CreateObject("Scripting.Dictionary")
   
4. Set d2 = CreateObject("Scripting.Dictionary")
   
5. With ¤u§@ªí1 '¨Ó·½¤u§@ªí
   
6.   r = 3
   
7.   Do Until .Cells(r, 2) = ""
   
8.      mystr = .Cells(r, 1).Text & "," & Split(.Cells(r, 2), ".")(0)
   
9.      d1(mystr) = d1(mystr) + .Cells(r, 3)
   
10.      d2(mystr) = d2(mystr) + .Cells(r, 3)
    
11.      For Each a In .Range(.[E2], .[E2].End(xlToRight))
    
12.        d(mystr & "," & a) = d(mystr & "," & a) + Cells(r, a.Column)
    
13.      Next
    
14.      r = r + 1
    
15.   Loop
    
16. End With
    
17. With ¤u§@ªí2 '¥Ø¼Ð¤u§@ªí
    
18. r = 3
    
19.   For Each ky In d1.keys
    
20.     .Cells(r, 1).Resize(, 2) = Split(ky, ",")
    
21.     .Cells(r, 3) = d1(ky)
    
22.     .Cells(r, 4) = d2(ky)
    
23.     For Each a In .Range(.[E2], .[E2].End(xlToRight))
    
24.        .Cells(r, a.Column) = d(ky & "," & a)
    
25.     Next
    
26.     r = r + 1
    
27.   Next
    
28. End With
    
29. End Sub

½Æ»s¥N½X

glriffy_su

¦^´_ 4# Hsieh


    ¤j¤j  ¤Ó·PÁ±z¤F  ³Ñ¤Uªº§Ú¦Û¤v­×§ï¤@¤U  ¦A¦¸·PÁÂ