[[20240123190736]]　『Range’メソッドは失敗しました』（麦）　ページの最後に飛ぶ

『Range’メソッドは失敗しました』（麦）

別のシートの範囲を複数のシートへ貼りつける必要があり、
下記マクロを作りました。
実行すると「Range’メソッドは失敗しました:’_Worksheet’オブジェクト」と
エラーになります。修正方法を教えてください。
Sub test_貼付け()

    Dim ws1 As Worksheet, ws2 As Worksheet
    Set ws1 = Sheets(9)
    For Each ws2 In Worksheets(Array(4, 5, 6, 7, 8))
        ws1.Range(Cells(87, 6), Cells(102, 40)).Copy ws2.Cells(87, 6)
    Next
End Sub

＜使用 Excel：Microsoft365、使用 OS：Windows11 ＞

■１
（おそらく）シートの辻褄があっていません。
まずはそこを直しましょう。

  ws1.Range(ws1.Cells(87, 6), ws1.Cells(102, 40)).Copy ～～～～～～～～～
            ~~~~              ~~~~
■２
でもって、そんな間違いを犯すくらいなら普通にセル番地で指定されてはどうでしょうか？
 ws1.Range("F87:AN102").Copy ws2.Range("F87")

（もこな２） 2024/01/23(火) 19:40:31

もこな２さん　ありがとうございます。

 ws1.Range("F87:AN102").Copy ws2.Range("F87")
そうですよね！
（麦） 2024/01/23(火) 20:37:10

コメント返信：

[ 一覧(最新更新順) ]

[[20240123190736]] 『Range’メソッドは失敗しました』（麦） ページの最後に飛ぶ

[[20240123190736]]　『Range’メソッドは失敗しました』（麦）　ページの最後に飛ぶ