エクセルの学校：全文検索：Hyper Estraier：並べ替え

Results of 1 - 1 of about 2689 for 並べ替え (0.002 sec.)

[[20141211092013]]: #score: 4561; @digest: c6398bc5ab3d27a879307d2e0256f6c9; @id: 66821; @mdate: 2014-12-11T06:14:28Z; @size: 1998; @type: text/plain; #keywords: 払3 (18595), 払1 (17876), 注10 (16556), 払2 (15535), 計90 (14814), 支払 (7401), 下a6 (7005), 払金 (5686), 号支 (5365), 払合 (4947), ド順 (4202), 注金 (2945), 名発 (2882), 社コ (2618), imax (2405), 括り (2311), 発注 (2283), 列基 (2241), 後a (2022), 額10 (1976), 額3 (1525), 列追 (1423), 列削 (1230), 額1 (1221), ・以 (1136), ド番 (1125), 月5 (899), べ替 (809), 変参 (793), 額2 (748), 金額 (684), 並べ (681); 『エクセルの並べ替え 複数行ある場合の並べ替え』（ゆみ）
エクセルの並べ替えについての質問です。下のような表があるのですが作成した後にコード順に並べ替えできないかと言われ困っています。一気に並べ替えができるいい方法はないでしょうか? 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 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/201412/20141211092013.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ