複数のエクセルシートを一つにまとめるVBA

質問

下のVBAを見つけたのですが、これは一行目にタイトルがあるという前提になっています。
そのためタイトル行がない場合は、一行目が取り込めません。
下のVBAを一行目から取るようにするにはどのように改良したらいいでしょうか教えてください。

http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q1155537766

回答No.2

vivace152 · ベストアンサー

後半の行末にある「.offset(1)」を取れば良いと思います。
2箇所ありますのでご注意ください。

このoffset指定のために最上行がコピー範囲から除外されていると思います。
動作確認はしていないのですが、試してみてはいかがでしょうか。

補足

ありがとうございます。
試してみましたが、この方法だと最上行はコピーされるのですが、その代りに最下行がコピーされなくなりました。

合わせて行の数を決めている部分をいじらなければだめみたいです。
どこになるでしょうか?

回答No.1

satoron666

If lngRowCount >= 1 Then
の部分を
If lngRowCount >= 0 Then
に変更してみたり・・・？

合っているかは不明ですが…