最終行取得で「アプリケーションエラー1004」

Question

こちらのマクロで、「アプリケーションエラー1004」がでてきてしまいます。
修正箇所のご教示をお願い申し上げます。

ws6.Range("A1", Cells(Rows.Count, 1).End(xlUp)).Value = ws1.Range("A1", Cells(Rows.Count, 1).End(xlUp)).Value

Answer 1

Cells(Rows.Count, 1).End(xlUp)
ではそのセルに入っている値を返してしまいます。"A1"のようにセルの位置が入るようにしましょう。

Comments

[JipvOvxMCyFrRX2]

ご回答いただきありがとうございます。
ということは、変数に最終行を代入して、
Range("A1:A" & 変数)
にしなければなりませんでしょうか？

変数を使用しないで最終行を取得することはできないのでしょうか？

[torisan]

Cells(Rows.Count, 1).End(xlUp)
という記述をどこかで調べたのだと思いますが、最終行を示すには記述が足りていません。
４文字ほど足すことで最終行を示すことができるようになりますので、その記述を、その『変数』の所に入れてあげれば完成です。

参考
https://excel-ubara.com/excelvba1/EXCELVBA318.html

[JipvOvxMCyFrRX2]

お教えいただき、
また、参考サイト、ありがとうございます・・！

下記内容で成功しました！！
本当にありがとうございました。

ws6.Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value = ws1.Range("A1:A" & Cells(Rows.Count, 1).End(xlUp).Row).Value

[torisan]

おめでとうございます。
Cells(Rows.Count, 1).End(xlUp).Row という記述が長い×２なので、前述の通り変数に入れてもよいかもしれませんね。
お疲れ様でした。