- ©«¤l
- 2805
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 2861
- ÂI¦W
- 0
- §@·~¨t²Î
- ¡e²¤¡f
- ³nÅ骩¥»
- ¡e²¤¡f
- ¾\ŪÅv
- 100
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¡e²¤¡f
- µù¥U®É¶¡
- 2013-5-13
- ³Ì«áµn¿ý
- 2024-5-4
|
¨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 |
|