全範囲を別シートに1列に並び変える

【シート2】

1行目は見出し
A列はナンバリング

内容は B2 ~

【シート1】

A2 ~縦に1列に

範囲を1列にの悩み…

A1・B1・C1
A2・B2・C2
A3・B3・C3

A1
A2
A3
B1
B2
B3
C1
C2
C3

と、1列に並び変えるマクロは情報があるけれど

A1
B1
C1
A2
B2
C2
A3
B3
C3

と、並び変るものが見当たらない

コード A・B・C順に並び変える

Sub 並び替え()

Set st1 = Sheets("sheet2")
Set st2 = Sheets("sheet1")

n = 2

For i = 2 To st1.Cells(Rows.Count, 1).End(xlUp).Row
For j = 2 To st1.Cells(i, Columns.Count).End(xlToLeft).Column

st2.Cells(n, 1) = st1.Cells(i, j)
n = n + 1
Next
Next
End Sub

Follow me!