プリズムの煌めきを探して

@shohei_tpcのブログです

Excelの質問

f:id:xyz_1031:20180429094835p:plainおはようございます。

Excelのシート1に一覧表を書いて、シート2はセルを結合した後にシート1の内容をオートフィルで上から順に並べたいのですが
うまくできません。どなたかやり方を教えていただけますでしょうか。

f:id:xyz_1031:20180429094827p:plainf:id:xyz_1031:20180429094835p:plain

飛び飛びにならないようにしたいです。


追記

VBAで余裕でしたね
f:id:xyz_1031:20180709000442p:plainf:id:xyz_1031:20180709000448p:plain

Sub Module1()
Dim n, i, count As Long
count = Sheet1.Cells(Rows.count, 1).End(xlUp).Row

For i = 1 To count
n = 2 * i - 1
Sheet2.Cells(n, 1).Value = Sheet1.Cells(i, 1).Value
Next i

End Sub