Excel 関数またはマクロ、VBA

Question

画像のようにデータを抽出する方法を教えてください。

製品A,B,C、、ごとのデータは大抵1つ(数とその日付のひと組)だけです。
いままでに2組あったことはないくらい稀てすが、あるかもしれないので、その行にある数字は全て抜きだすということです。

1度だけではなく、毎週このデータがきて、表のように抜きだす作業です。


もしマクロかVBAかよく分からないですが必要ならば、組んだ経験がないので、わかりやすく教えていただければ助かります
よろしくお願いします

もしどうしても難しければ、日付は抜きにして、数だけの羅列でもかまいません(A 2 4 のように)

tatsumaru77 · Accepted Answer

>シート1、つまり元データをで該当するセルを黄色に塗りつぶすことはできますか？

下記に修正版をアップしました。
https://ideone.com/KvPW0F

tatsumaru77 · Answer

マクロを下記URLにアップしました。
標準モジュールに登録してください。
https://ideone.com/Cp9M0H

仕様上の注意
１．設定項目
Const Folder As String = "d:\goo\data2"
は、左側のブックを格納してあるフォルダ名です。
あなたの環境にあわせて適切に設定してください。

Const BookName As String = "Book1.xlsx"
は、左側のブックのブック名です。
あなたの環境にあわせて適切に設定してください。

Const SheetName As String = "Sheet1"
は、左側のブックのシート名です。
あなたの環境にあわせて適切に設定してください。

２．Sheet2について
Sheet2は、マクロのあるブックに作成しておいてください。
マクロが設定するのはSheet2の以下の項目のみです。
①D列３行目以降
②AD列～AG列の３行目以降
③（万が一、数量が３件以上あれば、AH列以降も設定されます。通常は設定されません）
上記以外は設定しません。見出しなどは、あなたが事前に設定しておいてください。

３．左側のブックのレイアウトについて
下記URLにアップしました。念のため、ご確認ください。
https://gyazo.com/153816683825f1b1e666cf09f6cd74a2
この前提でマクロを作成しています。
黄色いセルの行が、数量の記入してある行になります。

４．W列の扱いについて
数量が記入してあるのは、8,16,24・・行になりますが、
この行のＷ列にはExpiryの文字があるはずなので、行のずれの確認のために
該当セル内にExpiryの文字がない場合、エラーにしています。
エラーの場合、エラーメッセージを表示して停止します。

不明点があれば、補足してください。

tatsumaru77 · Answer

補足ありがとうございました。
追加での補足要求です。
１．左側のシー名は、マクロでは、Sheet1として記述します。
マクロ実行時は、Sheet1を実際のシート名に変更してから、実行することになりますが、
それでよろしいでしょうか。（以降、このシートをSheet1として記述します）

２．右側のシート名は、Sheet2とします。それでよろしいでしょうか。

３．Sheet1のレイアウトの確認です。以下で間違いないでしょうか。
①日付は、３行目に記述してあり、Y列からBT列まである。
②製品はG列で必ず８行で１製品となる。8行目から製品が記述される。
③製品の最初の行には製品名が必ず記述されている。
従って、G8,G16,G24,G32・・・・に製品名が必ず記述されている。
④数字が書かれている行は、各製品の最初の行のみである。
従って、8行,16行,24行,32行・・・に数字が書かれている。
（マクロが検索するのは、上記の行のみです。他の行はたとえ書かれていても無視します。）
⑤W列は、特に使用しないので、この列の内容は参照もしないし、何が書かれていても無視します。

４．Sheet2へ出力時、万が一３つ以上あった場合は、どうしますか。
案１：２つ検知した時点で打ち切る。したがって３つあっても、３つ目以降は無視される。
案２：３つ目以降を、AH以降の列へ記述する。（警告メッセージ表示なし）
案３：案２と同じであるが、その都度、警告メッセージを画面に表示する。
私は、案２又は案３が良いかと思います。

５．Sheet2へ出力する商品名は、実際に数量が記述されている商品のみでしょうか。
それとも、数量が記述されていない商品もSheet2へ出力するのでしょうか。
例えば、商品Bの、Y列～BT列に一件も数量が記述されていないとき、
商品Bは、Sheet2に商品名のみを記述し、日付と数量は空白にしますか。
それとも、商品BをSheet2に出力しないようにしますか。

６．マクロを登録するファイルですが、マクロを登録すると、拡張子が.xlsmになります。
①マクロを登録したファイルのSheet2へ結果を出力しますが、それでよいでしょう。
②Sheet1は、マクロを登録したファイルとは別ファイルになります。
このファイルの格納フォルダ、ファイル名は毎回同じなのでしょうか。
それとも月ごとに変わるのでしょうか。
同じであれば、マクロで固定情報として、フォルダ名、ファイル名をもち、処理を行います。
毎月変わるのであれば、ファイル選択ダイアログボックスを表示し、ファイルを選択した後、
そのファイルを処理します。
③Sheet1があるファイルの拡張子は.xlsxで間違いないでしょうか。
（たまに.xlsのケースがあるので、念のための確認です）

tatsumaru77 · Answer

>申し訳ないのですが、添付していただいた画像は拡大できないので、小さくて見えません。

こちらにアップしました。
https://gyazo.com/8f8d76b2b7992c5fd2fde6fab4113b49

tatsumaru77 · Answer

補足要求です。
１．各シートの正確なセルの位置がわかりません。
添付図のようになっていると、理解して良いでしょうか。
もし、セルの位置が異なる場合は、その旨補足してください。

２．左側のシートのシート名は何でしょうか。

３．右側のシートのシート名は何でしょうか。

４．左側のシートの日付は、1/31まであるのでしょうか。

Excel 関数 またはマクロ、VBA

>シート1、つまり元データをで該当するセルを黄色に塗りつぶすことはできますか？

マクロを下記URLにアップしました。

補足ありがとうございました。

>申し訳ないのですが、添付していただいた画像は拡大できないので、小さくて見えません。

補足要求です。

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

Excel 関数またはマクロ、VBA