Excel VBA質問箱 IV

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

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


70521 / 76732 ←次へ | 前へ→

【10716】Re:セルの内容に従って抽出を行うマクロ
回答  Jaka  - 04/2/10(火) 9:02 -

引用なし
パスワード
   もう見てくれないと思いますが、無い知恵絞ってみました。
って、雑誌に書いてあった手法なんですけど...。
データやレイアウトなどが、ほとんど記載されていませんので、適当に作りました。
ほとんどの質問者に言えるけど、データやレイアウトはきちんと記載してほしいです。
データが記載されていなかったり、1〜3行程度しか記載されていないと、回答者にレイアウトも含め自分で作ってくれと言っているような物ですから...。
自分でデータを考えるのは、面倒くさくて私は嫌だなぁ!
2回目。

で、レイアウトがこんな感じになっているとして。

   A    B    C    D    E   F   G   H   I   J
1 品名  コード  支店名  商品名            品名  コード 支店名
2  A   100   B店   あんこ           B   101  B店
3  B   100   B店   あんこ           あんこ,ミカン,大福
4  C   100   B店   あんこ
5  A   100   B店   イチゴ
6  B   100   B店   ミカン
7  C   100   B店   リンゴ
8  A   100   B店   大福
9  B   100   B店   大福
10 C   100   B店   大福

作業列にE列とF列を使います。

E2
=IF(AND(A2=$H$2,B2=$I$2,C2=$J$2),OFFSET(A2,,3,,),"")

F2
=E2&" "

F3
=F2&E3&" "

を入れたら、
E2を選択して、セルの右下角にポインタを当て、ポインタが+になった所でWクリック。
次、
F3を選択して、同じようにWクリック。

H3
=SUBSTITUTE(TRIM(F10)," ",",")

H2〜J2に品名等を入れれば、H3に結果が出ます。
作業列がじゃまだったら、非表示にでもしてください。

1 hits

【9930】セルの内容に従って抽出を行うマクロ みけ 03/12/24(水) 10:35 質問
【9932】Re:セルの内容に従って抽出を行うマクロ INA 03/12/24(水) 11:07 発言
【9934】Re:セルの内容に従って抽出を行うマクロ ぴかる 03/12/24(水) 11:51 発言
【9935】Re:セルの内容に従って抽出を行うマクロ びょびょ〜ん 03/12/24(水) 12:09 発言
【9936】Re:セルの内容に従って抽出を行うマクロ みけ 03/12/24(水) 12:47 質問
【9937】Re:セルの内容に従って抽出を行うマクロ INA 03/12/24(水) 12:55 回答
【9952】Re:セルの内容に従って抽出を行うマクロ ichinose 03/12/24(水) 19:25 発言
【10716】Re:セルの内容に従って抽出を行うマクロ Jaka 04/2/10(火) 9:02 回答
【9933】Re:セルの内容に従って抽出を行うマクロ Jaka 03/12/24(水) 11:47 発言

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