このページで紹介されているVBAを動かすには

質問

複数のシートのデータを１枚のシートにまとめる方法が、こちらのページに紹介されています。

http://www.relief.jp/itnote/archives/001729.php

しばらく前に利用させて頂いた時は何の問題もなく動いたのですが、久しぶりに使おうと思ったらエラーが出てしまって動きません。
（エクセルのバージョンは変わっていません）
以前のように使えるようにするには、どうしたらいいのでしょうか？
（「全シートにA1セルからデータがあるという大前提の下でのコード」という条件は満たしています）

エクセルのバージョンは、ずっと2003です。
詳しい方、よろしくお願い致します。

エラーメッセージ：
実行エラー1004
アプリケーション定義またはオブジェクト定義のエラーです。

止まる箇所：
16行目
Selection.Resize(Selection.Rows.Count - 1).Offset(1).Select

回答No.3

myRange · ベストアンサー

コードをちょこっと見てみましたが、前提が間違っています。

＞「全シートにA1セルからデータがあるという大前提の下でのコード」

は間違いで、
少なくとも、Ａ１、Ａ２の２つのセルにデータがないといけません。
それをチェックしてみましょう。

以上です。

お礼

ご回答ありがとうございます。
こちらの回答が大きなヒントとなり、解決いたしました。

回答No.2

end-u

止まった時に、処理中のシートがアクティブになり、コピー元セル範囲も選択された状態になっているはずです。
その範囲がどういう状態になっているか確認しましょう。

もし１行しか選択されていなければ
Selection.Rows.Count は 1 になります。
Selection.Rows.Count - 1 は 0 です。
Selection.Resize(0) ...0行にリサイズする事はできません。

お礼

ご回答ありがとうございます。
こちらがヒントになり、解決いたしました。

回答No.1

Sinogi

全シートにA1セルからデータがあるという大前提の下でのコードですから、データのないシートが含まれていたり、A1セルにデータがないシートがあったりするとエラーとなります。また、データ数がExcelの最大行数65536を超えた場合もエラーとなります。

↑出所のサイトに記載されている注意には該当していないのですか?

お礼

ご回答ありがとうございます。

質問文にありますとおり、「全シートにA1セルからデータがあるという大前提の下でのコード」という条件は満たしています。また全てのシートの行数を足しても2000行未満です。

補足

補足します。
不思議なことに、URLのサンプルデータは問題なく動きます。
一方、当方のデータはA1セルは全て埋まっておりますが、それ以外は所々空欄があります。
もしかして、それが原因なのでしょうか…