| |
ﾃﾞｰﾀSheetと統合Sheetの2つあります。
週１ごとにﾃﾞｰﾀ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)の文字と統合ＳheetA列のﾃﾞｰﾀのﾃﾞｰﾀがある部分の範囲で
同じ文字があるか検索していく
4.ﾃﾞｰﾀSheetA2と同じ値が統合SheetA列にある場合
上の表でいうとﾃﾞｰﾀSheetの行の範囲はA2〜A9、列の範囲はﾃﾞｰﾀのある部分を指定してCopy
統合sheetの同じ値の行、ﾛｯﾄNOの数字のある部分の次のセルの列にActiveして、貼り付ける
5.ﾃﾞｰﾀSheetA2と同じ値が統合Sheetに無い場合
上の表でいうとﾃﾞｰﾀSheetのRange("A1:E9")の範囲のみCopyして、統合SheetのA列ﾃﾞｰ
タのある１番最終行に移動して貼り付けＦ以降のﾃﾞｰﾀは、統合SheetのﾛｯﾄNoの数字が
ある次のセルの列とそのA2の値がある行まで移動して貼る
6.ﾃﾞｰﾀSheetのA2の次の行に(上の表でいうとA10)移動し1.以降の処理を繰り返す
ﾃﾞｰﾀSheetA列に値がなくなるまで繰り返す
長々書いてしまってすいませんｺｰﾄﾞであらわそうとすると余計整理がつかないため
文章でかきました。この小難しい処理をVBAでできるかたよろしくご教授ください。
|
|
ｔｅｔｕ
- 07/9/9(日) 22:20 -
