返回列表 上一主題 發帖

[發問] 一列只能有五個數值

[發問] 一列只能有五個數值

本帖最後由 wang077 於 2021-6-21 16:51 編輯

各位大神請問

如何用VBA懹原本直的1~15
每五個數值排一行

本帖最後由 samwang 於 2021-6-22 08:33 編輯

回復 1# wang077

不好意思對文字理解不太好,看了似懂非懂,請問規則為何? 可否再加說明詳細或附上解答,謝謝。

每五個數值排一行: 亂數,可重複...

TOP

回復 1# wang077

請測試看看,謝謝。

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

google"EXCEL迷"  blog  或google網址:https://hcm19522.blogspot.com/

TOP

回復 2# samwang
打錯了 應該是3個數值一行,然後限制最多5行,數值不一定是1~15,上面圖片只是示意圖

TOP

回復 4# hcm19522
有辦法使用vba來做嗎

TOP

回復 5# wang077


不好意思,真的不能理解您的需求,或者您可以附上有解答的檔案且說明詳細條件規則,感謝。

TOP

回復 3# samwang
For i = 1 To UBound(Arr)
這段顯示資料型態錯誤

TOP

回復 6# wang077

就是例如圖片
我A欄中的數值
要把它分成五行來排列
排列方式A1:A3的數值在B1:B3
A4:A6的數值在C1:C3
以此類推。

TOP

回復 9# wang077


3樓程式碼沒問題如附件,請再測試看看,謝謝。

活頁簿1.zip (14.1 KB)

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題