vba 行のデータを1列に表示するコード 各行に3つのデータが入っております。 これらをE列のように1行にまとめたいです。

画像

Visual Basic18閲覧

ベストアンサー

0

ThanksImg質問者からのお礼コメント

ご回答いただきありがとうございました。 こんなにもシンプルなコードで出来ちゃうのですね。 今後ともよろしくお願いいたします。

お礼日時:6/13 22:08

その他の回答(1件)

0

Sub Rearrangement() Dim i As Long, j As Long, cnt As Long, lastRow As Long Dim dataList() As Variant lastRow = Cells(Rows.Count, "A").End(xlUp).Row cnt = 1 ReDim dataList(1 To (lastRow - 1) * 3, 1 To 1) For i = 0 To lastRow - 2 For j = 0 To 2 dataList(cnt, 1) = Range("A2").Offset(i, j).Value cnt = cnt + 1 Next j Next i Range("E2").Resize(UBound(dataList)) = dataList End Sub