- ©«¤l
- 199
- ¥DÃD
- 45
- ºëµØ
- 0
- ¿n¤À
- 252
- ÂI¦W
- 0
- §@·~¨t²Î
- windows 7 (X64)
- ³nÅ骩¥»
- office 2010 (x64)
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2010-12-24
- ³Ì«áµn¿ý
- 2020-3-31
|
¥»©«³Ì«á¥Ñ linshin1999 ©ó 2011-1-17 20:48 ½s¿è
§A¦n:¥H¤UɪáÄm¦ò³o¬O Hiesh ª©¥D,¦^µªª©¤Í°Ýªº°ÝÃD©Ò¦^µªªºµª®×,§A¥i¥H°Ñ¦Ò¬Ý¬Ý:
Sub Ex()
Set d = CreateObject("Scripting.Dictionary")
With Sheets(2)
For Each a In .Range(.[A1], .[A65536].End(xlUp))
d(a.Value) = a.Offset(, 1)
Next
With Sheets(1)
For Each a In .Range(.[A1], .[A65536].End(xlUp))
a.Offset(, 3) = d(a.Value)
Next
End With
End With
End Sub
http://forum.twbts.com/viewthread.php?from=notice&tid=2398
©ÎªÌ§A¥i¥H«e©¹¥H¤Wªººô¶¥h°Ñ¦Ò:¹ïªì¾ÇªÌ Dictionary nªá¤@ÂI¤ß«ä,¦ý¬O§Anªºµª®×´N¬O¥Î Dictionary ¨Ó¸Ñ¨M. |
|