1点击开发者工具，选择Visual Basic

 2选择插入模块

3如图写入如下脚本

 

'str为需要匹配的字符串,exist表示存在的符号,uexist表示不存在的符号,SearchString合法字符集集合'
'函数功能：遍历str中每个字符,如果有任一字符存在于SearchString中，则显示exist，否则显示uexist'Function tiqu(str As String, exist As String, uexist As String, SearchString As String)For i = 1 To Len(str)strChart = Mid(str, i, 1)myPos = InStr(1, SearchString, strChart)If myPos = 0 Thenresult = uexistElseIf myPos > 0 Thenresult = existExit ForEnd IfNexttiqu = resultEnd Function

 4点击保存点击按钮时：先否，替换，后是

 5表格中输入函数和参数