エクセルでこんな並べ替えできますか？

質問

A,B,C,D列に次のような文字列が入っていたとします。
A1　B1　C1　D1
A2　B2　C2　D2
A3　B3　C3　D2

これをどこかの列に次のように並べ替えたいのですが。
A1
B1
C1
D1
A2
B2
C2
D2
A3
B3
C3
D3

実際は各行が100以上ありますし、列の数も場合により変ります。

よろしくお願いします。

回答No.2

Wendy02 · ベストアンサー

こんばんは。Wendy02です。

式でしたら、このようになります。

=OFFSET($A$1,INT((ROW(A1)-1)/4),MOD(ROW(A1)-1,4))

マクロでしたら、このようにしたら良いです。
他のシートにも移すことは可能です。なお、上書きも可能ですが、隣の列にあるものは削除しません。

'<標準モジュール推奨>
'----------------------------------------------
Sub ColumnPaste()
　 Dim r1 As Range
　 Dim r2 As Range
　 Dim rng As Range
　 Dim c As Range
　 Dim i As Long
　 Dim ar() As Variant
　 On Error Resume Next
　 Set r1 = Application.InputBox("コピーする左端上のセルを選んでください。", "コピー", "$A$1", Type:=8)
　 If r1 Is Nothing Then Exit Sub
　 Set r2 = Application.InputBox("ペーストするセルを選んでください。", "ペースト", "$G$1", Type:=8)
　 If r2 Is Nothing Then Exit Sub
　 On Error GoTo 0
　 Set rng = r1.CurrentRegion
　 For Each c In rng
　　　ReDim Preserve ar(i)
　　　ar(i) = c.Value
　　　i = i + 1
　 Next c
　 Application.Goto r2
　 Application.ScreenUpdating = False
　 r2.Cells(1).Resize(UBound(ar()) + 1).Value = WorksheetFunction.Transpose(ar())
　 Application.ScreenUpdating = True
Set r1 = Nothing: Set r2 = Nothing : Set rng = Nothing
End Sub
'----------------------------------------------