- 帖子
- 151
- 主題
- 1
- 精華
- 0
- 積分
- 197
- 點名
- 14
- 作業系統
- windwos 7
- 軟體版本
- 64bit
- 閱讀權限
- 20
- 註冊時間
- 2017-5-29
- 最後登錄
- 2024-4-18
|
回復 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 |
|
發表於 2020-7-11 01:47
| 