дифферента клетки в первенствует

Question

Я пытаюсь удалить пробелы из первенствовать кода cell.the то, что я использую как залежах:

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