[[20090603103432]]　『行の並び替えを教えてください。』（opg）　ページの最後に飛ぶ

『行の並び替えを教えてください。』（opg）

たとえば、セルの　C4～Z4　まで地名の文字列が入力しています。

その下の　　　　　　C5～Z5　まで数値が入力しています。

その2行を数値を基準に並び替えをします。

その並び替えが、2行を単位に300行ほどあります。

セルを選択しながら行を並び替えるのは判りますが、同じ動作を300回も

繰り返さなければなりません。簡単な方法は有りませんか

教えて下さい。宜しくお願い致します。

 範囲を選択して並べ替えをしたら、
 次から、範囲を選択 [ F4 ]で先ほど行った並べ替えと
 同じ並べ替えが出来るように成ります。
 150回範囲を選択するのは手間ですが
 150回　メニュー→並べ替え・・・　とする手間は省けます。

 例えば、2行の数値に重複が無いのなら　別セルに
 数式を使用して簡単に並べることが出来そうです。

 2行ずつの150setに対して　順番に自動的に
 並べ替えをしたいなら、マクロに成ると思います。

 「たとえば」でなく、詳細を書いてみられてはどうでしょう。

 また、並べ替えの手順をマクロの記録にして
 そのコードを載せてもらっておくと良いと思います。

 マクロの記録は、こちらをご参考に。
http://www.excel.studio-kazu.jp/lib/e4b/e4b.html
 ●記録開始
 １．範囲を選択
 ２．オプションで情報を指定して並べ替え
 ■記録終了
 の作業をして、コードを載せて下さい。

 (HANA)
ご回答有難うございます。詳細をを書いてみます。

　　　A 　　　　　　　　B　　　　　C　　　　　　D　　　　　　E　　　

1　　　　　　　　　　青森　　　　八戸　　　　秋田　　　　盛岡

2　A商店（株）　　　　500　　　1,200　　　　200　　　　2,000

3　　　　　　　　　　青森　　　　八戸　　　　秋田　　　　盛岡

4　B物産（株）　　　1,800　　　　200　　　　　600　　　　　50

5　　　　　　　　　　青森　　　　八戸　　　　秋田　　　　盛岡

6　C販売(株)　　　　　　0　　　　55　　　　　919　　　　　65

1行目2行目を一緒にB～Eまで選択して、2行を優先して降順に並び替えます。

3行目4行目を一緒にB～Eまで選択して、4行を優先して降順に並び替えます。

この繰り返しが、300程あります。

この説明でお分かり戴けるでしょうか、宜しくお願い致します。

 それで、マクロの記録の方は・・・？

 実際のデータ配置も
 いきなり１行目から始まっているし
 B:Eの範囲を並べ替えるのでしょうか？

 (HANA)

 ご提示の例なら、こんな感じで。

 '------
Sub ColumnSort()
Dim i As Long, mr As Long
mr = Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To mr Step 2
        With Range("B1").Offset(i - 1).Resize(2, 4)
        .Sort Key1:=.Range("A2"), Order1:=xlDescending, _
            Header:=xlNo, Orientation:=xlLeftToRight
        End With
    Next
End Sub
 '------

 なお　返信は、下のコメント欄から行って下さい。

 (HANA)

回答有難うございました。

説明が旨く表現できなくて申し訳ありません。

的確なご返事戴きまして、思いどうりの作業が出来ました。

有難うございます。

コメント返信：

[ 一覧(最新更新順) ]

[[20090603103432]] 『行の並び替えを教えてください。』（opg） ページの最後に飛ぶ

[[20090603103432]]　『行の並び替えを教えてください。』（opg）　ページの最後に飛ぶ