特定の文字を含むセルを探して別セルに表示させたい

質問

望んだ結果にならず困っています。
ご教授お願いします。

A列にいくつかの文字の入ったセルが並びます。
B1に探したい文字が入ります。
C1にB1に入れた文字を含むセルをA列から探し出し、表示させたいです。

A列の文字は重複しません。結果は必ず1個です。
A列は行数が10行～15行で変動します。
B1に入る文字は、A列のセルの一部です。
B1の文字が文字の一部なので、具体的に関数に探す文字を「*つてと*」と
入れてしまってもいいのですが、探す文字をセル指定（B1として）
でできれば、より希望に沿うものとなります。

検索するセルが2個程度なら、望む結果が出せるのですが
複数のセルから探し出して、指定のセルに表示させるというのが
どうもうまくできません。

よろしくお願いいたします。

回答No.2

kkkkkm · ベストアンサー

> A列の文字は重複しません。結果は必ず1個です。

でしたら、以下でいけると思います
=IFERROR(INDEX(A1:A15,MATCH("*" & B1 & "*",A1:A15,0)),"")

お礼

ありがとうございました!
やりたい事はこれでした!
&でセルに＊をつけられる事にきがつきませんでした。
勉強になりました!
今後もご教授をお願いいたします!

回答No.3

imogasi

この質問の記述の欠けている点は
（１）関数でやるのか？、(「関数が当然か？）
（２）VBAでもよいのか？？
ーー
（１）該当のセル１つ見つけるでよいのか
（２）数か所（数セル）の該当見込みですべて探すか
関数では（２）は式が複雑になりそうで、今まで、記憶では、回答を見たことがない。
ーーー
VBAで、同行のA列だけを対象にすればよいなら
Sub test01()
Set sh1 = Worksheets("Sheet1")
lr = sh1.Range("A10000").End(xlUp).Row
MsgBox lr
For i = 1 To lr
x = sh1.Cells(i, "B")
Set Rng = sh1.Range("A:A").Find(what:=x, lookat:=xlPart)
If Not (Rng Is Nothing) Then
sh1.Cells(i, "C") = Cells(i, "A")
Else
sh1.Cells(i, "C") = "なし"
End If
Next i
End Sub
のように簡単。
結果例　　A、B,C列
あいうえお 　いうえ 　あいうえお
かきくけこ 　けこ 　かきくけこ
さしすせそ 　しすせ 　さしすせそ
たちつてと　 つてと 　たちつてと
なにぬねの 　むね 　なし
はひふへほ 　ひふへ 　はひふへほ
ーーー
２か所目（１セル、別行、別列）も見つけるのは、FindNextを使うと思うが、ややむつかしい。

お礼

ありがとうございました!
とても参考になりました!!
今後もご教授をお願いいたします!

回答No.1

msMike

C1: =IFERROR(INDEX(A$1:A$7,SMALL(IF(LEN(A$1:A$7)-LEN(SUBSTITUTE(A$1:A$7,B$1,""))>0,ROW(A$1:A$7)),ROW(A1))),"")
【お断わり】上式は必ず配列(CSE)数式として入力のこと

添付図参照(Excel 2019)
￣￣￣￣￣￣￣￣￣￣￣↓↓↓↓↓↓↓↓↓↓↓↓↓

お礼

ありがとうございました!
とても参考になりました!!
今後もご教授をお願いいたします!