マクロ記録で作成した並べ替えのコードを修正したい

質問

Windows7 Excel2007 使用しているマクロ初心者です。

マクロ記録で、次の２個のスクリプトをつくりました。
二つとも正常に実行できています。
しかし、このコードは　.SetRange Range("A3:N26")の部分をいちいち手動で変更しなくてはなりません。
この部分を自動で設定し、しかもどちらの一覧表でも使えるコードにしたいです。
どう修正したらよろしいでしょうか？　.Header = xlNo以下のコード省略できますか？

Sub 一覧表１のソート()

Range("B2").Select
Worksheets("一覧表1").Sort.SortFields.Clear
Worksheets("一覧表1").Sort.SortFields.Add Key:=Range("B2"), SortOn _
:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With Worksheets("一覧表1").Sort
.SetRange Range("A3:N26")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
----------------------------------------------------

Sub 一覧表２のソート()

Range("B2").Select
Worksheets("一覧表２").Sort.SortFields.Clear
Worksheets("一覧表２").Sort.SortFields.Add Key:=Range("B2"), SortOn _
:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With Worksheets("一覧表２").Sort
.SetRange Range("A3:P28")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

回答No.4

hige_082 · ベストアンサー

＃３です
補足有難う御座います
では
これで、うまく行くかな？
＃３のコードの6行目
＞.SetRange Range("a3").CurrentRegion
を
.SetRange Range("a4", "p" & Cells(Rows.Count, 2).End(xlUp).Row)
に変更してください

これでどうでしょう？

お礼

仕事から帰って早速貴方様のご回答を実行してみました。
ななんと完璧にできました。本当にありがとうございました。
今後ともよろしくお願いします。

回答No.3

hige_082

確かに説明不足ですね
データの範囲を取得するのに
データの先頭セルはどこか？
列数は固定なのか否か？
行数は固定なのか否か？
データ範囲に空白は含まれるのか？
この辺りの説明が無いと
範囲を取得できるのか否かの判断が難しいですよ

判断材料が乏しいので
空白に囲まれたデータを取得する方法を使用したものです
一応、両方のシートでも使用できるようにしたつもりなので
試してみてください

Sub 一覧表のソート()
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range("B2"), SortOn _
:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveSheet.Sort
.SetRange Range("a3").CurrentRegion
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

excel2007を持っていないのでうまく行かないかも
参考まで

補足

説明不足でもうしわけありません。恐縮です。
　１行目のＡ1から右列に表の題と日付がはいっています。
　２行目のＡ2からＰ26までが表になってます。
　　　　　列は固定ですが、行数は変動します。
　２行目のＡ2からＰ2までが表の見出しになってます。
　　　　　内容は　シート番号　客先番号　氏名・・等です。
　3行目のＥ3からＰ3までには関数が入っています。
　　　　　　４行目以下の数値の合計関数です。
　　　　　Ａ3からＤ3までは空欄です。
　4行目のＡ4からＰ26までが実際にソートしたいデータです。
　　　　　空欄もあります。
　Ｂ列には　　Ｂ2に客先番号という文字列　Ｂ3は空欄　Ｂ4　Ｂ5以下は
ソートしたい番号がランダムにはいっているので、これを昇順で並べ替えたいです。よろしくお願いします。

回答No.2

DreamyCat

>この操作をせずに、何とかできないでしょうか<
どの範囲なのかどこにも明示していなくて
セルに書いて読み込ませるのもだめ、
自動設定で２種のrangeを設定する
　　いったいどうしたいのかをはっきり書きましょう。

回答No.1

bin-chan

> .SetRange Range("A3:N26")
"A3:N26"をどこかのセルに入れておき、参照させる。

Sheet1のセルA1に"A3:N26"を入れたなら、
.SetRange Range(Sheets("Sheet1").Range("A1").Value)
とね。

補足

> .SetRange Range("A3:N26")
"A3:N26"をどこかのセルに入れておき、参照させる。

この操作をせずに、何とかできないでしょうか？
ちなみにこの部分
.SetRange Range("A3:N26")
.SetRange Range("A3:P28")
両方とも、マクロ記録で自動的にコードに表示されていました。