エクセルで複数の表を切り替えて抽出する方法

質問

• エクセルで複数の表を切り替えて抽出する方法を考えています。名前の定義やユーザー関数の利用を検討していますが、まだ具体的な方法に迷っています。
• 特定の文字に対応するデータを抽出するために、Index関数とMatch関数を組み合わせる方法があることが分かりました。しかし、複数の表を切り替える場合はIf関数の階層化が必要となり、解決策が見つかっていません。
• 任意の表の任意の列を検索し、抽出する万能なユーザー関数を模索しています。選択抽出という関数を想定していますが、具体的な実装方法についてアドバイスが欲しいです。

回答No.4

NNAQ · ベストアンサー

#2のNNAQです。
まだ締められていないようですので、ちょっと追記。

データベース関数があるのを忘れてました。
縦２つのセル(例えばA1,B1)を使って
A1に検索列見出し、B1に検索文字列、を入力すれば、
=DGET(表名,"抽出列見出し",A1:B1)
これが一番ご要望に近いと思います。
検索列に検索文字列が複数あるとエラーになりますが、
複数列を検索条件に指定できたりとか、けっこう万能ですよ。
まあ、何をもって万能と言うかは状況によりけりでしょうが。

ユーザー定義関数だと、こんな感じでしょうか。
Function DVLOOKUP(表 As Range, 検索列名, 検索値, 抽出列名)
Dim c As Integer, cc As Integer, r As Long
With 表
For c = 1 To .Columns.Count
If .Cells(1, c).Value = 検索列名 Then Exit For
Next c
If c > .Columns.Count Then GoTo NA
For r = 2 To .Rows.Count
If .Cells(r, c).Value = 検索値 Then Exit For
Next r
If r > .Rows.Count Then GoTo NA
For cc = 1 To .Columns.Count
If .Cells(1, cc).Value = 抽出列名 Then Exit For
Next cc
If cc > .Columns.Count Then GoTo NA
DVLOOKUP = .Cells(r, cc).Value
End With
Exit Function
NA: DVLOOKUP = CVErr(xlErrNA)
End Function

考え方は#2,#3と同じです。
セルに=dvlookup(表名又はセル範囲,"検索列名","検索文字列","抽出列名")
という感じで入力します。
ただ、これだったらDGET関数の方が良いです(^^;
ヒント程度には、なるかな？

お礼

重ね重ねご丁寧に貴重な知識をご伝授いただきありがとうございます。抽象的な質問内容にも関わらず、本当にありがとうございます。勉強して、活用させて頂きます。ありがとうございました。