在excel中修剪单元格

Question

我正在尝试从excel cell中删除空格。我正在使用的代码就像休耕一样：

    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，即最后一行数据。

代码遍历Cell中的每个strRange并应用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