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

但是，我收到一行错误：如果v＆lt;＆gt; ＆＃34;＆＃34;然后

我确定我的代码在过去对我有用，但现在我无法解决为什么会出现这种错误。如果有人有任何想法..

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中的前导和尾随空格

1 个答案: