|    | 
     こんにちは。 
VBA初心者で自分なりに何度も試みているのですが 
なかなかうまくいかないので教えて頂ければ幸いです。 
 
Sheet1のA列(重複有り)の内、Sheet2のD列(重複無し)と値が一致するものを検索し、sheet1で値が一致した全ての行のB列の値を、順にSheet2の該当する行の、 
E,F,G列に横方向に代入していくというものです。 
 
言葉では説明しにくいので、下記のようなイメージでご理解頂けるでしょうか? 
----------------------------------------------------------------------- 
【マクロ実行前】 
----------------------------------------------------------------------- 
<Sheet1> 
 
(A)  B   C   D   E 
 イ  あ 
 ロ  い 
 イ  う 
 ニ  え 
 イ  お 
----------------------------------------------------------------------- 
<Sheet2> 
 
 A  B   C   (D)  E   F   G  
          イ   
           ロ   
          ハ 
          ニ   
          ホ 
------------------------------------------------------------------------ 
【マクロ実行後】 
----------------------------------------------------------------------- 
<Sheet2> 
 
 A  B   C  (D)  E   F   G  
          イ  あ  う  お 
           ロ  い 
          ハ 
          ニ  え 
          ホ 
------------------------------------------------------------------------ 
 
Sheet1のA列、Sheet2のD列は毎回行数が変化するのでxlUpを使った変数として扱い、sheet2のE、F、G列についてはMAX3列ですので、変数を5to7とし、自分なりに作ってみたのですが、変数と繰り返し処理の指示に不慣れでうまくいきません。 
 
説明不足な部分もあるかと思いますが、教えて頂ければとても助かります。 
 | 
     
    
   |