[[20211123065639]]　『セルのコピーができません』（あ）　ページの最後に飛ぶ

『セルのコピーができません』（あ）

シート１のA～V（入力セル）の最終行までをコピーして、シート２に値で貼り付けをしたいです。

sub コピー()

    Dim LastRow As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Sheets("Sheet1").Range(Cells(1, 1), Cells(LastRow, 22)).Value = Sheets("Sheet2").Range(Cells(1, 1), Cells(LastRow, 22)).Value
End Sub

このように記述したのですが、”アプリケーション定義またはオブジェクト定義のエラーです。”と出てうまくいきません。

VBA勉強中で試行錯誤しているのですが、なかなかうまくいかないので、お知恵をお貸しいただけると嬉しいです。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

 参考に
 Sub コピー2()
    Dim LastRow As Long

    LastRow = Sheets("Sheet2").Cells(Rows.Count, 1).End(xlUp).Row
    With Sheets("Sheet2").Range("A1:V" & LastRow)
            Sheets("Sheet1").Range("A1").Resize(.Rows.Count, .Columns.Count).Value = .Value
    End With
 End Sub

（ピンク） 2021/11/23(火) 07:57

 Sub コピー3()
    With Sheets("Sheet2")
        .Range("A1", .Cells(Rows.Count, "V").End(xlUp)).Copy
    End With
    Sheets("Sheet1").Range("A1").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False 
 End Sub

（ピンク） 2021/11/23(火) 08:05

できました！
参考に頂いたマクロも少しずつ学んで、自分で書けるようになりたいと思います。
どうもありがとうございました。
（あ） 2021/11/23(火) 08:16

コメント返信：

[ 一覧(最新更新順) ]

[[20211123065639]] 『セルのコピーができません』（あ） ページの最後に飛ぶ

[[20211123065639]]　『セルのコピーができません』（あ）　ページの最後に飛ぶ