Excel マクロ シートをコピーするには

質問

初心者です。
今、Excelファイルが２つあります。
１つは、Book1で、Sheet1にＡ列だけ文字列の入った表があります。
セル　　文字列
Ａ３　　ＡＡＡ
Ａ４　　ＢＢＢ
Ａ５　　ＣＣＣ
Ａ６　　ＤＤＤ
　：　　　：
のような感じです。
もう１つ、Book2があり、それにはいろいろな単価表のシートが多数入っています。
そのシート名はBook1,Sheet1の表にある文字列と全く同じものもあります。（表にはないシート名のシートもあります）
今、Book1,Sheet1の表にある文字列と同じ名前のシートを
Book2からBook1へコピーしたいのです。
Book1の表にある文字列は、必ずしもBook2にあるシート名と同じとはかぎらないので、
ＩＦを使って、この文字列のシートがあればコピーする
というふうにしたらよいかと思ったのですが、あまりに初心者のため、
条件文にどう書いたらよいのかで困ってしまいました。
お力添えを宜しくお願いします。

回答No.1

Sinogi · ベストアンサー

考え方の例

(1)Book1/Sheet1　Ａ列の文字列を配列に格納する
(2)Book2のシート名を順次取得する
　　（全シート数を確認してFor～Nextで順次取得)
(3)　(2)のループ内で(1)の配列と総当りでチェックする
　　（For～Nextループの入子）
(4)　(3)で一致が確認できればシートコピーして入子ループから抜ける
(4)’　(3)で一致が確認できなければ何もしない

ってなところでいかがでしょうか？

お礼

ありがとうございます。
For～Next だと、繰り返す回数が分かっているという条件の下でのループ
なのですね。
現在、BOOK2の単価表が他の方が作成しており、
全部でどれだけの単価表になるのかが私に分かっていないため
単価表のファイルができ次第、ちゃんと作ってみます。
今日、時間があれば、試しにテスト品を作ってみたいと思います。

回答No.2

imogasi

これも丸投げで、現状では回答コードの丸写し以外に手が無いのだろうが。丸投げは禁止です。
初心者には難しいと思うが、考える道筋と課題とヒントを挙げて見る。下記のように、こんなに沢山過去の経験を動員しないと出来ないのだ。
Bool2から行動を起す。
（１）Ｂｏｏｋ２の全ファイルは
Ｂｏｏｋ２のモジュールに
Sub test01()
For Each sh In Worksheets
MsgBox sh.Name
Next
End Sub
をやってみて、捉えられることを実感すること。
ーー
（２）上記のシート名の各々の名前について
易しい形の例でやってみるコード。
下記は同じブックＢｏｏｋ２のＳｈｅｅｔ１（アクチブシート）のＡ３：Ａ１０
にシート名の一部を入れておいてテストして、感じを掴んでください。
Sub test01()
For Each sh In Worksheets
MsgBox sh.Name
Set f = Range("A3:A10").Find(sh.Name)
If f Is Nothing Then
MsgBox sh.Name & " は見当たらない"
Else
End If
' 見つかった時のコピー貼り付け処理
Next
End Sub
ーー
次の段階は「シート名一覧のあるブック」と、「データがあり、シート名をチェックするシートのブック」とが別の場合（が質問の場合だが）どう変えたらよいか勉強すること。
ここはＩＦで総なめで同じシート名があるか聞く方法もある。
（３）コピー貼り付けは、どれでも別の２つのブックを開いておいて、１つから他へコピー貼り付けしてみて、マクロの記録をとったコードを参考にする。
全て、チェックやコピー貼り付けの処理は、Test01（）のＭｓｇｂｏｘのところへ書き込むことになる。
（４）貼り付け先のシートの選択とか、貼り付け後のシート名の修正はどうするか勉強のこと。
（５）シート全体のコピーで行くか、データのあるセル範囲のコピーで行くか考えること。

お礼

ありがとうございます。
返事が遅くなりすみません。
まだシートのコピーをするところまでできてはいないのですが
Book2の単価表が別の方が作成しているので、それができ次第、
やってみようと思います。
ヒントを大分いただいたので、時間ができたらテスト品を作成して試してみます。