Q&A
Worksheets("1").Range(Cells(5, 1), Cells(100, 1)).Value = Worksheets("2").Range(Cells(5, 1), Cells(100, 1)).Value
Worksheets("1")にWorksheets("2")の指定したセル範囲の値をコピーしたいのですが、
オブジェクト定義エラーとなります。
やはり、アクティブシートでないとうまく作動しないのでしょうか。
回答2件
0
ベストアンサー
どこのシートのCellsか指定しないと
アクティブシートのCellsと判断されるので不整合が起きてエラーになります。
vba
1Dim ws1 As Worksheet, ws2 As Worksheet 2Set ws1 = Worksheets("1") 3Set ws2 = Worksheets("2") 4 5ws1.Range(ws1.Cells(5, 1), ws1.Cells(100, 1)).Value = ws2.Range(ws2.Cells(5, 1), ws2.Cells(100, 1)).Value
投稿2021/01/12 00:45
総合スコア1923
0
以下のようにしても可能です。
Rangeの範囲を以下のように指定します。
Worksheets("1").Range("A5:A100").Value = Worksheets("2").Range("A5:A100").Value
投稿2021/01/12 01:21
総合スコア5470
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。