Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


30721 / 76738 ←次へ | 前へ→

【51281】データ統合について
質問  tetu  - 07/9/9(日) 22:20 -

引用なし
パスワード
   データ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でできるかたよろしくご教授ください。

0 hits

【51281】データ統合について tetu 07/9/9(日) 22:20 質問
【51307】Re:データ統合について ハチ 07/9/11(火) 11:02 発言
【51320】Re:データ統合について tetu 07/9/12(水) 0:44 質問
【51329】Re:データ統合について ハチ 07/9/12(水) 9:22 回答
【51377】Re:データ統合について tetu 07/9/14(金) 0:17 お礼

30721 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free