[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『エクセルの並べ替え 複数行ある場合の並べ替え』(ゆみ)
エクセルの並べ替えについての質問です。
下のような表があるのですが作成した後にコード順に並べ替えできないかと言われ困っています。
一気に並べ替えができるいい方法はないでしょうか?
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様のやり方でやらせていただきました。
言われてみれば・・・。という感じで大変参考になりました。
???様もありがとうございました。
また何かありましたらお知恵をお貸しいただけたら幸いです。
よろしくお願いいたします。
(ゆみ) 2014/12/11(木) 15:14
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.