excel - エクセルでセルをトリミングする

Question

Excel cell.theコードからスペースを削除しようとしています。私が使用しているのはfallowsです:

    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

私が得るエラーはfallowsです：

セルに存在する先頭と末尾のスペースをトリミングするためのより良いアイデアを教えてください。

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