あるシートのセルを、複数のシートにコピーするマクロ

質問

やりたい事としては、シート名「Sample」で指定した範囲のセルを、ブック内の複数シート(※)へコピーしたいです。

※
他にも同じ構成のブックがあり、そこでも汎用として使えるマクロが必要となっています。
各ブックでは、「Sample」というシート名は共通ですが、コピー先の複数シートのシート名は異なっています。但し、共通している部分としては、コピー先のシートを「Start」と「End」で挟んでいます。

シートの順序としては、
　「Start」　「１」　「２」　「３」　「End」　「Sample」
のような構成で、各シートごとに１～３のシート名がばらばらです。

「Start」と「End」シートを活用して、シート名を指定せずにコピーする方法をご教示頂ければと思います。

宜しくお願い致します。

回答No.2

tom04 · ベストアンサー

こんばんは！
「Samplu」Sheetの範囲指定したセルを「Start」Sheet～「End」Sheetの
同じセル配置（セル番地）にコピーすれば良いわけですかね？

一応そういうコトだとしての一例です。

Alt+F11キー　→　画面左下の「This Workbook」をダブルクリック　→　VBE画面に
↓のコードをコピー＆ペーストし、「Sample」Sheetを範囲指定した後に、マクロを実行してみてください。

Sub test()
Dim i, j, k, L, M, N As Long
i = Selection(1).Row
j = Selection(1).Column
For k = 1 To Worksheets.Count
If Worksheets(k).Name = "Start" Then
M = k
ElseIf Worksheets(k).Name = "End" Then
N = k
End If
Next k
For L = M To N
Selection.Copy Destination:=Worksheets(L).Cells(i, j)
Next L
End Sub

参考になりますかね？m(_ _)m

お礼

一発でやりたい事が実現できました。
ありがとうございました！
もっと勉強しないと・・・。

回答No.1

watabe007

参考に
Dim sh As Worksheet
Dim flg As Boolean

For Each sh In ActiveWorkbook.Worksheets
　　If sh.Name = "End" Then
　　　　Exit For
　　ElseIf sh.Name = "Start" Then
　　　　flg = True
　　ElseIf flg = True Then
　　　　'コピー作業
　　　　'・・・・・・・・・
　　End If
Next