Использование функции обрезки для удаления лишних символов не требуется - PullRequest
1 голос
/ 17 июня 2019

Я пытаюсь обрезать все ячейки, в которых есть данные в столбце C, до девяти наиболее левых.

Sub TrimColumns()
    Dim LastRow As Long
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row

     If LastRow > Columns("B").Row Then
        Range("C2:C" & LastRow).LTrim(1,9) ' getting syntax error on this line 
     End If 
End Sub

Range("C2:C" & LastRow).LTrim(1,9) 'получение синтаксической ошибки в этой строке

1 Ответ

2 голосов
/ 17 июня 2019

Просто используйте Left?

Cells(1,1).value = Left(Cells(1,1).value,9)

Это будет зациклено на диапазоне:

For i = 1 to LastRow Step 1
    Cells(i,3).value = Left(Cells(i,3).value,9)
Next i
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...