excelで複数列にまたがった同じ繰り返しのデータを1列にまとめたい

以下のような同じ規則のデータ（ＡＢ列　ＣＤ列　ＥＦ列）が列方向に複数あった場合ＡＢ列に積み重ねたいです。列の繰り返し数も行数もバラバラです。
できればＶＢＡで教えてください。
よろしくおねがいします。


変更前
A列 B列 C列 D列 E列 F列
項目 値 項目 値 項目 値
あ-1 10 あ-2 11 あ-3 12
い-1 20 い-2 21 い-3 22
う-1 30 う-2 31 う-3 32
え-1 40 え-2 41
お-1 50

↓

変更後
A列 B列 C列 D列 E列 F列
項目 値
あ-1 10
い-1 20
う-1 30
え-1 40
お-1 50
あ-2 11
い-2 21
う-2 31
え-2 41
あ-3 12
い-3 22
う-3 32

No.1 ベストアンサー 回答者： WindFaller 回答日時： 2018/05/22 01:08

これは、単に載せ替えるだけのマクロです。

最後に、C1から終わりまでを削除してしまいます。

'//標準モジュール
Sub CmbinetoABCol()
Dim LastCol As Long
Dim LastRow As Long
Dim j As Long
Dim r As Range
LastCol = Cells(1, Columns.Count).End(xlToLeft).Column
LastRow = Cells(1, 1).SpecialCells(xlCellTypeLastCell).Row
For j = 3 To LastCol Step 2
　Set r = Range(Cells(2, j), Cells(Rows.Count, j).End(xlUp).Offset(, 1))
　r.Copy Cells(Rows.Count, 1).End(xlUp).Offset(1)
Next j
'--------消去----------ダイアログが邪魔でしたら、削除してよいです。
If MsgBox("コピーし終わりましたので、削除してよろしいですか？", vbOKCancel) = _
vbCancel Then Exit Sub
Range(Cells(1, 3), Cells(LastRow, LastCol)).ClearContents
End Sub

この回答へのお礼

ありがとうございました。
助かりました。

お礼日時：2018/05/22 06:38