範囲指定して並べ替えするマクロが有効に働かない

質問

マクロ初心者です。宜しくお願いします。

範囲指定して並べ替え（昇順）をしたいのですが
一番上の行が並べ替えの範囲指定から漏れているのか正しく並べ替えができず
データの2行目から並べ替えがスタートしています。
手動で行う場合、データ範囲の先頭行を、「タイトル行」と「データ行」を指定できますが問題が起こるのはこの関係でしょうか？

■以下式をマクロの記録から作成しました
■マクロの範囲指定自体には問題ありません
■この動作を、範囲を変えて繰り返していますが、正しく並び替わる場合とそうでない場合があります
■繰り返しの式は、範囲を変えているだけで他は全て同じです
■書式は全て数値になっています
■同じ操作を手動でやると問題なく並べ替えができます

どなたか解決方法があれば教えてください。

Selection.AutoFilter Field:=50
Range("AS8:BF1000").Select
Selection.Sort Key1:=Range("AX8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal

回答No.2

watabe007 · ベストアンサー

>Range("AS8:BF1000").Select
>Selection.Sort Key1:=Range("AX8"), Order1:=xlAscending, Header:=xlGuess, _
タイトル行の判別をHeader:=xlGuessとエクセルまかせにしていますが
8行目がタイトルならHeader:=xlYes
8行目がデータならHeader:=xlNo と明記してやれば良いのでは

お礼

解決できました！

Guessとはエクセル任せにしているという事だったのですね。
勉強になりました！！！メモしておきます。

本当にありがとうございました。

回答No.1

Cupper-2

マクロを記録させるとき、どのような手順で並べ替えを行ったか覚えていますか。

範囲の先頭行をタイトル行として並べ替えを行ったのだろうと推測するですけど
…自分の推測は合ってます？

お礼

Cupper-2さん

無事に解決できました。
Cupper-2さんの言うとおり、マクロを記録した時は
初期設定が「データ行」になっていて、そのまま何も選択せずに進行した為
このような現象が起きた事が推測できました。

大事なヒントありがとうございました。

補足

＞Cupper-2さん

ありがとうございます。
記録の時はデータ行を選択したと思います。
念のため、データ行を選択したマクロの記録を作ってみたのですが
現在入力している数式との違いが見つかりませんでした。

また、同じ数式をコピペして繰り返しこの動作を実行していますが
正しく並び替わる場合と、そうでない場合が出てきてしまいます。。。