エクセル マクロ 簡素化

質問

マクロ初心者です。

下記のデータのコピペする、マクロを使用しています。
下記にはAAAとBBBの2つのエクセルへのコピペのみしか記述していませんが、
その下に50ファイル分のファイル名、コピー元、コピー先だけが違うマクロが並んでいます。
メンテナンスや更新に手作業で行っているので、非常に時間がかかります。

例えば、別のシートにファイル名、コピー元、コピー先の一覧を作成し、
そのシートでファイル名、コピー元、コピー先を修正し、コピペができるようになるなど、
どうにかして簡素化したいのですが、どのように実現すればいいか、教えてくださると助かります。

----------------------------------------------------------------------
Private Sub CommandButton1_Click()
　　Dim wb As Workbook
Application.ScreenUpdating = False

Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\AAA.xls", UpdateLinks:=0)
ThisWorkbook.Sheets("BBB").Range("A1:B1").Copy
wb.Sheets("CCC").Range("A1:B1").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False

Application.DisplayAlerts = False
wb.Close (True)
Application.DisplayAlerts = True
Application.ScreenUpdating = True

Set wb = Workbooks.Open(Filename:=ThisWorkbook.Path & "\BBB.xls", UpdateLinks:=0)
ThisWorkbook.Sheets("BBB").Range("A2:B2").Copy
wb.Sheets("CCC").Range("A2:B2").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False

Application.DisplayAlerts = False
wb.Close (True)
Application.DisplayAlerts = True
Application.ScreenUpdating = True

'アイテム名、コピー元、コピー先、だけがちがう、同じようなマクロが50ファイル分ある。

End Sub

回答No.1

imogasi · ベストアンサー

質問の内容がはっきりしない。補足してください。
エクセルの扱う要素としては、（１）ブック（２）シート（３）セル範囲（行、列、範囲）（４）値、書式などありますが、
（３）は自動で取得できたりするが、
３つともバラバラに変わるのですか。出来ればシート名ぐらい統一したい。商品１、商品２と先頭だけでも共通にして、対象外はその名前（商品XX)を避ける。
そういう点から質問を書けば、どういう文章表現になるかな。
それと１ブックの中で本件で取り扱うシートは単数か、複数か？
ブックは同じホルダにあると考えて良いのか？。むしろ１つになるよう設計すべきだ。
単数か複数かは、質問するとき、いつも考えて、質問文ではっきりさせてください。
それとコピー先は１ブック１シートに、集約（直積）していくのか（コピペ＝移す・増やすだけ）どうか、質問にはっきり書いていますか？
よくある質問から推測して、集積ではないかと想像するが。
ーー
基本的にシートの列にブック名、シート名、セル範囲を入力しておく。
もちろん同一行で１セットであるべきです。
そのデータを元に、繰り返し文で順次繰返せば仕舞いの話。
繰返すルーチンに入る前に、ブック名、シート名、範囲を示す文字列に上記のブック名等の値をセットして、質問文にあるコードの実行ルーチンに入る。
ーー
　開始の用意（初期設定）
　For　Nextなどの繰り返し
　ブック名＝XXX　　＜－－以下３項目は決ったシートの列から　Filename:=の個所
　シート名＝YYY　Sheets("BBB").の個所
　範囲＝ZZZ（コピー元）　Range("A2:B2").の個所
　メイン　処理
　ブック名など取得のセル移動
　次の繰り返しサイクルへ