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

[µo°Ý] ½Ð¯q ¬O§_¦³§ó§Öªº¬d¸ß¤è¦¡

¦^´_ 1# fantersy

½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ

Sub test()
Dim Arr, xD, i&, Tm
Tm = Timer
Set xD = CreateObject("Scripting.Dictionary")
Arr = Range([L!a1], [L!l65536].End(3))
For i = 2 To UBound(Arr)
    xD(Arr(i, 10)) = Arr(i, 1)
    xD(Arr(i, 12)) = Arr(i, 1)
Next
Arr = Range([R!b1], [R!m65536].End(3))
For i = 2 To UBound(Arr)
    xD(Arr(i, 10)) = Arr(i, 1)
    xD(Arr(i, 12)) = Arr(i, 1)
Next
Arr = Range([§Ç¸¹!a2], [§Ç¸¹!a65536].End(3))
For i = 1 To UBound(Arr)
    Arr(i, 1) = xD(Arr(i, 1))
Next
Sheets("§Ç¸¹").[b2].Resize(UBound(Arr)) = Arr
MsgBox Timer - Tm
End Sub

TOP

¥»©«³Ì«á¥Ñ samwang ©ó 2021-7-30 12:56 ½s¿è

¦^´_ 1# fantersy


¬Ý¤F­ã¤jªºµª®×¡A¤~ª¾¹D»~·|¼Ó¥Dªº»Ý¨D¤F¡A¥¿½T»Ý¨D­n°Ï¶¡¤ñ¹ï¡A
©Ò¥H½Ð©¿²¤7¼Óµ{¦¡¡AÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¤H¥Í¤£¤@©w²y²y¬O¦n²y¡A¦ý¬O¦³¾ú½mªº±j¥´ªÌ¡AÀH®É³£¥i¥H´§´Î¡C
ªð¦^¦Cªí ¤W¤@¥DÃD