Vba：如何删除前导和尾随空格

您可以使用以下基本语法通过 VBA 删除字符串中的前导空格和尾随空格：

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

    For i = 2 To 7
    Range(" B " & i) = Trim(Range(" A " & i))
    Next i
    
End Sub

此特定示例从A2:A7范围内的每个字符串中删除前导和尾随空格，并输出B2:B7范围内的结果。

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

示例：使用 VBA 删除字符串中的前导和尾随空格

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

请注意，许多字符串都有前导或尾随空格。

假设我们要删除每个字符串的前导和尾随空格。

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

 Sub RemoveLeadingTrailingSpaces()

    Dim i As Integer

    For i = 2 To 7
    Range(" B " & i) = Trim(Range(" A " & i))
    Next i
    
End Sub

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

B 列显示 A 列中的每个字符串，并删除了前导空格和尾随空格。

请注意，如果您只想删除字符串中的前导空格或尾随空格，可以分别使用LTrim或RTrim函数。

注意：您可以在此处找到每个 VBA Trim函数的完整文档。

其他资源

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

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