Vba：如何从字符串中删除特殊字符

您可以在 VBA 中使用以下基本语法从字符串中删除特殊字符：

 Sub ReplaceSpecialChars()
Dim i As Integer
    
For i = 2 To 8
Range("B" & i) = Replace(Replace(Replace(Range("A" & i), "!", ""), "@", ""), "#", "")
Next i
End Sub

此特定示例替换单元格区域A2:A8中每个字符串中的以下特殊字符，并在单元格B2:B8中生成新字符串：

• ！
• @
• #

请注意，我们使用了三个嵌套的Replace方法来从字符串中删除每个特殊字符。

要删除更多特殊字符，只需使用更多嵌套的Replace方法即可。

以下示例展示了如何在实践中使用此语法。

示例：使用 VBA 从字符串中删除特殊字符

假设我们在 Excel 中有以下字符串列表：

假设我们要从每个字符串中删除以下特殊字符：

• ！
• @
• #

我们可以创建以下宏来执行此操作：

 Sub ReplaceSpecialChars()
Dim i As Integer
    
For i = 2 To 8
Range("B" & i) = Replace(Replace(Replace(Range("A" & i), "!", ""), "@", ""), "#", "")
Next i
End Sub

当我们运行这个宏时，我们会收到以下输出：

B 列显示 A 列中删除了特殊字符的每个字符串。

注意：您可以在此处找到 VBA Replace方法的完整文档。

其他资源

以下教程说明如何使用 VBA 执行其他常见任务：

VBA：如何计算字符串中字符的出现次数
VBA：如何检查一个字符串是否包含另一个字符串
VBA：如何计算具有特定文本的单元格