|
こんにちは。
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とし、自分なりに作ってみたのですが、変数と繰り返し処理の指示に不慣れでうまくいきません。
説明不足な部分もあるかと思いますが、教えて頂ければとても助かります。
|
|