コードの修正点を教えてください！

質問

.Range("A2", .Range("A" & Rows.Count).End(xlUp)).Rows+1.PasteSpecial Paste:=xlPasteValues

2行目以降の最後の行にプラス1行してデータをコピーしたいのですができないのです。
どこが間違っているのでしょうか？
また、A列には絶対データがあるのであれば、A2からじゃなくてもいいと思うのですが、シンプルに変更できますか？
変更点をご指導くださいませ。
よろしくおねがいします。

回答No.1

okormazd · ベストアンサー

何をやりたいのかよくわからないけど、A列のデータの最後にコピーしたものを張り付けたいというのなら、
.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
でいいんじゃないかと。