Excel 公式从单元格中删除特殊字符

Question

我想从 Excel 中的单元格中删除特殊字符。我尝试使用模块，效果很好，但我想通过公式来完成。该公式适用于所有特殊字符，包括空格：

~`!@#$%^&*()_-+=<>,?/\|

我试过的宏是这样的：

Function RemoveSpclChrs(Str As String) As String
    Dim xChars As String
    Dim I As Long
    xChars = "/~`!@#$%^&*()_-+=<>,?\|"
    For I = 1 To Len(xChars)
        Str = Replace$(Str, Mid$(xChars, I, 1), "")
    Next
    Remove = Str
End Function

我知道我可以使用 SUBSTITUTE 函数，但那会很麻烦。所以我在寻找一个更简单的公式。任何帮助我都会很感激。谢谢你的帮助。