![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
Excelでシート営業とシート顧客の2つがあります。どちらも互いの部署のデータが入っています。
シートの説明をします。シート顧客のD列に部品コード【145847】のような数字が1000以上あり、シート営業にも同じ数字がB列に1000以上ランダムにあり更に同じ数字が出てきます。シート営業のA列には、取引先コードが【123-254】とあり、同じ部品コードでも違う取引先コードがいくつかあります。
そこで私の作りたいのは、シート顧客をベースにして、部品コードD1を検索値として、シート営業の部品コードB列の検索範囲から検索して、ヒットした取引先コードのみをシート顧客の部品コードD1隣空セルに入れたいのです。このとき、検索結果が複数あった場合はさらに隣の空セルにいれたいのです。開きセルE.F.G.H.I.Jのように10個程度必要です。つぎは部品コードD2を検索値として行います。これを1000以上繰返したいので、関数かVBAを考えています。
長くなってすみません。
マクロについては あまり詳しくないので
できれば関数を使いたいのですが 無理でしょうか?
マクロを使うのであれば 分かりやすくプログラムを教えていただきたいのですが・・方法が分からず困っています。
お手数ですが、どうかお教えください。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
考えられる一つの方法を紹介したいと思います。
関数がやや複雑になるので、分かり易くするためもあって、顧客シートのA,B,C 列を空けて、ここに、シート顧客 のA,B列をコピーしたとして、説明します。シート顧客
A B C D
1 取引先コード 顧客コード 顧客コード
2 123-234 145847 2 145847 123-234 123-236
3 123-235 145848 145855
4 123-236 145847 4 145856
5 123-237 145855 145857
6 123-238 145847 6 145858
2001 1 2 3
2002 145847 2 4 6
2003 145855
2001行のE列から横に 1 2 3・・・10と数字をいれる
D列の1行~2000行を2002行~4001行にコピーします。
C2に次の式を入れ下にコピー
=IF(B2=$D$2,ROW(),"") 下にコピー これは同じ顧客コードには行#を表示させるもの。
次に2002行のE列に次の式をいれる
=IF(ISERROR(SMALL($C:$C,E2001),"",(SMALL($C:$C,E2001))
横にコピー これは同じ顧客コードの飛び飛びを横に揃える。エラーは空白にするもの。
最後にE2の式は
=INDEX($A:$A,E2002) 横にコピー これはE2002に表示させた行数を利用して取引先コードを表示させるものです
(2001行の表示はずれてますがE列からです)
このような考え方でやってみてください。
この回答への補足
回答ありがとうございます。同じようにやってみましたが、「2002行のE列に次の式をいれる
=IF(ISERROR(SMALL($C:$C,E2001),"",(SMALL($C:$C,E2001))」でうまくできません。2002のE列に2とは表示されず、上記の式が表示されてしまいます。
すみませんが何が悪いんでしょうか。教えてください。よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 改行コードの取り方 1 2022/03/22 14:14
- その他(ビジネス・キャリア) スポット取引とは? 1 2023/04/06 15:23
- Visual Basic(VBA) VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お 6 2023/05/17 01:40
- Visual Basic(VBA) 顧客ごとに違う点検案内を作成するマクロ 4 2022/09/16 05:34
- Excel(エクセル) マクロVBAのフォルダ階層別で検索の方法 4 2022/04/03 23:23
- Visual Basic(VBA) 集計シートA列のコードと一致する右に並んだシート名(コード)の3行目から10行目をコピーして貼り付け 4 2022/08/18 15:24
- Excel(エクセル) Excelにて、行の最後のセルの値をコピーして別sheetに張りつけるVBAコードをご教授願います 3 2022/11/20 14:35
- Excel(エクセル) Excel_マクロ_複数のシートのVLOOKUPで表示された#N/A以外に色付けをしたいです 1 2023/02/16 22:37
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Visual Basic(VBA) vbaマクロについて シート1のA列にある商品コードが シート2のB列にある商品コードに該当する場合 2 2023/05/17 13:41
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
勘定奉行の売上削除
-
弥生青色申告オンラインで貸借...
-
最近、やよいの青色申告クライ...
-
Excelの改ページプレビューの既...
-
Googleドキュメントで数式を書...
-
弥生会計と、マネーフォワード...
-
弥生の青色申告オンライン を初...
-
numbersで累計を計算するには
-
添付のエクセルの車検証・運転...
-
タックインデックスシール
-
青色申告の申告書作成可能な 会...
-
共有しているエクセルのファイ...
-
出金伝票の書き方ですが、 勘定...
-
メモ帳で、行間が1行くらいあい...
-
指定した範囲内のセルが全て入...
-
エクセルで
-
エクセルで
-
法人で、会計ソフトを、つかう...
-
仕訳相談できる会計ソフトは、...
-
Excelとキントーンの違いはなん...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
法人で、会計ソフトを、つかう...
-
弥生会計クラウド24と、freeeど...
-
仕訳相談できる会計ソフトは、...
-
Excelとキントーンの違いはなん...
-
パソコンからL判で印刷する方法
-
共有しているエクセルのファイ...
-
弥生の青色申告オンライン を初...
-
タックインデックスシール
-
エクセルで
-
エクセルで
-
指定した範囲内のセルが全て入...
-
数量・会社ごとに異なる単価表...
-
一太郎で封筒の宛名印刷したい...
-
出金伝票の書き方ですが、 勘定...
-
一太郎2022に古いATOKは使える...
-
メモ帳で、行間が1行くらいあい...
-
わかる方教えてください! 今日...
-
Googleドキュメントで数式を書...
-
Googleスプレッドシートで合計...
-
最近、やよいの青色申告クライ...
おすすめ情報