... VBAソリューションを要求しなかったのは知っていますが、どうすればよいかを確認するために1つ作成したいと思いました...
エラーチェックなどを行わずに「迅速で汚れた」ものにしましたが、探しているものが得られます。
Public Function FindInRange(Val As Variant, LookIn As Range, ColIndexNumber As Integer) As Range
' INPUTS:
' Val = The Value you're looking for in your Range of cells
' Range = The range of cells you're searching through
' ColIndexNumber = The index of the column you want a value returned from within the row from which the value is found
' NOTE:
' This will only pull the first value matching your "Val" argument
Dim FoundCell As Range
Set FoundCell = LookIn.Find(what:=Val, LookAt:=xlWhole)
If FoundCell Is Nothing Then
Set FindInRange = Nothing
Else
Set FindInRange = Intersect(LookIn.Columns(ColIndexNumber), FoundCell.EntireRow)
End If
End Function
これをVBAモジュールに貼り付けると、その時点で他の関数と同じようにスプレッドシートから呼び出すことができます。
お役に立てれば :)