VBA オートフィルタ―指定済みセルの並び替え

Question

#実現したいこと
①並び替えたい範囲を指定する
※A5:G2310で、すでにオートフィルタ―が設定してあります
②Ｂ列のデータを昇順（０ ⇒ ９）となるように並び替える
※Ａ列 ～ Ｇ列も並び替えの結果が反映できるようにする

これってどうすればいいですか？

Range("A5:G2310").Sort

という記述まではしてあります

Answer 1

この問題には、2つの課題があります。

1.オートフィルタが設定されているかどうか

オートフィルタ設定前の場合
解除は不要です

オートフィルタ設定後の場合
ActiveSheet.AutoFilterMode = Falseのように、一度フィルタを解除する必要があります。

2.ソートのキーの有無

ソートのキーがない場合
Range(範囲).SortでOK

ソートのキーがある場合
Range(範囲).Sort Key1:=Range(インデックスの場所), order1:=昇順で指定

ではどうするか？

今回は、「オートフィルタ設定後」で「ソートのキーがある場合」ですね。

②Ｂ列のデータを昇順（０ ⇒ ９）となるように並び替える

ですので、処理の流れ的には、
1.ActiveSheet.AutoFilterMode = False
2.Range(範囲).Sort Key1:=Range(インデックスの場所), order1:=昇順
ですね。この時に、「範囲」「インデックスの場所」「昇順」を設定してください。

ほとんど同じ例が4.ソートの「'セル範囲"A1:B100"を2列目をキーにして降順ににソート」の例ですので、参照してください。

分からないことがありましたらコメントお願いします。

Answer 2

直接的な答えではありませんが、下記のサイトを紹介しておきます。
良くまとめられているサイトで自身もここで勉強しました。
いちから勉強してみてはいかがでしょうか？

・並び替え
http://excel-ubara.com/excelvba2/EXCELVBA017.html
・オートフィルタ１
http://excel-ubara.com/excelvba2/EXCELVBA018.html
・オートフィルタ２
http://excel-ubara.com/excelvba2/EXCELVBA019.html