データを別ブックへ自動でコピぺしたい

tatsumaru77様

以前、集計シートに特定ファイルのシートごとコピペしたいという質問させていただき、その際はご教授頂きましてありがとうございました。
↓
http://oshiete.goo.ne.jp/qa/12460573.html

今回、元データを別ブックにコピぺしたいことに変わりはないのですが、以前のようにシートごとではなく、元データの範囲指定したデータを別ブックの特定セルへコピペしたいのです。

また、自動で転記する際、集計用のブックを新たに作り
そのブックにマクロを組み、①のデータを②、③の複数ファイルへ転記できる仕様にしたいです。

①から③のブックは、それぞれ支店数分あり
すべて別ファイルに存在します。(支店数13支店)

①「収支データ_支店名.xlsx」（②と③の元データ）
・「推移」シート
10行目に月が入っており、D10：4月、E10：5月、F10：6月、G10：合計の並びです。
今回だと6月までの実績なので、6月までなのですが7月になるとG10が7月…H10が合計になり、列が増えていきます。
D11～F46データを②、③の指定セルへコピペしたいです。

★元データ画像
https://gyazo.com/edfdff0ea8001c8d598ac38daf4147b9

②「■実績ファイル_支店名.xlsx」
・「実績」シート
104行目に月が入っており、U104：4月、V104：5月、W104：6月…AG104：合計の並びです。
①とは違い4月〜3月まですでに枠があります。
①のデータをU105～W136へコピペしたいです。

▫️実績ファイル画像
https://gyazo.com/ba743ebe5dd1b36f0409f8e0d2328f87

③「★実績ファイル_支店名.xlsx」
・「実績」シート
2行目に月が入っており、U2：4月、V2：5月、W2：6月…AG2：合計の並びです。
①とは違い4月〜3月まですでに枠があります。
①のデータをU3～W34へコピペしたいです。

★実績ファイル画像
https://gyazo.com/7565fc56a129d3cc26b8b000f6ede90a

何度も申し訳ありませんが、何卒ご教授願います。

No.1 回答者： tatsumaru77 回答日時： 2021/10/08 19:45

補足要求です。

１．以下のファイルは全て同じフォルダ内に格納されているのでしょうか。
収支データ_支店名.xlsx
■実績ファイル_支店名.xlsx
★実績ファイル_支店名.xlsx

尚、マクロを組み込んだブックと同じフォルダ内に上記の３種類のファイルがあれば、処理が簡単になります。


２．データの行数について
①収支データ_支店名.xlsx　D11～F46なので、転記元は36行分のデータ
②■実績ファイル_支店名.xlsx　U105～W136なので、転記先は32行分のデータ
③★実績ファイル_支店名.xlsx　U3～W34なので、転記先は32行分のデータ
となり、転記元と転記先の行数が食い違っています。
再度、ご確認し、正しい範囲をご提示ください。

３．データの列数について
今月は６月まであるということですが、来月になれば、７月まであるということでしょうか。
そうすると、来月は、転記元は、D11～G46になるのでしょうか。
もし、そうだとしたら、マクロでは、コピー元の列をどのようにして決めるのかということですが、
「合計」の文字がG列にあるので、その手前までがコピー元の列と判定して良いでしょうか。
（来月は「合計」はH列になるはず。）

この回答へのお礼

早速、ご返信頂きましてありがとうございます。
また、ご返信が遅くなり申し訳ありません。

以下、回答させていただきます。

１．以下のファイルは全て同じフォルダ内に格納されているのでしょうか。
収支データ_支店名.xlsx
■実績ファイル_支店名.xlsx
★実績ファイル_支店名.xlsx
→すべて、別ファイルにあります。

>尚、マクロを組み込んだブックと同じフォルダ内に上記の３種類のファイルがあれば、処理が簡単になります。
→恐れ入りますが。同じフォルダではないのです…。
　ほかに方法は有りますでしょうか？

２．データの行数について
①収支データ_支店名.xlsx　D11～F46なので、転記元は36行分のデータ
②■実績ファイル_支店名.xlsx　U105～W136なので、転記先は32行分のデータ
③★実績ファイル_支店名.xlsx　U3～W34なので、転記先は32行分のデータ
となり、転記元と転記先の行数が食い違っています。
再度、ご確認し、正しい範囲をご提示ください。
→記載誤りです。申し訳ありません、正しくは36行です。

３．データの列数について
今月は６月まであるということですが、来月になれば、７月まであるということでしょうか。
→はい、仰る通りです。

そうすると、来月は、転記元は、D11～G46になるのでしょうか。
もし、そうだとしたら、マクロでは、コピー元の列をどのようにして決めるのかということですが、
「合計」の文字がG列にあるので、その手前までがコピー元の列と判定して良いでしょうか。
（来月は「合計」はH列になるはず。）
→仰る通りです。

記載が誤っていたり、ご説明不足な点ございまして
申し訳ありません。

何卒ご教授願います。

お礼日時：2021/10/09 01:18

No.2 ベストアンサー 回答者： tatsumaru77 回答日時： 2021/10/10 10:21

下記にアップしました。

https://ideone.com/FFXwKW

Const 収支Dir As String = "D:\goo\data\goo379\収支データ"
Const 実績Dir1 As String = "D:\goo\data\goo379\■実績"
Const 実績Dir2 As String = "D:\goo\data\goo379\★実績"
は、それぞれ
収支データ_支店名.xlsx
■実績ファイル_支店名.xlsx
★実績ファイル_支店名.xlsx
の格納フォルダ名です。あなたの環境にあわせて適切に設定してください。

この回答へのお礼

ご返信遅くなりました。
無事、動作検証完了し問題ない旨確認いたしました。

この度もお忙しい中、ご教授頂きましてありがとうございました。

お礼日時：2021/10/11 17:59