表引き

質問

表引き関数　　再質問です
仮に
A　　　　B　　C　　　D　　　E　
A1　　　　2　　1　　　1　　
A2　　　　4　　2　　　1
A3　　　　5　　3　　　2　
A4　　　　6　　4　　　4
A5　　　　1　　5　　　6
A6　　　　2　　6　　　2
BとCに2列の表があります
E1には　=vlookup(D1,B1:C6,2,false)の関数の式を入れました
B列はランダムな数値　C列は通し番号です

いつもは　B列に通し番号　C列はランダム数値なのでD列の数値に対してのE列の表引きは問題ないのですが

上のように　B列がランダムな数値　C列が通し番号の場合
B列に同じ数値が複数個あるとき　E列に返してくるのは
その数値の最初のひとつだけ　
上の仮の表　では　D列の数値に対して
E1は　以下

　E列
　5
　5
　1と6
　2
　4
　1と6
ですが
この1と6の6が表引き出来なんです
この6も表引きしたいのです
どうすればいいのでしょうか　他の関数と組み合わせるんでしょうか
よろしくお願いします

回答No.2

jamshid6 · ベストアンサー

#1です。

VBAをマスターする必要はないと思います。
そこまでやらないと、質問者さんのやりたいことはできないということです。

・「ワークシート関数だけではできないから」とあきらめる方法が１つ

・ワークシート関数だけでできる限りやる方法が１つ
　１つ目、２つ目というようにゼロが返るまで該当するものを返す列を用意します。
　もちろん、何個該当するか分からないので、その分だけ列を設け、例外が発生したら列を増やします。

　「配列数式」というものを理解していただく必要があります。
　キーワード検索でいくつもでてきます。
　E1には=MIN(IF($B$1:$B$6=$D1,$C$1:$C$6))
　F1には=MIN(IF($B$1:$B$6=$D1,IF($C$1:$C$6>IF(E1=0,999999,E1),$C$1:$C$6)))
　G列以降はF1のコピー

・VBA関数を使う
　VBAを説明する気はありませんが、VBA関数がどうやって動くのかをイメージするためだけに以下の手順を紹介します。

　1) Alt＋F11でVisual Basic Editorを開きます。
　2) 「挿入」－「標準モジュール」
3) 追加されたシートに「Function ～End Function」まで丸ごと貼る
4) Excelブックを保存する
　5) E1セルに「=MultiLookup(D1,B1:C6,2)」と打ってみる
　※マクロが動かないセキュリティ設定になっていたら「有効にする」必要があります

お礼

再度の回答ありがとうございます

この手順で　やってみます
めんどくさがりやですので　関数はありがたいです
　必要なものだけ　つまみぐい　するほうで　関数も今いるものだけ
　これがいけないのでしょう
　こうできれば早いとおもうことが　今後出てくるときに
対応できないのも　また　めんどうですので
がんばってみます　いろいろありがとうございました

回答No.1

jamshid6

該当するものを複数見つけられたとしても、それを「1と6」のようにまとめて表示させる「関数」がExcelにはありません。
（参考）範囲指定の文字列結合に関する過去の質問
　http://okwave.jp/qa3853243.html

「重複してもが最大３つ」とか分かっていれば、それだけ列を用意しておいて、それぞれ検索させればいいのですが、
いくつ重複するか分からないのであれば、関数だけでは対応できません。

だから、VBAで関数を作るしかないと思います。
以下のものを標準モジュールに貼れば、そのブックでは「=MultiLookup(D1,B1:C6,2)」という風に複数あったら
複数表示できるワークシート関数が使えるようにります。

Function MultiLookup(objSrch As Range, objRange As Range, intRetCol As Integer) As String

Dim obj As Range
Dim strRet As String

For Each obj In objRange.Columns(1).Cells
If obj.Text = objSrch.Text Then
strRet = strRet & IIf(strRet = "", "", "と") & obj.Offset(0, intRetCol - 1).Text
End If
Next

MultiLookup = strRet
End Function

補足

回答ありがとうございます
やっぱり　エクセルでは　　とは思っていましたが　やはりね
　書いていただいた　標準モジュールも　わかりません
　VBAはまったくわかりません　何から　やったらいいでしょうかね