エクセルのソートの繰り返し作業について

こんにちは　いつもお世話になっています。
エクセルでソートの繰り返し作業のショートカット、あるいはマクロを教えてください。
例えば、同一シート内のデータで、1-10行までを選択してソートします。
最優先される列はNo.1がC列でNo.２がA列です。
この条件のソートを別の複数行で複数回行うので「データ」-「並べ替え」等の手順をカットしたいのです。
2003でのショートカットのCtrl キーを押しながら Y キーを押すことでは対応していないようです。
2007ではクイック アクセス ツールバーの (繰り返し) も対応していないようです。
最初は手作業で、次からは該当行の選択後に同一条件でのソートができるマクロがあればいいのではないかとおもうのです。
2003と2007で使えるものをご紹介いただけると助かります。
よろしくお願いします。

No.2 ベストアンサー 回答者： mar00 回答日時： 2010/04/09 18:47

10行毎にソートを繰り返すという前提ですが

Sub Macro1()
Dim i As Integer
For i = 1 To 10000 Step 10
If IsEmpty(Cells(i, 1)) Then
Exit For
Else
Range(Rows(i), Rows(i + 9)) _
.Sort Key1:=Range("C1"), Order1:=xlAscending, _
Key2:=Range("A1"), Order2:=xlAscending
End If
Next i
End Sub

元のブックがおかしくなっても責任は持てませんので
必ず別の名前でブックを保存してから実行して下さい。

この回答へのお礼

mar00　様　ありがとうございました。
丁寧にマクロを作っていただいて助かりました。
御陰様で解決し、大変勉強になりました。
簡単で恐縮ですが、お礼申し上げます。

お礼日時：2010/04/10 11:14

No.1 回答者： mt2008 回答日時： 2010/04/09 10:43

こういう時こそ「マクロの記録」です。

1-10行を選択する所から記録してしまえば良いかと……。

この回答へのお礼

mt2008　様　ありがとうございました。
そうですよね、思いつきませんでした。
御陰様で解決しました。
簡単で恐縮ですが、お礼申し上げます。

お礼日時：2010/04/10 11:11