新手想請問VBA

本帖最後由 speed 於 2019-2-21 12:18 編輯

擷取.JPG
2019-2-21 12:15


我有一個VBA係要用到LOOP去搵結果,但排出黎的結果係一欄一次過SHOW,我嫌太長想將佢分開5欄顯示,之前問過人,用LOOP只可以分2欄單,雙, 3欄以上就做唔到

Dim i As Integer
    For i = 1 To 10
        Dim row As Integer
        Dim col As Integer
        row = Int((i - 1) / 5) + 1
        col = ((i - 1) Mod 5) + 1
        ActiveSheet.Cells(row, 5+ col).Value = i
    Next

TOP

回覆 2# clio

如果資料唔係數字,係中文字的話呢個方法行唔行得通?

TOP

ActiveSheet.Cells(row, 3 + col).Value = ActiveSheet.Cells(i, 1).Value

VBA.jpg
2019-2-21 14:53

TOP