|
▼ハチ さん:
>▼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でできるかたよろしくご教授ください。
>
>
>なかなかレスが付かないようですね。
>このご質問の中で、
>「どこがわからないのか?」がわかりません。
>
>わからない部分を質問してください。
急ぎご指摘ありがとうございます。
こんなんに難しく書いてしまったので理解に苦しむかなとは、おもいましたが、噛み砕いて
文章にした結果余計混乱させてしまったみたいで、すいません
とりあえず全然途中までのコードをのせて合わせて再度質問させていただきます。
Sub 統合()
Dim Rng As Range
Dim RngAll As Range
Dim Rng2All As Range
Dim VriAns As Variant
Dim I As Long
Set RngAll = Worksheets("データ").Range("A2", Range("A2000").End(xlUp)) '範囲指定
Set Rng2All = Worksheets("統合").Range("A2", Range("A2000").End(xlUp)) '範囲指定
If Sheets("統合").Range("A:A").Value = Nothing Then '統合シートに値が、無い場合データを貼り付け
Sheets("データ").Select
Sheets("データ").Copy
Sheets("統合").Select
Selection.PasteSpecial , Operation:=xlPasteAll
Eles
For Each Rng In RngAll
VriAns = Application.Match(Rng.Value, Rng2All, 0) 'データシートの文字が統合シートにあるか確認
If (VriAns) = True Then
Worksheets("データ").Range(Rng.End(xlDown).Resize(-1, 0), IV1.End(xlLeft)).Select 'ある場合ほしい部分をコピー
Selection.Copy
End Sub
統合Sheetの同じ値の行とロットNOの次の列(空白の部分)にセルをActiveさせ貼り付けたい
のですが,どのようにコードにしたらいいかわからず、先にすすめないです
実際,途中のためここまでの状態も、この構文でいいのも不安ですし
検索が終わった後次のセルを又同じ用に検索させたいのですが、これもわからず
こまっています。大変申し訳ありませんがその点踏まえ再度わかる方おしえてください
|
|