[µo°Ý] ¦p¦ó¦b±N¤ñ¹ï«áªº¸ê®Æ¡A¶ñ¤J«D³sÄò°Ï°ìªºÀx¦s®æ¤º

sptakung1

½Ð±Ð¦U¦ì«e½ú¤Î¥ý¶i¡A¦p¦ó¦b¡y¥X¶Ô¸ê®Æªí¡z¤¤§ä¥X¥¿½Tªº¹ïÀ³­È¶ñ¤J¡y­È¯Z¬z¶K¡z¤u§@ªí¤º¡C

sptakung1

«D±`·PÁ¶Wª©¤j¤jªºÀ°¦£¡A§¹¥þ²Å¦X»Ý¨D¡A«D±`·PÁ¡C

Hsieh

¦^´_ 1# sptakung1

1. Sub Ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. With Sheet3
   
4.   For Each A In .Range(.[A2], .[A2].End(xlDown))
   
5.      For Each c In A.Offset(, 1).Resize(, 4)
   
6.         d(A & c) = A.Offset(, 5)
   
7.      Next
   
8.   Next
   
9. End With
   
10. With Sheet6
    
11. For i = 5 To 35
    
12.   For j = 4 To 70 Step 3
    
13.   mystr = .Cells(3, i) & .Cells(j + 1, 1)
    
14.   .Cells(j, i) = d(mystr)
    
15.   Next
    
16. Next
    
17. End With
    
18. End Sub

½Æ»s¥N½X