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

Question

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

How to remove leading and trailing spaces from all cells of a excel sheet at once

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