excel - 在excel中修剪单元格

Question

我正在尝试从 excel 单元格中删除空格。我正在使用的代码如下：

    Dim cell As Range, areaToTrim As Range
    Set areaToTrim = Sheet1.Range("A1:D50")
    For Each cell In areaToTrim
        cell.Value = LTrim(cell.Value)
    Next cell

我得到的错误是休闲：

请给我更好的主意来修剪单元格中存在的前导和尾随空格。

Answer 1

这将修剪单元格，包括前导和尾随。

lngCounter获取最后一行数据，strRange获取活动列并将第 2 行设置为 lngCounter，即最后一行数据。

代码遍历每个CellinstrRange并应用Trim. 这会从单元格值中删除所有空格。

Sub CutMe()

Dim lngCounter As Long
Dim rCell As Range
Dim strRange As String

lngCounter = Cells.Find("*", [A1], , , xlByRows, xlPrevious).row 
strRange = Chr(ActiveCell.Column + 64) & "2:" & Chr(ActiveCell.Column + 64) & lngCounter

For Each rCell In Range(strRange).Cells

    rCell.Value = Trim(rCell.Value)

Next rCell

End Sub