删除 Excel 中的前导和尾随空格

Question

我希望清理 Excel 工作表中的数据并从我的数据中删除前导和尾随空格。我发现以下代码已经回答了类似的问题：

Sub KleanUp()
  Dim r As Range
  For Each r In ActiveSheet.UsedRange
v = r.Value
If v <> "" Then
  If Not r.HasFormula Then
    r.Value = Trim(v)
  End If
End If
  Next r
End Sub

但是，我收到以下行的错误：If v <> "" Then

我确定我以前使用过这段代码，但现在我无法弄清楚为什么会出现此错误。如果有人有任何想法..

Answer 1

可能是有错误的单元格（即#REF!、#N/A、#VALUE 等）

试试这个：

Sub KleanUp()
    Dim r As Range
    For Each r In ActiveSheet.UsedRange
        If Not IsError(r.Value) Then
            v = r.Value
            If v <> "" Then
                If Not r.HasFormula Then
                    r.Value = Trim(v)
                End If
            End If
        End If
    Next r
End Sub

删除 Excel 中的前导和尾随空格

Removing leading and trailing spaces in Excel

macos

excel

spaces

vba