マクロの修正点について

質問

マクロの修正点について
Excel2003で、下記の作業をマクロで作りました。
　↓↓↓↓↓↓↓↓↓↓
「あ行」～「わ行」までの全てのシートのA列を昇順に並び替えて、
「あ行」～「わ行」までの全てのシートを作業グループにする。

マクロを実行しますと下記のエラーが出ます。

実行時エラー '1004':
この操作には、同じサイズの結合セルが必要です。

エラーの思い当たる節は、１行目に結合セルがありますのでそれが原因と思われます。
２行目は項目名があります。
３行目から、数字の連番が振られてますので、３行目以降を昇順にしたいと考えています。

試しに、１行目の結合セルを解除してからマクロ実行してみたら
エラーは出なかったのですが、表はメチャクチャになりますし、作業グループにもなりません。

マクロの内容を書き出したかったのですが、
文字数制限によりオーバーしますので、ファイルバンク（オンラインストレージ）に、
テキストファイルでアップロードしました。
　↓↓↓↓↓↓↓↓↓↓↓↓↓
http://www.filebank.co.jp/filelink/fa491db9e4d6bfca44fad4fea1d0cf38

マクロのどこを修正したら宜しいでしょうか？
宜しくお願い致します。

回答No.2

Wendy02 · ベストアンサー

なぜ、A1からになっているのですか？
A2からではないのですか？
　　Range("A2:E347").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:= _
　　　　xlYes, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
　　　　SortMethod:=xlPinYin, DataOption1:=xlSortNormal

#1の方と違うのは、
Header:= xlYes
という点です。明らかに、項目が存在するなら、「Header :=xlYes」です。
ただし、2行目に結合セルがない場合に限りますが。

お礼

ご回答いただきましてありがとうございます。
お礼が遅くなりまして申し訳ありませんでした。

先日も誠にありがとうございました。
ご教示いただきましたVBAが非常に使いやすく稼動しております。
ありがとうございます。

話しを戻しますが、
なぜA1からになってるかは、正直理由が私にも分かりません。
というのは、マクロの機能を使って作成したら、このようなVBAの内容になったという感じです。

ご教示いただきました通り、書き換えて実行してみました。
１の方にも書きましたが、やはり空白セルがあると、うまく並び替えられないようです。

もう少し表の構造を見直してみます。
ありがとうございました。

回答No.1

bin_go

Range("A1:E347").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal

この部分のrangeを

Range("A3:E347").Sort Key1:=Range("A3"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
SortMethod:=xlPinYin, DataOption1:=xlSortNormal

A3からにしたらいけそうですが。

お礼

ご回答いただきましてありがとうございます。
お礼が遅くなりまして申し訳ありませんでした。

ご教示いただきました通り、書き換えて実行してみました。
すると、１～２行目は確かに動くことがなくて良かったのですが、
昇順に並び替えてるにも関わらず、表がメチャメチャになるほど並び順が狂ってしまいました。
おそらく原因は、表の至る所に空白セルがあることではないかと推測しています。

それについては私の方でもう少し表の構造を考えていかなくてはならないようです。
今回の質問を通じて、新たな問題が見つかったのでそれはまた後日試行錯誤してみます。
ありがとうございました。