Excel；特定の文字を含むセルを書き出す方法

質問

お世話になります。
あるExcelシートの2列×300行ぐらいの範囲のセル内に
文字が入っています。
セル内（例A23idokensi）に特定の文字（例：A23）を含んでいたら、
もしくはセルを抜き出す方法はあるでしょうか？

やりたいことは、アトランダムに入力されているところから、
特定の文字を含んだセルだけ取り出して内容とセルの個数を
数えることです。

回答No.2

mshr1962 · ベストアンサー

個数を数えるだけなら
=COUNTIF(A1:B300,"*A23*")

抽出は1列単位でいいなら、「データ」「フィルタ」「オートフィルタ」で
その列の先頭のセルの▼ボタンで、オプションを選択して
[A23][を含む]で表示されたセルをコピーして別シートにでも貼り付けしてください。

回答No.1

imogasi

>セルの個数を数えることです
例データ
Ａ２：Ｂ５
axd d
b a
c c
s aw
ーー
式
=SUM(IF(NOT(ISERROR(FIND("a",A2:B5))),1,0))
と入れて 、ＳＨＩＦＴ＋ＣＲＴＬ＋ＥＮＴＥＲの３つのキーを同時押しする。
結果
３
ＳＵＭＰＲＯＤＵＣＴ関数でも出来ると思う。
=SUMPRODUCT((NOT(ISERROR(FIND("a",$A$2:$B$5)))*1))
ーーー
＞特定の文字を含んだセルだけ取り出して
１列でも（関数だと）てこずる問題だ。
１列の場合「imogasi方式」でＷＥＢ照会すれば、同タイプの問題
と、それ以外のタイプの回答も見られる。
ーー
ＶＢＡなら簡単に出来る。
必ずデータ範囲を範囲指定して実行のこと。（上例ではＡ２：Ｂ５）
結果はＦ列に出るようにしている。
Sub test01()
Dim cl As Range
k = 1
For Each cl In Selection
If Len(cl) <> Len(Replace(cl, "a", "")) Then
Cells(k, "F") = cl
k = k + 1
End If
Next
End Sub
結果
Ｆ１：Ｆ３
axd
a
aw