ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] ¤u§@ªí¤ñ¹ï,§ï°}¦C¤ñ¹ï¥d¦í,½Ð¦U¦ì¥ý¶i«üÂI

¦^´_ 1# dou10801

¤£¦n·N«ä¡A¬Ý¤£¤ÓÀ´»Ý¨D¡A¥i§_½Ð±z»¡©ú¸Ô²Ó»Ý¨D¡A¤ñ¹ï¤°»ò¡Aµ²ªG§e²{¤°»ò? .... ÁÂÁÂ

TOP

¦^´_ 3# dou10801

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, xD, T$, i&
Set xD = CreateObject("Scripting.Dictionary")
Arr = Sheets("¼Æ¾Ú").[a1].CurrentRegion
For i = 2 To UBound(Arr): T = Arr(i, 1): xD(T) = Arr(i, 2): Next
With Sheets("¤u§@ªí¤ñ¹ï")
    Arr = .[b1].CurrentRegion
    For i = 2 To UBound(Arr): T = Arr(i, 1): Arr(i, 2) = xD(T): Next
    .[b1].Resize(UBound(Arr), 2) = Arr
End With
End Sub

TOP

¦^´_ 5# dou10801

¸ê®Æ³o»ò¦h¤£±q¼Æ¾Úª½±µ½Õ¥Î¡A¤Ï¦Ó¤@µ§¤@µ§¿é¤J¦³ÂI¤£²Å¦X±`²z§a? ÁÂÁÂ

TOP

¦^´_ 7# dou10801
³æ¯Â»yªk°ÝÃD¡A¦p¤U"ªÅ®æ _" ¡B¥[¤å¦r""¡AÁÂÁÂ

Arr = Array(1, 2, 3, _
4, 5)
Brr = Array("¦ó", _
"§f", "¬I", "±i", "¤Õ")

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD