| |
VBA 初心者です。
宜しくお願いします。
シートA,B(同一ファイル内)があり、Bは管理データ。
日々発生するAの情報をBへ反映(更新)したい。
A,Bは同じ項目でA列からZ列まであります。（数値、文字、日付含む）
A,B双方のA列の型番を比較し(A列の最終行まで)、
Bに同じ型番が存在すれば、
Bの全て対象行を削除し、Aの対象型番をBへコピーしたい。
管理台帳.xlsm
【SheetA】
A列 B列 C列 D列 E列 F列 ・・・Z列
型番1 7 7 7 7 7 ・・・2014/08/01
型番2 5 5 5 5 5 ・・・2014/08/05
型番3 8 8 8 8 8 ・・・2014/07/01
型番3 2 2 2 2 2 ・・・2013/12/01
型番4 7 7 7 7 7 ・・・2014/01/10
型番5 4 4 4 4 4 ・・・2014/08/15
【SheetB】更新前
A列 B列 C列 D列 E列 F列 ・・・Z列
型番1 4 4 4 4 4 ・・・2014/08/01←削除してSheetA内容に置き換え
型番2 5 5 5 5 5 ・・・2014/08/01←削除してSheetA内容に置き換え
型番3 1 1 1 1 1 ・・・2014/08/01←削除してSheetA内容に置き換え
型番4 7 7 7 7 7 ・・・2014/08/01←削除してSheetA内容に置き換え
型番5 4 4 4 4 4 ・・・2014/08/01←削除してSheetA内容に置き換え
型番6 6 6 6 6 6 ・・・2014/08/01←SheetAに型番6は無い為更新なし
【SheetB】更新後
A列 B列 C列 D列 E列 F列 ・・・Z列
型番1 7 7 7 7 7 ・・・2014/08/01
型番2 5 5 5 5 5 ・・・2014/08/05
型番3 8 8 8 8 8 ・・・2014/07/01
型番3 2 2 2 2 2 ・・・2013/12/01
型番4 7 7 7 7 7 ・・・2014/01/10
型番5 4 4 4 4 4 ・・・2014/08/15
型番6 6 6 6 6 6 ・・・2014/08/01
どうか、よろしくお願いします。
|
|
MARUMO
- 14/8/17(日) 22:20 -
