samwang

¦^´_ 11# wang077

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

Sub test1()
Dim Arr, Ar(1 To 3)
Arr = Range([a1], [a65536].End(3))
x = 1: y = 2
For i = 1 To UBound(Arr)
    For j = 1 To 3
        N = N + 1: If N > UBound(Arr) Then GoTo 99
        Ar(j) = Arr(N, 1)
    Next
    Cells(x, y).Resize(3, 1) = Application.Transpose(Ar)
    If y < 6 Then y = y + 1 Else x = x + 3: y = 2
99: Next
End Sub

wang077

¦^´_ 10# samwang
¤j¯«

¤U¸ü (225.26 KB)

2021-6-23 15:30

¦pªGAÄæ¼Æ­È¦³N­Ó©O?
¦Ó¥B³Ì¦h±Æ5­ÓÄæ¦ì¦Ó¤w

samwang

¦^´_ 9# wang077


3¼Óµ{¦¡½X¨S°ÝÃD¦pªþ¥ó¡A½Ð¦A´ú¸Õ¬Ý¬Ý¡AÁÂÁ¡C

wang077

¦^´_ 6# wang077

¤U¸ü (212.27 KB)

2021-6-22 23:32

´N¬O¨Ò¦p¹Ï¤ù
§ÚAÄ椤ªº¼Æ­È
­n§â¥¦¤À¦¨¤­¦æ¨Ó±Æ¦C
±Æ¦C¤è¦¡A1:A3ªº¼Æ­È¦bB1:B3
A4:A6ªº¼Æ­È¦bC1:C3
¥H¦¹Ãþ±À¡C

wang077

¦^´_ 3# samwang
For i = 1 To UBound(Arr)
³o¬qÅã¥Ü¸ê®Æ«¬ºA¿ù»~

samwang

¦^´_ 5# wang077


¤£¦n·N«ä¡A¯uªº¤£¯à²z¸Ñ±zªº»Ý¨D¡A©ÎªÌ±z¥i¥Hªþ¤W¦³¸ÑµªªºÀÉ®×¥B»¡©ú¸Ô²Ó±ø¥ó³W«h¡A·PÁ¡C

wang077

¦^´_ 4# hcm19522
¦³¿ìªk¨Ï¥Îvba¨Ó°µ¶Ü

wang077

¦^´_ 2# samwang
¥´¿ù¤F À³¸Ó¬O3­Ó¼Æ­È¤@¦æ¡AµM«á­­¨î³Ì¦h5¦æ¡A¼Æ­È¤£¤@©w¬O1¡ã15¡A¤W­±¹Ï¤ù¥u¬O¥Ü·N¹Ï

hcm19522

https://blog.xuite.net/hcm19522/twblog/589846795

samwang

¦^´_ 1# wang077

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

Sub test()
Dim Arr, Ar(1 To 3)
Arr = Range([a1], [a65536].End(3))
y = 2
For i = 1 To UBound(Arr)
    For j = 1 To 3
        N = N + 1: If N > UBound(Arr) Then GoTo 99
        Ar(j) = Arr(N, 1)
    Next
    Cells(1, y).Resize(3, 1) = Application.Transpose(Ar)
    y = y + 1
99: Next
End Sub