[[20211123065639]] 『セルのコピーができません』(あ) >>BOT

[ 初めての方へ | 一覧(最新更新順) |

| 全文検索 | 過去ログ ]

 

『セルのコピーができません』(あ)

シート1のA〜V(入力セル)の最終行までをコピーして、シート2に値で貼り付けをしたいです。

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

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.