| 
    
     |  | はじめまして、VBA初心者です。 下記の移動後のように移動をさせたいのですが
 条件があり困っております。
 条件とは、sheet1のA列とsheet2のA列が同じ値の時、(sheet1 A1= sheet2 A1など A1〜A15まで比較)
 sheet1のA欄と同じ値の行のB列にsheet2 Aの値をコピーできるようにしたいです。
 一致しない値はそのままコピーなしです。
 VBAでこのようなことは可能でしょうか?結果は下記の2.移動後のとうりに
 したいです。毎回「A」の値は変わるので変わることを考慮できるように
 したいっです。
 すいませんがご教授いただきますようお願いします。
 -----------------------------------------------------------
 1.移動前
 sheet1               sheet2
 
 A  B  C  D        A   B   C   D   E
 1 0.8             1 0.8  国  0.81     TN
 2 1.2             2 1.3  数  1.31     BN
 3 1.6             3 1.6  理  1.61     BN
 4 1.7             4 2.0  家  2.01     TN
 5 2.0             5 2.1  図  2.11     BN
 .
 .
 5 5.5
 ---------------------------------------------------------------
 2.移動後
 sheet1               sheet2
 
 A  B  C  D        A   B   C   D   E
 1 0.8 0.8  国 0.81      1 0.8  国  0.81     TN
 2 1.2              2 1.3  数  1.31     BN
 3 1.6 1.6  理 1.61   ←  3 1.6  理  1.61     BN
 4 1.7              4 2.0  家  2.01     TN
 5 2.0 2.0  家 2.1       5 2.1  図  2.11     BN
 .
 .
 15 5.5
 
 |  |