samwang

¦^´_ 1# wang077

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

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

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

samwang

¦^´_ 5# wang077


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

samwang

¦^´_ 9# wang077


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

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

samwang

¦^´_ 13# wang077


¦]¬°±zªº³W«h¤£©ú½T¦³°ÝÃD¡A²{¦b»Ý¨DAÄæ¦ì¥u¨ì20µ§
¦pªGAÄæ¦ì°²³]¶W¹L20µ§¥H«á¡A­n«ç»ò³B²z??

samwang

¦^´_ 15# wang077

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

Sub test2()
Dim Arr, Ar(), N%, M%, x%, y%
Arr = Range([a1], [a65536].End(3))
M = Int(UBound(Arr) / 5): x = 1: y = 2
If M < 1 Then
    Cells(x, y).Resize(, UBound(Arr)) = Application.Transpose(Arr)
Else
    For i = 1 To UBound(Arr)
        ReDim Ar(1 To M)
        If N = UBound(Arr) Then GoTo 99
        If N = M * 5 Then
            ReDim Ar(1 To UBound(Arr) - N)
            For j = 1 To UBound(Arr) - N: N = N + 1: Ar(j) = Arr(N, 1): Next
            Cells(x, y).Resize(, UBound(Ar)) = Ar: Exit For
        End If
        For j = 1 To M: N = N + 1: Ar(j) = Arr(N, 1): Next
        Cells(x, y).Resize(UBound(Ar), 1) = Application.Transpose(Ar)
        Erase Ar
        If y < 6 Then y = y + 1 Else x = x + M: y = 2
99: Next
End If
End Sub

samwang

¦^´_ 18# wang077

¤£¦n·N«ä¡A¤£¤Ó¼ô±xCSVÀɮ׳o³¡¤À¡A«Øij¥i¥H¨ìExcel µ{¦¡°Ïµo¤å¡A¨ºùØ°ÝÃD¤ñ¸û¦h¤H¦bÃöª`©Î³\¥i¸Ñ±zªº°ÝÃD¡A·PÁ¡C

samwang

¦^´_ 18# wang077

¥i¥Hªþ¤WÀɮסA§ÚÀ°¦£¬Ý¬Ý¬O§_¦³¸Ñ¡AÁÂÁÂ