Hsieh

¦^´_ 1# yangjie

1. Sub ex()
   
2. Set d = CreateObject("Scripting.Dictionary")
   
3. With Workbooks("1.xls").Sheets(3)
   
4.   For Each a In .Range(.[C2], .[C65536].End(xlUp))
   
5.    d(a & "") = Array(a.Offset(, 3).Value, a.Offset(, 4).Value, a.Offset(, 6).Value)
   
6.   Next
   
7. End With
   
8. With Workbooks("2.xls").Sheets(5)
   
9.   For Each a In .Range(.[B2], .[B65536].End(xlUp))
   
10.    a.Offset(, 1).Resize(, 3).Value = d(a & "")
    
11.   Next
    
12. End With
    
13. End Sub

½Æ»s¥N½X

Hsieh

¦^´_ 3# yangjie
1.¬°¦ó­n¥ÎA & ""
¦]¬°Dictionaryª«¥ó¬O¥ÎÃöÁä¦r§@¯Á¤Þ¡AµM«á¹ïÀ³¤@­Ó¸ê®Æ¤º®e
¨Ò¦p:d(A & "")=Array(a1,b1,c1)
¨ä¤¤A & ""´N¬OÃöÁä¦r¡A¦bµ{¦¡¤¤ªºA¬OÀx¦s®æ«¬ºA¡A¥[¤W&""¬O§â¨ä¤º®eÂন¤å¦r«¬ºA
·íµM¦pªG¨Ï¥Îd(A.Value)¤]¦æ
¦ÓArray(a1,b1,c1)´N¬O¸Ó¯Á¤Þ¹ïÀ³ªº¤º®e
2.®Ú¾Ú°ÝÃD1ªº¦^µª´N¥iª¾¹D¡A¬O¥ýŪ¨ú©Ò¦³¸ê®Æ¨ìDictionaryª«¥ó
¦A¨Ó¥u»Ý±N¹ïµwªº¤º®e±qDictionaryª«¥ó¤¤Åª¨ú¥X¨Ó
3.¤£³sÄòÀx¦s®æ·íµMµLªk¥ÎResize¨Ó«ü©w½d³ò
¥i¥H¨Ï¥Î
A.Offset(,1)=d(A & "")(0)
A.Offset(,3)=d(A & "")(1)
A.Offset(,9)=d(A & "")(2)
³o¼Ë¤@¤@µ¹­Èªº¤èªk

Hsieh

¦^´_ 6# yangjie

d(A & "")=array(A.Offset(,n1(1)).value,A.Offset(,n1(2)).value,A.Offset(,n1(3)).value,....