エクセルマクロでのセル一括入力

質問

マクロで、
ファイル（csv)から文字列を取得して、Ａ列に順番に設定したいのですが、一つずつセルに設定すると数が多いのでとても時間がかかります。

そこで、一度に複数のセルに、違う文字列を設定することは可能ですか？

回答No.1

moon_piyo · ベストアンサー

こんな感じですかね～

Sub foo()
Dim x(65535, 0)
Dim i As Long
Dim ln As String

i = 0
Open "c:\bar.txt" For Input As 1
Do While Not EOF(1)
Line Input #1, ln
x(i, 0) = ln
i = i + 1
Loop
Close #1
Range("a1:a" & i).Value = x
End Sub

お礼

できるんですね。
ありがとうございます。
大変助かりました。