【再質問】データを別ブックへ自動でコピぺしたい

tatsumaru77様

以前、2度にわたり、特定ファイルのシートにデータを転記したいという質問させていただき、その際はご教授頂きましてありがとうございました。
↓
http://oshiete.goo.ne.jp/qa/12460573.html

https://oshiete.goo.ne.jp/qa/12614194.html

今回、また仕様に一部変更があり、別ブックの各支店ごとの元データを別ブックの1つのシートの表の特定セルにデータをコピぺしたいです。

①元データ(支店ごとに13支店分あり)
②コピペ先(1ファイル1シートへは各支店ごとの表になっている)
※①と②は別フォルダにあります

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

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

②「■実績ファイル_支店名.xlsx」
・「2021」シート　13支店
39行目に月が入っており、AL39：4月、AM39：5月、AN39：6月…AX39：合計の並びです。
①とは違い4月〜3月まですでに枠があります。
AJ38に支店コードが入力されています。
①のデータをAL40～AL67へコピペしたいです。
次の支店は2行空けて、AJ74に支店コードがあります。
全て同じ行、同じ列数の表になります。

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

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

質問者からの補足コメント

• tatsumaru77様
  
  この度はご教授頂きまして、ありがとうございました。
  無事解決いたしました。
  お手数おかけして申し訳ありませんでした。

    補足日時：2021/11/25 12:41

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

下記URLへアップしました。

https://ideone.com/WVDPYb

この回答へのお礼

こんばんは。
ご返信遅くなりまして申し訳ありません。

ご教授頂きましたモジュールで検証しましたが
うまくいきませんでした。

下記エラーが出てしまいます。

収支データ_123456_東京支店.xlsx中の支店名＜東京支店＞はシート2021に存在しません。

元データの収支データファイル名は「収支データ_支店コード_支店名.xlsx」となります。

また、ご説明不足で申し訳ございませんが支店コードはAJ、AK列が結合されているセルに
入っている為
モジュールの「AK」セルの部分を「AJ」へ変更しました。

申し訳ありませんが、エラーの原因をご教授願います。

お礼日時：2021/11/22 22:56

No.3 回答者： tatsumaru77 回答日時： 2021/11/23 08:38

現在は以下の仕様で、作成しています。

①元データの収支データファイル名は「収支データ_支店コード支店名.xlsx」です。
「収支データ_支店コード_支店名.xlsx」ではありません。

従って、エラーメッセージも
収支データ_123456_東京支店.xlsx中の支店名＜_東京支店＞はシート2021に存在しません。
と表示されるはずです。（<_東京支店>です。）

②支店コードと支店名はAJ,AK列が分離しています。
（そのように提示された画像ではなっています）

従って、
１．収支データファイル名を「収支データ_支店コード支店名.xlsx」とすること。
２．支店コードと支店名はAJ,AK列を分離すること。

上記の２点が守られるようにすれば、マクロは動作します。
そのようにして運用することは可能でしょうか。
尚、提示したマクロはAJの支店コードは参照しません。AK列の支店名のみを
参照しています。
（支店コードが６桁ということですが、例えば０１２３４５のような支店コードがあるとファイル名は６桁になりますがAJのセルでは１２３４５になり支店コードが不一致になるためです）

どうしても、
①収支データファイル名を「収支データ_支店コード_支店名.xlsx」とする。
②支店コードと支店名はAJ,AK列を結合セルとする。
のようにしたい場合は、その旨、補足してください。
その場合は、実績ファイルの画像を再提示していただけますでしょうか。
AJとAKの結合セルに入っている実際の値を確認したいためです。

この回答へのお礼

ご返信遅くなりまして申し訳ありません。

１．収支データファイル名を「収支データ_支店コード支店名.xlsx」とすること。
→提示が誤っており、大変失礼いたしました。
　こちらに修正いたします。

２．支店コードと支店名はAJ,AK列を分離すること。
→こちらについても、重ね重ね大変失礼いたしました。
　分離するようこちらで修正して、再度確認させていただきます。

諸々、お手数おかけして申し訳ありませんでした。

お礼日時：2021/11/23 18:59

No.1 回答者： tatsumaru77 回答日時： 2021/11/20 20:44

補足要求です。

１．支店コードは４桁固定と考えて良いですか。
（５桁の支店コードとか３桁の支店コードはないという意味です）

２．コピー元とコピー先の列について
コピー元：D11～F42
コピー先：AL40～AL67
ということですが、コピー元の行数＝32行、コピー先の行数＝28行
になり、行数が不一致です。
正確なコピー元とコピー先の行数を提示してください。

３．コピー先のファイル名について
コピー先のファイルは１ファイルのはずですが、
「■実績ファイル_支店名.xlsx」となっています、支店名の個所は、実際の支店名がはいるように
見受けられます。（例　■実績ファイル_大阪支店.xlsx　■実績ファイル_東京支店.xlsx　等）
そうすると、コピー先は複数ファイルのようにも考えられます。
それとも、「■実績ファイル_支店名.xlsx」という見たままのファイル名でしょうか。

４．コピー先のシート名が2021になっています。
このまま、2021をマクロ内に組み込むと、来年度になっても2021のシートへコピーを行います。
その為、来年度になったら2022にあなたがマクロを修正する必要がありますが、
それで良いでしょうか。
私としては来年度になったら2022のシートへコピーするような仕組みをつくったほうが良いと考えますが、
良い案が浮かびません。

この回答へのお礼

こんばんは。
ご返信頂きましてありがとうございます。
また、説明不足で申し訳ありません。
以下、回答させていただきます。

１．支店コードは４桁固定と考えて良いですか。
（５桁の支店コードとか３桁の支店コードはないという意味です）
→申し訳ありません、コードは6桁になります。

２．コピー元とコピー先の列について
コピー元：D11～F42
コピー先：AL40～AL67
ということですが、コピー元の行数＝32行、コピー先の行数＝28行
になり、行数が不一致です。
正確なコピー元とコピー先の行数を提示してください。
→失礼いたしました。
　行数は28行です。

３．コピー先のファイル名について
コピー先のファイルは１ファイルのはずですが、
「■実績ファイル_支店名.xlsx」となっています、支店名の個所は、実際の支店名がはいるように
見受けられます。（例　■実績ファイル_大阪支店.xlsx　■実績ファイル_東京支店.xlsx　等）
そうすると、コピー先は複数ファイルのようにも考えられます。
それとも、「■実績ファイル_支店名.xlsx」という見たままのファイル名でしょうか。
→失礼しました。
「■実績ファイル_一覧.xlsx」にします。

４．コピー先のシート名が2021になっています。
このまま、2021をマクロ内に組み込むと、来年度になっても2021のシートへコピーを行います。
その為、来年度になったら2022にあなたがマクロを修正する必要がありますが、
それで良いでしょうか。
私としては来年度になったら2022のシートへコピーするような仕組みをつくったほうが良いと考えますが、
良い案が浮かびません。
→毎回、到来年になったら自身で変更いたします。

何度も申し訳ありませんが、よろしくお願いいたします。

お礼日時：2021/11/20 21:35