マクロを使い選択範囲を次々と変えて並べ替えたい

質問

マクロ作成は

範囲選択　Ａ４～Ｇ１２
マクロ記録開始
並べ替え
E列
降順
マクロ記録終了

でマクロを作成し
次に範囲選択　Ａ１４～Ｇ２２でこのマクロを実行すると範囲選択が前と同じＡ４～Ｇ１２が並べ替えられてしまいます。
マクロの中を見ると範囲選択　Ａ４～Ｇ１２が書かれてしまっています。

次のように、選択範囲を次々と変えて並べ替えるマクロを作りたいのですがお教え願います。

１．
範囲選択　Ａ４～Ｇ１２を選択
マクロ実行で選択範囲をE列の値で降順並べ替える

２．
範囲選択　Ａ１４～Ｇ２２を選択
マクロ実行で選択範囲をE列の値で降順並べ替える

３．
範囲選択　Ａ２８～Ｇ３２を選択
マクロ実行で選択範囲をE列の値で降順並べ替える

回答No.4

keithin · ベストアンサー

準備：
Ａ４：Ｇ１２を選択する
マクロの記録を開始する
「相対参照」を選択　『しない』
Ｅ列の降順で並べ替える（先頭行を見出しにするか否か適切に設定する）
記録終了する

ＡＬＴ＋Ｆ１１でマクロを確認すると、次のようなのが記録されています

Sub Macro1()
'
' Macro1 Macro
'

'
　ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
　ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("E4:E12") _
　　, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
　With ActiveWorkbook.Worksheets("Sheet1").Sort
　　.SetRange Range("A4:G12")
　　.Header = xlGuess
　　.MatchCase = False
　　.Orientation = xlTopToBottom
　　.SortMethod = xlPinYin
　　.Apply
　End With
End Sub

このうちの「２か所」を、次の通りに書き換えます

Sub Macro1()
'
' Macro1 Macro
'

'
　ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
　ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("E:E") _
　　, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
　With ActiveWorkbook.Worksheets("Sheet1").Sort
　　.SetRange selection　　
　　.Header = xlGuess
　　.MatchCase = False
　　.Orientation = xlTopToBottom
　　.SortMethod = xlPinYin
　　.Apply
　End With
End Sub

あとは
範囲選択　Ａ４～Ｇ１２を選択してマクロを実行する
範囲選択　Ａ１４～Ｇ２２を選択してマクロを実行する
範囲選択　Ａ２８～Ｇ３２を選択してマクロを実行する。

お礼

降順にしたかったので「Order:=xlAscending」を「Order:=xlDescending」しました。
マクロを「Ctrl+w」として

範囲選択：Ctrl+w
範囲選択：Ctrl+w
範囲選択：Ctrl+w

バッチリ大成功でした。
昇順・降順も分かりました。
感謝感謝です、ありがとうございました。

回答No.3

mar00

選択範囲の行数が１０行毎とか一定ではないようなので
範囲を指定する規則性のようなものが必要かと思います。
例えば空白行が出てきたら範囲指定するとか
合計という言葉出てきたら範囲指定するなどのように。

回答No.2

MackyNo1

記録されたコードの特定のセル範囲を指定している部分を、以下のように選択範囲になるように修正してみてください。(最初のセル選択の部分が記載されていたらこの部分は削除してもOKです）

Key:=Intersect(Selection, Range("E:E"))

SetRange Selection

回答No.1

keithin

準備：
Ａ４：Ｇ１２を選択する
マクロの記録を開始する
「相対参照」を選択する(*)
Ｅ列の降順で並べ替える（先頭行を見出しにするか否か適切に設定する）
記録終了する

手順：
Ａ４を選択、マクロを実行する
Ａ１４を選択、マクロを実行する
Ａ２４を選択、マクロを実行する。

＊：補足
ご利用のエクセルのバージョンが不明なので、具体的にどこを選んで何をクリックするのかお話しできません。
エクセル２００３以前なら「記録終了」ツールバーに「相対参照」ボタンが載っているので、クリックして選択された状態にするということです。エクセル２００７以降なら開発タブにあります。
ご相談投稿では、普段ご利用のソフトのバージョンまでキチンと明記する事を憶えて下さい。次回以降のご参考に。

補足

すいませんソフトのバージョンを書き忘れていました。
パソコンはＷｉｎ８１の６４ビットです。エクセル２０１３です。
早速開発タブの相対参照を表示できるようにしました。
並べ替えを行いたい行数が９行だったり７行だったり５行だったり変化するのですがどのように対応したらいいのでしょうか？