| |
▼ハチ さん：
>▼ｔｅｔｕ さん：
>>ﾃﾞｰﾀ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でできるかたよろしくご教授ください。
>
>
>なかなかレスが付かないようですね。
>このご質問の中で、
>「どこがわからないのか？」がわかりません。
>
>わからない部分を質問してください。
急ぎご指摘ありがとうございます。
こんなんに難しく書いてしまったので理解に苦しむかなとは、おもいましたが、噛み砕いて
文章にした結果余計混乱させてしまったみたいで、すいません
とりあえず全然途中までのｺｰﾄﾞをのせて合わせて再度質問させていただきます。
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させ貼り付けたい
のですが，どのようにｺｰﾄﾞにしたらいいかわからず、先にすすめないです
実際,途中のためここまでの状態も、この構文でいいのも不安ですし
検索が終わった後次のセルを又同じ用に検索させたいのですが、これもわからず
こまっています。大変申し訳ありませんがその点踏まえ再度わかる方おしえてください
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
