VBA 一次元配列のセルへの一括入力時のN/Aについて

Question

前提・実現したいこと

マクロ処理高速化のため、
セルへの入力内容を配列化⇒一括入力を身に着けようと思いテストをしています。

正しく実行されず、原因について知りたいです。

発生している問題・エラーメッセージ

配列に66,000個ほどの要素を入れたあたりから、
実行結果にN/Aが含まれるようになります。

要素の個数に応じて、N/Aが出る行が変わります。

該当のソースコード

Sub test()

Dim B(1 To 66000) As Variant
Dim i As Long

　For i = 1 To 66000
　　B(i) = i
　Next i

　Range(Cells(1, 1), Cells(66000, 1)) = WorksheetFunction.Transpose(B)

End Sub

試したこと

Debug.PrintでB(66000)に格納されている値を確認すると、
66000となっています。（For~Next部分での格納はできている？）

補足情報（FW/ツールのバージョンなど）

windows7, office365です。

ここにより詳細な情報を記載してください。

Answer 1

動的2次元配列の次元を入れ替えてシートへ出力（Transpose）｜VBA技術解説
上記の最後の方にTransposeについて制限の記述があります。

「VBA Transpose 制限」をキーワードに検索すると他にも事例が見つかります。

提示のコードなら、Transposeを使わずに最初から貼り付け範囲と同じサイズの2次元配列にしておけばいいのでは。

Sub test()

Dim B(1 To 66000, 1 to 1) As Variant
Dim i As Long

　For i = 1 To 66000
　　B(i, 1) = i
　Next i

　Range(Cells(1, 1), Cells(66000, 1)) = B

End Sub

Comments

[kurakawa]

早速ありがとうございました。
知識不足ではありますが、早めに気付けてよかったです。