VLOOKUPの応用について困っています。

質問

Ａ　　　　Ｂ　　　　Ｃ　　　　Ｄ　　　　Ｅ
１　Ａ地区　　建物　　　(1)　　　(2)　　　　(3)
２　Ａ地区　　車両　　　(4)　　　(5)　　　　(6)
３　Ｂ地区　　建物　　　(1)　　　(2)　　　　(3)
４　Ｂ地区　　車両　　　(4)　　　(5)　　　　(6)　　　　　　
５　
６　Ｂ地区　　車両　　　(4)　　　(5)　　　　(6)

上記のような表でＡ６に”Ｂ地区”、Ｂ６に”車両”と入力した場合、Ａ１：Ｅ４までの表で入力されている(4)、(5)、(6)をＣ６：Ｅ６に表示させたいのですが何か良い方法ありますか。
すみませんが教えてください。

回答No.3

noname#204879 · ベストアンサー

C6: =INDEX(C$1:C$4,SUMPRODUCT(($A$1:$A$4=$A6)*($B$1:$B$4=$B6),ROW(A$1:A$4)),)

お礼

回答ありがとうございます。

おかげさまで解決し、満足のいく結果が得られました。

回答No.7

mitarashi

Cに作業列を入れて良ければ、AとBの文字列に、デリミタを挟んで合成し、D6～E6は、C6を検索値にした、VLOOKUPを使えばいかがでしょう。☆のところは、お好きな、出てきそうもない文字にしてください。
..................A...............B.............................C...............D...............E...............F
..1.....Ａ地区.........建物.......Ａ地区☆建物............(1)...........(2)...........(3)
..2.....Ａ地区.........車両.......Ａ地区☆車両...........(4)...........(5)...........(6)
..3.....Ｂ地区.........建物.......Ｂ地区☆建物............(1)...........(2)...........(3)
..4.....Ｂ地区.........車両.......Ｂ地区☆車両...........(4)...........(5)...........(6)

..6.....Ｂ地区.........車両.......Ｂ地区☆車両...........(4)...........(5)...........(6)

お礼

回答ありがとうございました。

参考とさせていただきます。

回答No.6

imogasi

＃５です。ＤＳＵＭ関数では、式の複写で各条件の結果を出せないので、
ＤＳＵＭ関数とＶＢＡ（マクロの記録の応用）でやってみました。
Ａ１：Ｅ５　元データ
地区 種類 Ａ Ｂ Ｃ
Ａ地区 建物 -1 -2 -3
Ａ地区 車両 -4 -5 -6
Ｂ地区 建物 -1 -2 -3
Ｂ地区 車両 -4 -5 -6

条件を入れるセルと結果　Ａ８：Ｅ１２
そのうちＡ９：Ｂ１２（地区＋種類）は条件として入力しておく。
地区 種類 Ａ Ｂ Ｃ
Ｂ地区 車両 -4 -5 -6
Ｂ地区 建物 -1 -2 -3
Ａ地区 車両 -4 -5 -6
Ａ地区 建物 -1 -2 -3
ーー
作業エリアと条件指定エリア
Ｈ１：Ｉ１は入力しておく。その下行はプログラムでセットして
使う。
Ｈ１：Ｉ２
地区 種類
Ａ地区 建物
ーーー
Ｈ４：Ｌ５　見出しとして第４行は入れておく。
その下行はプログラムでセットして使う。

地区 種類 Ａ Ｂ Ｃ
Ａ地区 建物 -1 -2 -3
ーーーー
ＶＢＡコード
フィルタオプションの設定のマクロの記録を修正。
Sub test02()
For i = 9 To 12
Range("A1:E5").Select
v = Range("A" & i & ":B" & i)
Range("H2:I2") = v
MsgBox "aa"
Range("A1:E5").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"H1:I2"), CopyToRange:=Range("H4:L5"), Unique:=False
U = Range("J5:L5")
Range("C" & i & ":E" & i) = U
Next i
End Sub
ーー
実行すると
Ｅ９：Ｌ１２（実はＣ９：Ｌ１２）がセットされた（検索された）。
ーーーー
今までに無い回答と思う。
ただ作業エリアが必要であったりする。

お礼

ありがとうございます。

ＶＢＡは勉強途中なので、これからの参考とさせていただきます。

回答No.5

imogasi

>VLOOKUPの応用について
ＶＬＯＯＫＵＰ関数は１つ１列の値しか検索できません。ですから
＞Ｂ地区　　車両　のように２列に分かれたものは検索できません。
なんぼ考えてもダメですから、考えて時間を無駄にしないように。
ーーー
そこで２列を１列にしたらどうかということになります。空き列に
２列を結合した文字列を作る。
検索する方も２セル結合して検索する。
（これにはケースは少ないものの、Ｘ＆Ｙ＝Ｚ＋ｕの型の文字列２つが無いか良く検討しておく必要があるが。）

ーーー
余り回答が出ないが
データ
Ａ１：Ｅ５
クライテリア＝条件
Ｈ１：Ｉ２
ーー
Ａ列　　Ｂ列　　Ｃ列　　Ｄ列　　　Ｅ列　　　Ｈ列　　Ｉ列
地区 種類 Ａ Ｂ Ｃ 地区 種類
Ａ地区 建物 -1 -2 -3　　　　Ｂ地区 車両
Ａ地区 車両 -4 -5 -6
Ｂ地区 建物 -1 -2 -3
Ｂ地区 車両 -4 -5 -6
抽出する範囲に
Ａ８：Ｅ９
地区 種類 Ａ Ｂ Ｃ
Ｂ地区 車両 -4 -5 -6
ーーーー
操作
データ
フィルタ
フィルタオプションの設定
指定した範囲
リスト範囲　Ａ１：Ｅ５
検索条件範囲　Ｈ１：Ｉ２
抽出範囲　Ａ８：Ｅ９
ＯＫ
で上記 Ｅ８：Ｅ９
この欠点はＡ１０以下を連続して（ｆ式服者的に）出すのが難しいことである。
1つだけ(順次Ｈ２・Ｉ２を変えて検索するには良い。

お礼

回答ありがとうございました。

参考とさせていただきます。

回答No.4

mu2011

一例です。
C6に次の数式を入力して右方向にコピー
=INDEX(C$1:C$4,SUMPRODUCT((CONCATENATE($A$1:$A$4,$B$1:$B$4)=$A6&$B6)*(ROW($A$1:$A$4))))

お礼

回答ありがとうございました。

おかげさまで解決し、はじめて使う関数も勉強になりました。

ありがとうございます。

回答No.2

hallo-2007

重複がなければですが
F列に　=A1&B1 下フィルして準備しておき
C6セルに　=INDEX(C1:C4,MATCH($A6&$B6,$F1:$F4,FALSE))
右フィルでは

お礼

回答ありがとうございました

やってみましたが、自分の操作が悪いのか"#VALUE!"になってしまいました。

回答No.1

akina_line

こんにちは。

　BとCの間に列を挿入(B'とする)して、「=A1&B1」という式を入れ、全ての行にコピーします。
　あとは、C6の式は「=vlookup(B'6,B'1:E4,4,false」としたらどうでしょう。
　B'列の値が一意になる必要があります。

では。

お礼

早速の回答ありがとうございました。

=A1&B1を挿入すると、vlookupでも可能ですね。

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