Sub test01()
s = ""
'For i = 1 To 32768
For i = 1 To 32768 / 2 + 2
's = s & "a"
' s = s & "全"
s = s & "全a"
Next i
Cells(1, "A") = s
MsgBox Len(Cells(1, "A"))
End Sub
をやってみた。
行先頭にアポストロフィをつけると、無効化するので,
繰り返し回数 と
中身(半角文字、全角文字、半角・全角混合 に付いて
1つだけ残して実行してみました。
(1)aの場合、繰り返しを32768にしても、32767 (エラーにはならなかった)
(2)「全」の場合も同じ
(3)「全a」の場合も、32767/2+2(半分+2)回の繰り返しで
32767
Len関数の働きの中身も注意を向ける必要があるが、今までの知識と実験結果から、#2のご回答が正しいと思います。
お礼
ありがとうございました。どの答えが正しいのかわからなかったので、参考になりました。