[[20230919101911]]　『右側のシートにコピー』（ポン）　ページの最後に飛ぶ

『右側のシートにコピー』（ポン）

先頭のシートのA6～T8をコピーして右側のシートすべてに貼り付けるマクロを
作成したいです。

ネットでいろいろと検索してみたら下記のコードが作業したい内容に近いもの
でしたがこのコードだと指定されているシートをすべてコピーして右となりの
シートに貼り付ける内容でした。

 Sub copy()
 Dim i As Long
    For i = 1 To Worksheets.Count - 1
        If Worksheets(i).Name = ActiveSheet.Name Then
            ActiveSheet.Cells.Copy Destination:=Worksheets(i + 1).Cells
            Exit Sub
        End If
    Next i
 End Sub

このマクロをベースに、先頭のシートのA6～T8をコピーして右側のシートすべて
にA6～T8を貼り付けるマクロにするにはどうしたらよいでしょうか？

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

 For i = 2 To Worksheets.Count
    Worksheets(1)シートのA6～T8セルを Worksheets(i)シートのA6～T8セルにコピーする
 Next
 とすればよいのではないですか?
 不明なのはどのあたりですか?　
（xyz） 2023/09/19(火) 10:50:51

xyzさま
コメントいただきありがとうございます。

マクロ初心者のためお恥ずかしいのですが・・・

どんなコードを入力したらよく分からないというのもあり、どこに実行したコードを
差し込むのか教えていただきたいです。
(*_*;
（ポン） 2023/09/19(火) 10:56:07

 > 先頭のシートのA6～T8をコピーして右側のシートすべてにA6～T8を貼り付けるマクロ
 貼り付けるセルは、A6～T8だけなんですか？それとも、すべてのセルなんですか？
 前者なら、私が書いた疑似コードをCopyメソッドで書き換えるだけだと思います。
（xyz） 2023/09/19(火) 11:09:41

xyzさま

 >先頭のシートのA6～T8をコピーして右側のシートすべてにA6～T8を貼り付けるマクロ
 貼り付けるセルは、A6～T8だけなんですか？
⇒先頭のシートのA6～T8をコピーして、貼り付けるセルは、右側のシートすべてにA6～T8に貼り付けます。
（ポン） 2023/09/19(火) 11:21:28

 Sub test()
     Dim i  As Long
     For i = 2 To Worksheets.Count
         Worksheets(1).Range("A6:T8").Copy Worksheets(i).Range("A6")
     Next
 End Sub
（xyz） 2023/09/19(火) 11:37:50

xyzさま

ありがとうございました。(*^-^*)
（ポン） 2023/09/19(火) 12:03:25

コメント返信：

[ 一覧(最新更新順) ]

[[20230919101911]] 『右側のシートにコピー』（ポン） ページの最後に飛ぶ

[[20230919101911]]　『右側のシートにコピー』（ポン）　ページの最後に飛ぶ