³o¼ËÁÙ¥i´£¤É°õ¦æ®É¶¡¡H

s7659109

­ì¸ê®Æ2500µ§¡A¸ü¤J6.6¬í¡A¦p¦ó­×§ïÁYµu°õ¦æ®É¶¡
Sub ¸ü¤J¸ê®Æ()
Dim arr, arr1, i, Time0#
Time0 = Timer
arr = ¤u§@ªí1.UsedRange
arr1 = Application.Transpose(Application.Transpose(arr))
For i = 1 To UBound(arr1)
¤u§@ªí3.Cells(i + 3, 1) = arr(i, 5)
¤u§@ªí3.Cells(i + 3, 2) = arr(i, 2)
¤u§@ªí3.Cells(i + 3, 3) = arr(i, 3)
¤u§@ªí3.Cells(i + 3, 4) = arr(i, 8)
¤u§@ªí3.Cells(i + 3, 5) = arr(i, 9)
¤u§@ªí3.Cells(i + 3, 6) = arr(i, 10)
¤u§@ªí3.Cells(i + 3, 7) = arr(i, 11)
¤u§@ªí3.Cells(i + 3, 8) = arr(i, 7)
¤u§@ªí3.Cells(i + 3, 9) = arr(i, 6)
¤u§@ªí3.Cells(i + 3, 10) = arr(i, 19)
¤u§@ªí3.Cells(i + 3, 11) = arr(i, 20)
¤u§@ªí3.Cells(i + 3, 12) = arr(i, 23)
¤u§@ªí3.Cells(i + 3, 13) = arr(i, 24)
Next i
MsgBox "°õ¦æ®É¶¡ " & Timer - Time0 & " ¬í", vbOKOnly
End Sub

­ã´£³¡ªL

¨S¦³ÀÉ®×, ¤j·§²q¤@¤U:
Sub ¸ü¤J¸ê®Æ()
Dim Arr, Brr, i, S, j, Time0#
Time0 = Timer
Arr = ¤u§@ªí1.UsedRange
ReDim Brr(1 To UBound(Arr), 1 To 13)
S = Array(5, 2, 3, 8, 9, 10, 11, 7, 6, 19, 20, 23, 24)
For i = 1 To UBound(Arr)
¡@¡@For j = 1 To 13
¡@¡@¡@Brr(i, j) = Arr(i, S(j - 1))
¡@¡@Next j
Next i
¤u§@ªí3.[A4].Resize(UBound(Arr), 13) = Brr
MsgBox "°õ¦æ®É¶¡ " & Timer - Time0 & " ¬í", vbOKOnly
End Sub

s7659109

ÁÂÁª©¥D,ÁYµu3­¿(1.7~2¬í),¤@¼Ë³£¬O°}¦C,®t¦b¨º?
¥t¥~,²MªÅ¸ü¤J¤ñ­ì¦³¸ê®ÆÂл\ºC,¤S¬°¦ó?

­ã´£³¡ªL

¦^´_ 3# s7659109


¤u§@ªí3.Cells(i + 3, 1) = arr(i, 5)  ³o¤£¬O§¹¥þ¨Ï¥Î°}¦C, ¬O³v®æ¼g¤J
arr¬O¨Ó·½¸ê®Æ°}¦C, ¦ý­nÂà¼gªº¤]­n³]¤@­Ó°}¦C®e¯Ç, µ²§ô«á¦A¤@¦¸¼g¤J
¥H­ìµ{¦¡¥u¶·6.6¬í, ·Ó»¡µ¹ªºµ{¦¡À³1¬í¤º¥i§¹¦¨, ¨S¬ÝÀÉ®×µLªk´úª¾~~

²M°£©Îª½±µÂл\³t«×®t²§, ­n¬Ý[²M°£]°Ê§@¬O¤@¦¸ÁÙ¬O³v®æªº, ³t«×®t«Ü¦h~~

¥t¥~, ­n¼g¤Jªº°Ï°ì, ¦pªG¦³²o°Ê¤½¦¡¦Û°Ê­«ºâ, ¨º³t«×¤@©w·|ºC¤U¨Ó~~

s7659109

ÁÂÁÂ,¤S¤W¤F¤@½Ò¤F.