マクロで行挿入後挿入部分を含めたソートをしたいのですが・・・

Ａ１に会社名のカタカナ。Ｂ１に会社名があります。
10行程度すでにデータが入っている状態で
途中行に新たに1行を挿入したのち
増えた行数分（全部で１１行）も含めて並べ替えをするという作業を行います。

その場合、マクロで以上の手順を踏むと
1度目はうまくいくのですが
２度目になると相対参照でマクロを設定したにも関わらず
１１行目までしかソートされません。
１２行目がソートの範囲に入らないのです。

行が増えた分も含めて、すべての行数をソートするには
どのようなVBAを組めばいいのでしょうか？
ご教授ください。

No.3 ベストアンサー 回答者： zap35 回答日時： 2007/08/31 20:09

＃０２です。

代替案は後で示しますが、補足文の内容だけでは「論理的に不可能」です。

＞途中の３行目に1行挿入後
なぜならこの状態で１行目～１１行目が「ひとまとまり」になる条件が書かれていないからです。その条件が明示されない限りVBAでソートする範囲を決定できません。

ですから再度A1:B10、A11:B20が「ひとまとまり」であることを判断する条件を補足してください。（人が目で見てできるなら何らかの条件があるはずです）

代替案として最初にA1:B10、A11:B20にそれぞれ名前定義しておく方法があります。それであれば範囲の途中行に行挿入されてもソートが可能です。定義された名前が「grpA」だとするとソートするVBAは以下のようになります
　Range("grpA").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
　　OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
　　:=xlPinYin, DataOption1:=xlSortNormal

でもこの方法は完全ではありません。それは１１行目に挿入が行われた場合、その行はどちらの名前定義にも含まれないからです。従ってソートされません。

No.2 回答者： zap35 回答日時： 2007/08/30 17:45

ソート時の範囲の記述を３つ書きます。

・カレントリージョン（「Shift＋Ctrl＋*」で選択される範囲）
　Range("A1").CurrentRegion.Sort Key1:=Range("A1"),　…以下省略

・A:B列
　Columns("A:B").Sort Key1:=Range("A1"), …以下省略

・A1からB列の最終行までを範囲とする
　Range(Range("A1"), Range("B65536").End(xlUp)).Sort Key1:=Range("A1"), …以下省略

この回答への補足

すみません。VBAを完全に理解しているわけでないので
どこでご指摘の構文を挟めばいいか解らないんです。

NO,1さんの補足にも書いたのですが
このようなソートを行うためにはどうしたらいいか
再度ご教授いただけないでしょうか？
よろしくお願いいたします。ペコリ。

補足日時：2007/08/31 09:33

No.1 回答者： saborima 回答日時： 2007/08/30 16:07

ソートの範囲指定の際セル範囲ではなく列範囲で指定してみてはいかがでしょうか？

この回答への補足

言葉足らずですみません。
例ですと、A1～B10の範囲でまずソート。
そのあと、A11～B20の範囲でソート。
最終行のB21に合計の計算式が入っています。

その後、途中の３行目に1行挿入と１３行目に1行挿入後
今度は
A1～B11の範囲でソート後、A12～B22の範囲でソートして
B23行目に計算式の行がある。
と言う具合にして並べ替えのマクロを組みたいのです。

再度ご教授願います。ペコリ。

補足日時：2007/08/31 09:07