|
▼tetu さん:
>データ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でできるかたよろしくご教授ください。
なかなかレスが付かないようですね。
このご質問の中で、
「どこがわからないのか?」がわかりません。
わからない部分を質問してください。
|
|