| |
▼ｔｅｔｕ さん：
>ﾃﾞｰﾀ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/11(火) 11:02 -
