[[20141211092013]]　『エクセルの並べ替え　複数行ある場合の並べ替え』（ゆみ）　ページの最後に飛ぶ

『エクセルの並べ替え　複数行ある場合の並べ替え』（ゆみ）

エクセルの並べ替えについての質問です。
下のような表があるのですが作成した後にコード順に並べ替えできないかと言われ困っています。

一気に並べ替えができるいい方法はないでしょうか？

　 A 　　　B C D
1 4月　　　　　 5月

2 社名　　　発注金額　　　1000

3　　　　　支払金額1　　　200

4 ｺｰﾄﾞ番号支払金額2　　　400

5　　　　　支払金額3　　　300

6　　　　　支払合計　　　 900

2行目から6行目がひとつの括りでこのひと括りづつ、会社ｺｰﾄﾞ順に並べ替えたいです。
色々調べたのですがわかりません。どなたかいいお知恵があれば教えてください。
よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 Sub test()
    Dim i As Long
    Dim j As Long
    Dim iMax As Long

    iMax = Cells(Rows.Count, "B").End(xlUp).Row

    For i = 2 To iMax Step 5
        For j = i + 5 To iMax Step 5
            If Cells(j + 2, "A").Value < Cells(i + 2, "A").Value Then
                Rows(j & ":" & j + 4).Cut
                Rows(i).Insert shift:=xlDown
            End If
        Next j
    Next i
End Sub
（???） 2014/12/11(木) 09:55

	A	B	C	D	E
1				4月	5月
2	3	AAA	発注	1000	
3	3		支払1	200	
4	3	3	支払2	400	
5	3		支払3	300	
6	3		合計	900	
7	1	BBB	発注	1000	
8	1		支払1	200	
9	1	1	支払2	400	
10	1		支払3	300	
11	1		合計	900	
12	2	CCC	発注	1000	
13	2		支払1	200	
14	2	2	支払2	400	
15	2		支払3	300	
16	2		合計	900

 A列追加。

 A2 =IF(B4="","",B4) A3 =IF(B4="","",B4) ・・・ 以下 A6まで一緒。

 A2:A6を下へコピー。

 A列基準で並び替え。 その後A列削除。
　
（GobGob） 2014/12/11(木) 09:58

???様　GobGob様

ありがとうございます。
今回はGobGob様のやり方でやらせていただきました。
言われてみれば・・・。という感じで大変参考になりました。

？？？様もありがとうございました。

また何かありましたらお知恵をお貸しいただけたら幸いです。
よろしくお願いいたします。

（ゆみ） 2014/12/11(木) 15:14

コメント返信：

[ 一覧(最新更新順) ]

[[20141211092013]] 『エクセルの並べ替え 複数行ある場合の並べ替え』（ゆみ） ページの最後に飛ぶ

[[20141211092013]]　『エクセルの並べ替え　複数行ある場合の並べ替え』（ゆみ）　ページの最後に飛ぶ