全範囲を別シートに1列に並び変える
【シート２】
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
