文字列を置換するのにREPLACE関数を使います
ただし完全一致のため例えば備考項目の「返却〇〇ヶ」だけを全て消したいとして
抽出は
LIKE “*返却*ヶ*”
でできますが REPLACEは「返却」と「ヶ」を置換できますが
真ん中の数字部分が色々あるのでそこだけ残ってしまいます
そんな時便利なのがあるんです
Microsoft VBScript Regular Expressions 5.5 に参照設定お願いします
Function eraseWordRegExp(s As Variant, searchLetter As String) As Variant
If Nz(s, “”) = “” Then
eraseWordRegExp = Null
Else
Dim reg As New RegExp
reg.Pattern = searchLetter
reg.Global = True
eraseWordRegExp = Ez(reg.Replace(s, “”))
End If
End Function
この関数で「XXXXXX返却〇〇ヶXXXXXXX」の「返却〇〇ヶ」だけを消す場合は
=ERASEWORDREGEXP(“XXXXXX返却〇〇ヶXXXXXXX”,”返却.*ヶ”)
で行けます
正規表現はACCESSのLIKEと少し異なるので注意が必要です
https://murashun.jp/blog/20190215-01.html あたりを参照ください