VBA マクロ エクセルの行追加について。

NURU_osan
お世話になります。
こんな感じなのですが、お分かりになりますか。
よろしくお願いします。

No.2 回答者： t_fumiaki 回答日時： 2017/06/01 18:11

>>情報が残る

値が残ると思います。
下から上に見るのを止めて、上から下へチェックしたら如何です？

最終行 = Range("A1").End(xlDown).Row

後は同じ処理です。

この回答へのお礼

何度も本当にすいません。
上下どちらからでも、ダメでした。

私なりに考えたのですが、
コピー元のエクセルデータがあります。これが大元で、'[test _6.xlsm]新規問合せ'!R4C1" という情報があります。
そして、それを別のエクセルシートに追加します。
最初に追加した行(セル)を①とすると、それには、 '[test _6.xlsm]新規問合せ'!R4C1" が残っています。
次に追加した行(セル)を②とすると、これも、'[test _6.xlsm]新規問合せ'!R4C1" から情報を持ってくるので、
当然、①には '[test _6.xlsm]新規問合せ'!R4C1" が残ってますから、②のデータに上書きされてしまうのではないでしょうか。

お礼日時：2017/06/01 18:59

No.1 回答者： t_fumiaki 回答日時： 2017/06/01 16:12

最終行 = Range("A65536").End(xlUp).Row

とやって、有効最終行を取り込んだら、

Range("A" & 最終行+1).Value =○
Range("B" & 最終行+1).Value =△
・
・
Range("J" & 最終行+1).Value =△△△

てな具合にする。

この回答へのお礼

早速のご回答、ありがとうございます。
追加された行(エクセルシート)に、これらの(test _6.xlsm]新規問合せ'!R4C1) 情報が残るので、更に行を追加した場合、内容が反映されてしまうのでしょうか。

お礼日時：2017/06/01 18:01