excelにて記号を取り出したい

質問

お世話になります。

セルの中に、例えば「アアア＠イイイ」といったような記号が含まれている文字列があります。その中の記号を検出したいのですが、うまくいきません。

最終的にやりたいことは、そのセルの中に記号が含まれている場合、エラー表示を出したいのですが、VLOOKUPなどを使ってみても、数式的にエラーになるばかりで、うまくいかないのです。

※記号単体でVLOOKUPを使うと確かに抽出されるのですが、文字列に紛れ込むと、検索しないみたいです。

なんとかならないものでしょうか。（ちなみに記号は不特定です）

回答No.9

imogasi · ベストアンサー

ユーザー関数（VBA）を定義すれば、正規表現度々使わなくても簡単なコードです。
Function kigou(a)
x = "@#$%&()="
For i = 1 To Len(x)
p = InStr(a, Mid(x, i, 1))
If p > 0 Then
kigou = Mid(x, i, 1) & "がある"
Exit Function
End If
Next i
kigou = "記号がない"
End Function
ーーー
（１）どの文字が記号かは
x = "@#$%&()="
のところで書き連ねて列挙する。
（２）最初に見つかった記号を返して終わりとしている。
記号を全て列挙もコードを少し変えて可能（注）
例データ
A列　　　B列
aah@wert @がある
a%%ggh %がある
dffghhh$jku $がある
asdfg 記号がない
B1は
=kigou(A1)
以下式を複写
(注）
Function kigou2(a)
x = "@#$%&()="
s = ""
For i = 1 To Len(x)
p = InStr(a, Mid(x, i, 1))
If p > 0 Then
s = s & Mid(x, i, 1) & ","
End If
Next i
If s = "" Then
kigou2 = "記号がない"
Else
kigou2 = Left(s, Len(s) - 1) & "あり"
End If
End Function
ーー
例データA5B7
as#3fg4 #あり
asdfg 記号がない
sddd$gg&6yy $,&あり
B5に=kigou2(A5)