vba - 如何使用 VBA 删除整个 Excel 列中的空格？

Question

我正在尝试删除“A”列的每个字段中的空格，该空格位于字符串的末尾，一些字符串有 3 个空格，其他有 4 个。当我运行代码时，我不知道没有错误，所以我认为我有一个错误，因为运行时没有发生任何事情。

Dim result As String
Last = Cells(Rows.Count, "A").End(xlUp).Row
    For i = Last To 1 Step -1
      If (Right(Cells(i, "A").Value, 4)) Like "    " Or (Right(Cells(i, "A").Value, 3)) Like "   " Then
        result = Replace(Cells(i, "A"), " ", "")
    End If
Next i

Answer 1

在您的具体情况下，问题在于您将替换值存储在名为 result 的字符串变量中，然后不对它执行任何操作。如果您希望它位于Cell中，则必须将其添加回其中，例如:

Cells(I, "A").Value = 结果

请记住，有一个 Application.Trim 方法实际上可以节省一些循环时间。使用以下代码进行实验:

Dim rng as Range

set rng = Range("A1:A10")
rng.Value = Application.Trim(rng)