VLOOKUP関数（他の方法でも可）を使って、複数の値を抽出する方法を教えてください

このような複数のスプレッドシート（エクセルドキュメント[シート]）がある場合、

抽出元データ

ID	商品
001	りんご
002	バナナ
003	メロン
004	いちご
005	みかん

抽出先データ

ID	商品
002	バナナ
003+002	メロン+バナナ
004	いちご
001+005	りんご+みかん
005+002	みかん+バナナ

VLOOKUP関数を使ってIDをキーにして、抽出先データのように複数（+は残したまま）抽出することは可能でしょうか？
またVLOOKUP関数で不可能な場合でも他の方法が何かあれば教えていただけると助かります

radames1000

2021/06/06 22:25

「+」は最大一つですか？

wwwwwww

2021/06/06 23:59

ご質問ありがとうございます目先の実務では「+」は1つのみとなります 3つ（「+」が2つ）以上の場合ももしあれば、なければ2つ（「+」が1つ）の場合だけでも問題ないので何かお気づきの箇所があれば、お手すきの際にもご教授いただければ幸いですm(__)m

行動規範の内容に同意します

回答3件

今回のご要望ならGASが必須ってことは無いです。

Googleスプレッドシートであれば、諸々の関数を組み合わせてkainaさんの回答の2-4を関数で対応可能です。ExcelだとまだSplit関数が無いと思うので厳しいかも。

試しにテストしてみましたがSPLITの際にIDのところが 001 → 1 に変換されてしまうので、とりあえずIDが3桁の数字である前提でTEXT関数で処理しました。実際はIDは全然違う桁数や組み合わせという場合は、ここを修正する必要があります。

1の行毎に～の部分はコピペかオートフィルで対応いただくのが良いです。
頑張れば1つの式で出来なくもないですが、逆に遅くなるんじゃないかと思います。

GoolgeSheets
1=ARRAYFORMULA(TEXTJOIN("+",TRUE,IFERROR(VLOOKUP(TEXT(SPLIT(A2,"+"),"000"),'抽出元データ'!$A$1:$B,2,FALSE),)))

投稿2021/06/10 00:16

sawa

総合スコア3002

wwwwwww

2021/08/22 05:17

確認遅くなり申し訳ありません一度試してみたいと思いますまたご報告させていただければ幸いです

行動規範の内容に同意します

関数じゃなくてvbaであれば、以下のイメージでIDが増えても対応できます。

１．抽出先データの行ループ
２．IDの内容をスプリットで配列に格納
３．２で抽出した配列数分ループ
４．VLOOKUPでスプリットで分割したIDをキーに検索し、商品列に+を付けて出力

上の内容に対してさらに以下の点を考慮してあげればOK。

・商品列に出力する際に+で終わらないようにする
・検索出来なかった場合を考慮する

投稿2021/06/07 07:27

kaina

総合スコア418

kaina

2021/06/07 08:41

Google スプレッドシートでも同様の流れをGASで作成すればOK。

wwwwwww

2021/06/09 22:54

返信が遅くなり大変申しわけありませんやはりvbaなりGASが必須でしたか、、、GASの勉強を含めて検討してみます本当にありがとうございました

行動規範の内容に同意します

とりあえず間に合わせで書くならこういう感じでいかがでしょうか。

Excel
1=IF(LEN(A2)=3,VLOOKUP(A2,抽出元データ!A:B,2,FALSE),VLOOKUP(LEFT(A2,3),抽出元データ!A:B,2,FALSE)&"+"&VLOOKUP(RIGHT(A2,3),抽出元データ!A:B,2,FALSE))

VBAを使っていいならたとえばこんな感じ。

VBA
1Public Function SAMPLEFUNC(pFind, pRange)
2    Dim arr, i
3    arr = Split(pFind.Value, "+")
4    For i = LBound(arr) To UBound(arr)
5        arr(i) = WorksheetFunction.Index(pRange, WorksheetFunction.Match(arr(i), pRange.Columns(1), False), 2)
6    Next
7    SAMPLEFUNC = Join(arr, "+")
8End Function
9