この程度のものは＞コメント付きで解説いただけると、なんて言わず、勉強するべきだ。 ＡＢＣ　とＥＦＧ　とＩＪＫ列のデータの最終行は、Ａ，Ｅ，Ｉ列の最下行を割り出せば良いだろう。 最下行番号は Sub test01() 'A列の最終行の行番号 d1 = ActiveSheet.Range("A65536").End(xlUp).Row MsgBox d1 End Sub で判る。それが判れば、その範囲Ａ，Ｂ，Ｃ列の範囲は range("A2:Ｃ" & d1).Copyでコピー出来る。 これをＭＮＯ列に貼り付ける。 Sub test01() d1 = ActiveSheet.Range("A65536").End(xlUp).Row MsgBox d1 Range("A2:C" & d1).Copy Destination:=Range("M2") End Sub その後のＥＦＧ列データの場合は、Ｍ列のデータの最終行の次行からに貼り付ける。最初は第２行目であるが、ＥＦＧ，ＩＪＫの場合に行くにつれ下に下がった位置になる。 ーー あとＭＮＯ列データを日付でソートしているようだ。 これはマクロの記録を採ればよい。 範囲の最終行は上記のコードの応用で出来る。ＭＮＯ列を範囲指定してソートしないと全列がソートされてしまうので注意。 ーー 上記のコード例のEnd(xlUp).Row はその列の十分下の方のセルを選択しておいて、ＥＮＤキーを押し、上矢印キーを押す操作なんです。これを知っておれば、マクロの記録を採れば、どういうコードになるか分かる。

こんばんは！ 一例です。 Sub test() Dim i, j As Long For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row For j = 1 To 9 Step 4 With Cells(Rows.Count, 13).End(xlUp).Offset(1) .Value = Cells(i, j) .NumberFormatLocal = "m/d" .Offset(, 1) = Cells(i, j + 1) .Offset(, 2) = Cells(i, j + 2) End With Next j Next i Dim k As Long k = Cells(Rows.Count, 13).End(xlUp).Row Range(Cells(2, 13), Cells(k, 15)).Sort Key1:=Cells(i, 13), order1:=xlAscending End Sub こんな感じですかね？m(__)m

この程度の作業なら、マクロを使わなくても一般機能だけで簡単にデータの編集ができます。 例えば、A2セルからC100セル（実際のデータよりも大きめに選択するとよい）を選択して、Ctrl+Cでコピーし、M2セルを選択してCtrl+Vで貼り付けます。 同様にD2セルからF100セルを選択してコピーし、M101セルを選択して貼り付け、さらにG2セルからJ100セルを選択してコピーし、M201セルを選択して貼り付けます。 最後にM1セルからO300セルを選択して「データ」並べ替え」でＡ列を基準に昇順で並べ替えれば完成です。 この操作を「新しいマクロの記録」で実行すれば、マクロでご希望の操作を実行することができます。 ＃エクセルのバージョンによって操作法や使用できる機能や関数が異なりますので、質問の際には必ずバージョンを明記するようにしましょう。