読み込みで一行おきに配列に格納

いつもお世話になっております
読み込みで一行おきに配列に格納したのですが、
できますでしょうか
理由は書き出すときに
添付ファイルのようにしたのです

わかる方おしえてくれませんでしょうか

Dim mData1 As Variant, mData2 As Variant

With Range("B2")
mData1 = .CurrentRegion.Value
End With

ReDim mData2(1 To UBound(mData1), 1 To UBound(mData1, 2))
Dim i As Long, j As Long, Cnt As Long

Cnt = 2

For i = 2 To UBound(mData1)
For j = 1 To UBound(mData1, 2)
mData2(i, j) = mData1(i, j)
Next j
Cnt = Cnt + 1
Next i

No.1 ベストアンサー 回答者： mygoonickname 回答日時： 2021/12/27 22:25

こんばんは。

例えば、下記の様な感じでしょうか？　手入力で実際に試していないので、
若しかしたら、エラーになるかも知れませんが。。。

Dim mData1 As Variant, mData2() As String
Dim i As Long, j As Long

With Range("B2")
mData1 = .CurrentRegion.Value
End With

Redim mData2(UBound(mData1)*2-3,UBound(mData1, 2))

For i = 2 To UBound(mData1)
For j = 1 To UBound(mData1, 2)
mData2(i*2-3, j) = mData1(i, j)
Next j
Next i

この回答へのお礼

ありがとうございました。
まさしく　これです。
配列に一行おきに格納して
吐き出すほうが早いと思いました。
ありがとうございました。

お礼日時：2021/12/27 22:45