回復 5#lichang
若真要看那麼多字元訊息，在想不到好的招數下，只能拆分後顯示於儲存格了。
如下範例：
Sub test()
For i = 1 To 1000
For j = 1 To 10
x = x & Right(j, 1)
Next j
Next i
MsgBox x '最多只能顯示1023個字元
MsgBox "其實 x 的字元長度是：" & Len(x)
' 將訊息以每50個字元拆分後放入儲存格
For i = 1 To Len(x) Step 50
r = r + 1
Cells(r, 1).NumberFormatLocal = "@"
Cells(r, 1).Value = Mid(x, i, 50)
Next i
End Sub
回復 3#lichang
執行後，所得的i值字元長度共66893個字元，其中最前面的64000個字元是空白字元。
因 MsgBox 的限制最多只能顯示1023個字元，所以 MsgBox i只能顯示66893字元的前1023個空白字元(類似無字天書)。
請用底下的來測試看看：
Sub test()
For i = 1 To 1000
For j = 1 To 10
x = x & Right(j, 1)
Next j
Next i
MsgBox x '最多只能顯示1023個字元
MsgBox "其實 x 的字元長度是：" & Len(x)
End Sub
發表於 2016-3-28 11:08
| 
