Как я могу обрезать пробелы в шрифте моих данных?

Question

Я хочу обрезать свои данные в column O в Column N, это работает, когда я использую function =Trim(O2), но мне нужно использовать код Excel VBA для этого.

После запуска кода ниже он показывает то же, что и Column O в Column N данные, которые я хочу обрезать.

может помочь кто-нибудь, это моя проблема.

Ниже приведены мой код и данные

Sub TRY()
    Columns("N:N").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove

    Dim row1 As Long

    With Worksheets("Sheet1")

        row1 = .Range("N2").End(xlDown).Row

        For i = 2 To row1
            .Cells(i, "N").Value = Trim(.Cells(i, "O").Value)
        Next i
    End With
End Sub

Answer 1

Заменить:

.Cells(i, "N").Value = Trim(.Cells(i, "O").Value)

на:

.Cells(i, "N").Value = LTrim(.Cells(i, "O").Value)

Это удалит только начальных пробелов в строке.