|
データSheetと統合Sheetの2つあります。
週1ごとにデータSheetのデータは更新され、その都度データSheet
のデータを統合Sheetに貼り付けていくマクロをくみたいです。
「データSheet」
A列 B列 C列 D列 E列 F列 G列 H列
1品番/品名 材質 材寸 寸法 員数 1/2 1/3
2△△△△△ ■■■ ☆☆☆ ○○○
3空白 空白 空白 空白
4↓ ↓ ↓ ↓ 数量 100 120
5 ロットNo 111 114
6 入荷数
7 在庫
8 材料入荷数
9 在庫
10△△△△△ ■■■ ☆☆☆ ○○○
1.統合Sheetに値が何も無い場合にデータSheetのデータを統合Sheetにそのまま貼り付ける
2.統合Sheetに値がある場合に3.の処理をする
3.データSheetRange(A2)の文字と統合SheetA列のデータのデータがある部分の範囲で
同じ文字があるか検索していく
4.データSheetA2と同じ値が統合SheetA列にある場合
上の表でいうとデータSheetの行の範囲はA2〜A9、列の範囲はデータのある部分を指定してCopy
統合sheetの同じ値の行、ロットNOの数字のある部分の次のセルの列にActiveして、貼り付ける
5.データSheetA2と同じ値が統合Sheetに無い場合
上の表でいうとデータSheetのRange("A1:E9")の範囲のみCopyして、統合SheetのA列デー
タのある1番最終行に移動して貼り付けF以降のデータは、統合SheetのロットNoの数字が
ある次のセルの列とそのA2の値がある行まで移動して貼る
6.データSheetのA2の次の行に(上の表でいうとA10)移動し1.以降の処理を繰り返す
データSheetA列に値がなくなるまで繰り返す
長々書いてしまってすいませんコードであらわそうとすると余計整理がつかないため
文章でかきました。この小難しい処理をVBAでできるかたよろしくご教授ください。
|
|