エクセル のマクロで 複数の表を1つにまとめたい

質問

エクセル　のマクロで　複数の表を1つにまとめたい
下記のようなシートがあります。
Sheet1
A B C E F G I J K
1 日付　 品名 数 日付　 品名 数 日付　 品名 数
2 1/1　 みかん 100 1/2 りんご 50 1/1 バナナ 30
3 1/5　 みかん 50 1/6 りんご 25 1/7 バナナ 20
4 1/10 みかん 30 1/11 りんご 15 1/10 バナナ 10
5 1/12 りんご 30 1/11 バナナ 10
6 1/13 りんご 50

みかん・りんご・バナナのそれぞれの表をマクロで下記のような1つの表ににまとめたいのですが
どのようにしたら良いかご教授お願いいたします。
（初心者なので可能であればマクロ内で’コメント付きで解説いただけると助かります）

　M N O
1 日付 品名 数
2 1/1 みかん 100
3 1/1 バナナ 30
4 1/5 みかん 50
5 1/6 りんご 25
6 1/7 バナナ 20
7 1/10 みかん 30
8 1/10 バナナ 10
9 1/11 りんご 15
10 1/11 バナナ 10
11 1/12 りんご 30
12 1/13 りんご 50

うまく説明できないのでイメージ画像を添付いたします。

回答No.3

tom04 · ベストアンサー

No.2です！
各行の説明をご希望だということなので・・・

もう一度コードをコピー＆ペーストします。

Sub test()
'変数の宣言（長整数型）
Dim i, j As Long

'変数「i」は2～A列最終行まで
For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

'変数「j」は1～9まで4行置き（A・E・I列を取得）
For j = 1 To 9 Step 4

'M列最終行の1行下の・・・
With Cells(Rows.Count, 13).End(xlUp).Offset(1)

'値はi行j列目の値
.Value = Cells(i, j)

'表示形式は「月/日」
.NumberFormatLocal = "m/d"

'M列最終行の1行下の1列右隣の値はセル番地（i,j)の1列右隣の値
.Offset(, 1) = Cells(i, j + 1)

'M列最終行の1行下の2列右隣の値はセル番地（i,j)の2列右隣の値
.Offset(, 2) = Cells(i, j + 2)

End With

'次の「ｊ」で同様の操作　→　次の「i」で同様の操作（変数宣言の最後まで）
Next j
Next i

'変数の宣言
Dim k As Long

'kはM列の最終行
k = Cells(Rows.Count, 13).End(xlUp).Row

'M2セル～O列最後の範囲をM1セルのキーで昇順に並び変え
Range(Cells(2, 13), Cells(k, 15)).Sort Key1:=Cells(i, 13), order1:=xlAscending
End Sub

長々と失礼しました。m(__)m

お礼

解説までつけていただきありがとうございます。
大変参考になりました。

回答No.4

imogasi

この程度のものは＞コメント付きで解説いただけると、なんて言わず、勉強するべきだ。
ＡＢＣ　とＥＦＧ　とＩＪＫ列のデータの最終行は、Ａ，Ｅ，Ｉ列の最下行を割り出せば良いだろう。
最下行番号は
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
はその列の十分下の方のセルを選択しておいて、ＥＮＤキーを押し、上矢印キーを押す操作なんです。これを知っておれば、マクロの記録を採れば、どういうコードになるか分かる。

回答No.2

tom04

こんばんは！
一例です。

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

補足

ご指導ありがとうございます。

なにぶん初心者なもので・・・
マクロの各行がどのような処理なのか？？？？

可能であれば各行でコメント解説いただければありがたいのですが。

よろしくお願いいたします。

回答No.1

MackyNo1

この程度の作業なら、マクロを使わなくても一般機能だけで簡単にデータの編集ができます。

例えば、A2セルからC100セル（実際のデータよりも大きめに選択するとよい）を選択して、Ctrl+Cでコピーし、M2セルを選択してCtrl+Vで貼り付けます。

同様にD2セルからF100セルを選択してコピーし、M101セルを選択して貼り付け、さらにG2セルからJ100セルを選択してコピーし、M201セルを選択して貼り付けます。

最後にM1セルからO300セルを選択して「データ」並べ替え」でＡ列を基準に昇順で並べ替えれば完成です。

この操作を「新しいマクロの記録」で実行すれば、マクロでご希望の操作を実行することができます。

＃エクセルのバージョンによって操作法や使用できる機能や関数が異なりますので、質問の際には必ずバージョンを明記するようにしましょう。