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

[µo°Ý] ¤@¦C¥u¯à¦³¤­­Ó¼Æ­È

[µo°Ý] ¤@¦C¥u¯à¦³¤­­Ó¼Æ­È

¥»©«³Ì«á¥Ñ wang077 ©ó 2021-6-21 16:51 ½s¿è

¦U¦ì¤j¯«½Ð°Ý
1.png
2021-6-21 16:51

§Ú¦p¦ó¥ÎVBAôJ­ì¥»ª½ªº1~15
¨C¤­­Ó¼Æ­È±Æ¤@¦æ

¥»©«³Ì«á¥Ñ samwang ©ó 2021-6-22 08:33 ½s¿è

¦^´_ 1# wang077

¤£¦n·N«ä¹ï¤å¦r²z¸Ñ¤£¤Ó¦n¡A¬Ý¤F¦üÀ´«DÀ´¡A½Ð°Ý³W«h¬°¦ó? ¥i§_¦A¥[»¡©ú¸Ô²Ó©Îªþ¤W¸Ñµª¡AÁÂÁ¡C

¨C¤­­Ó¼Æ­È±Æ¤@¦æ: ¶Ã¼Æ¡A¥i­«½Æ...

TOP

¦^´_ 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

TOP

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

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

TOP

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

TOP

¦^´_ 5# wang077


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

TOP

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

TOP

¦^´_ 6# wang077
1.jpg
2021-6-22 23:32

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

TOP

¦^´_ 9# wang077


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

¬¡­¶Ã¯1.zip (14.1 KB)

TOP

        ÀR«ä¦Û¦b : ¤@­Ó¤H¤£©È¿ù¡A´N©È¤£§ï¹L¡A§ï¹L¨Ã¤£Ãø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD