Hsieh

¦^´_ 1# chi830


    source¤¤ID¨Ã¨S¦³»P§Aªº½d¨Ò¹ïÀ³
½ÐÀˬd¸ê®Æ½T»{¹ïÀ³±ø¥ó

Hsieh

¦^´_ 3# chi830

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. Set d1 = CreateObject("Scripting.Dictionary")
   
4. 
   
5. With Sheets("index")
   
6.    For Each a In .Range(.[B2], .[B2].End(xlDown))
   
7.    d(a & "") = a.Offset(, -1).Text
   
8.    Next
   
9. End With
   
10. With Sheets("source")
    
11.    For Each a In .Range(.[A2], .[A2].End(xlDown))
    
12.     d1(a & "," & a.Offset(, 1) & "," & a.Offset(, 2)) = a.Offset(, 3)
    
13. Next
    
14. End With
    
15. For Each ky In d1.keys
    
16. sh = d(Split(ky, ",")(0))
    
17. With Sheets(sh)
    
18. myid = .[A1]
    
19.    For Each a In .Range(.[A3], .[A3].End(xlDown))
    
20.      a.Offset(, 1).Resize(, 2) = Array(d1(myid & "," & a & "," & "01"), d1(myid & "," & a & "," & "02"))
    
21.    Next
    
22. End With
    
23. Next
    
24. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 6# chi830

¤£ª¾¹D³o¼Ë¹ï¤£¹ï?

    ¥X¶Ô.zip (167.8 KB)

¤U¸ü¦¸¼Æ: 22

2012-9-19 14:56