[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『セルのコピーができません』(あ)
シート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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.