如何在 vba 中使用替换（附示例）

您可以使用 VBA 中的Substitute()方法将字符串中出现的所有特定文本替换为新文本。

该方法使用以下基本语法：

替换（文本、旧文本、新文本、实例编号）

金子：

• Text ：要替换字符的文本
• Old_text ：要替换的文本
• New_text ：用作替换的文本
• Instance_num（可选） ：要替换旧文本的哪个实例。如果未指定，则替换所有出现的旧文本。

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

示例：如何在 VBA 中使用 Replace

假设我们在 Excel 中有以下表达式列表：

假设我们想用逗号替换每个单元格中的每个空格。

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

 Sub SubstituteText()

Dim rng As Range, cell As Range
Set rng = Range(" A2:A9 ")

For Each cell In rng
    cell = WorksheetFunction.Substitute(cell, " ", ",")
Next
    
End Sub

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

请注意，A 列中每个单元格中的每个空格均已替换为逗号。

请注意，我们还可以使用以下语法将每个空格替换为空：

 Sub SubstituteText()

Dim rng As Range, cell As Range
Set rng = Range(" A2:A9 ")

For Each cell In rng
    cell = WorksheetFunction.Substitute(cell, " ", "")
Next
    
End Sub

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

请注意，A 列中每个单元格中的每个空格都已被替换为空。

换句话说，我们删除了 A 列中每个单元格中的每个空格。

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

其他资源

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

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