Excel (VBA)

Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 7全般 : Excel 2013)
複数条件が一致する値を別ファイルに転記
投稿日時: 21/08/28 17:59:58
投稿者: ありさ

初めまして。
VBAの勉強を始めたばかりでこれまで関数で対応していたのですが、自動化できないものかと思っています。
どうぞ、ご教授お願いいたします。
 
転記先.xlsmファイルがマクロを記述している開いているBookです。
このファイルの中に、シートが「りんご」、「みかん」、「すいか」とあります。(実際は10個位あるが今回の例題は3つとする)
一方、転記元.xlsxファイルには、シートA〜複数(今回の例題ではDまでとします)があります。
やりたいことは、
転記元の1行目と転記先の1行目の日付が一致、かつ
転記元のシート名と転記先のA列のA,B,C,D が一致する、かつ
転記元のA列の果物名と転記先のシート名が一致するもの
上記3条件一致するものを、転記先のそれぞれのシートにコピーしてきたいです。
<転記先.xlsm シート「りんご」の例>
 
  1    2108    2109    2110    2111    2112
  2 A    
  3 B    
  4 C    
  5 D                         
     
<転記元.xlsx シートAの例>
 1 日付 2103 2104 2105 2106 2107 2108 2109 2110 2111 2112
 2 りんご 4    1  8    9     0   4    1    8    9     0
 3 みかん 0    0  3    7     8   0    0    3    7     8
 4 すいか 2    2  1    2     3   2    2    1    2     3
 
  
<転記元.xlsx シートBの例>
 1 日付 2103 2104 2105 2106 2107 2108 2109 2110 2111 2112
 2 りんご 3    4  5    6     0   0    0    3    7     8
 3 みかん 3    0  3    1     3   0    0    3    7     1
 4 すいか 2    2  1    3     1   2    2    1    2     3
 
  
 マクロ稼働後のイメージ
<転記先.xlsm シート「りんご」の例>
  
 1 日付 2108 2109 2110 2111 2112
 2 A     4    1    8    9    0
 3 B     0    0    3    7    8
 4 C     2    2    1    2    3
 5 D     3    6    9    7    8                    
  
シート「みかん」「すいか」にも同様に集計したいです。
条件が複雑で、IFでいくのか、Searchやfindで日付が一緒のものを見つけてやったりするのか、配列等を使わないと出来ないのか、
ネットで同じような事例が見つからず困っています。
どうぞ、宜しくお願いいたします。

回答
投稿日時: 21/08/28 21:23:20
投稿者: 半平太

「エクセルの学校」の方で同種の質問をしてないですか? 
 
 完全には同じじゃないですが、酷似しています・・

投稿日時: 21/08/28 21:52:07
投稿者: ありさ

半平太様
そうです、同一人物です。
Excelの学校ではPower queryのやり方を教えて頂きましたが、
VBAでの考え方を教えて頂きたく、こちらの方でも聞いてしまいました。
申し訳ありません。
そして、Excelの学校の方で半平太様にご教授頂けたこと、大変感謝しています。
教えて頂いた事を無駄にしないよう、今後身につけていきたいと思います。
 
ありがとうございました。