特定の文字が含まれるセルの場所探す

質問

特定の文字が含まれるセルの場所を探す関数はありますか
例えば　　A1　　　　B1
　　　　　宮崎良子　B35

回答No.12

kkkkkm · ベストアンサー

> 収支明細のシートのH列には１名の場合（尾﨑）も３名の場合（小川　鈴木　大江）もあります

1名だと取得できているという事ですので
下記のようにMATCHも部分一致で検索するように変更してみてください。

=IF(B5="","",IF(COUNTIF(収支明細!$H$5:$H$128,"*"&B5&"*")<>1,"×",INDIRECT(IFERROR("収支明細!" & ADDRESS(MATCH("*" & B5 & "*",収支明細!$H$5:$H$128,0)+ROW($B$4),COLUMN(D5),4),""))))

COLUMN(収支明細!D5)はCOLUMN(D5)でいけます。単にD列の列番号の「4」を取得しているだけですので。

お礼

言葉足らずですみませんでした、有難うございます COLUMN(収支明細!D4)ここだけこうしましたすみません また何かあったらよろしくお願いします助かりました、これで入力間違いがなくなります

Powered by GRATICA

回答No.1

kkkkkm

完全一致でしたら
B2からB10までのデータで探すとして

=IFERROR(ADDRESS(MATCH(A1,B2:B10,0)+1,COLUMN(B1),4), "")

みたいな感じでいけると思いますが

部分一致でしたら自作関数でとなると思います。

=myfind(A1,B2:B10,"見つからない")

マクロの標準モジュールに以下を記載して上記の式で

Function myFind(ByRef mRng As Range, mAreas As Range, ByVal rStr As String)
Dim fRng As Range

If mRng.Value = "" Then
myFind = ""
Exit Function
End If

For Each fRng In mAreas
If fRng.Value Like "*" & mRng.Value & "*" Then
myFind = fRng.Address(False, False)
Exit Function
End If
Next

myFind = rStr

End Function

補足

早速、有難う御座います
IFERROR(ADDRESS(MATCH(A1,B2:B10,0)+1,COLUMN(B1),4), "")こんな感じでセル番地を表示したいのですが
よろしくお願いします。