返回列表 上一主題 發帖

[發問] 請教 陣列/數組 如何每5個一行顯示 出來??

回復 2# adrian_9832


Sub test()
    lastrow = Range("A1").CurrentRegion.Rows.Count
    For i = 1 To lastrow
        s = s & Cells(i, 1) & IIf(i Mod 5 = 0, vbNewLine, IIf(i = lastrow, "", ","))
    Next i
    MsgBox s
End Sub

TOP

        靜思自在 : 話多不如話少,話少不如話好。
返回列表 上一主題