こんな感じかな
Sub test() Dim a(10,1) as variant For b=0 to 10 a(b,0)=b a(b,1)=b*2 Next Range(cells(1,1),cells(b,2))=a End Sub…マァこんな事は普段からやっている人たちには常識的なことなんだろうが、本人用備忘録ということで。配列の書き出し方なんぞFor~Next文使うんだと思ってたわ。
Sub test() Dim a(10,1) as variant For b=0 to 10 a(b,0)=b a(b,1)=b*2 Next Range(cells(1,1),cells(b,2))=a End Sub…マァこんな事は普段からやっている人たちには常識的なことなんだろうが、本人用備忘録ということで。配列の書き出し方なんぞFor~Next文使うんだと思ってたわ。