如何一次从Excel工作表的所有单元格中删除前导和尾随空格

Question

我有一张excel表，其中包含大量带有前导和尾随空格的数据。

使用TRIM()手动删除这些空格需要花费大量时间。

我怎样才能有效地做到这一点。

Answer 1

试试这个小宏：

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

此宏不会影响内部空间或包含公式的单元格。