Предполагается, что данные начинаются со строки 1 (то есть нет шапки таблицы).
Макрос |
|---|
| Код |
|---|
Sub Подсчитать_пробелы()
Dim arr1(), arr2(), lr As Long, i As Long
lr = Cells(Rows.Count, "B").End(xlUp).Row
arr1() = Range("B1:B" & lr).Value
ReDim arr2(1 To UBound(arr1), 1 To 1)
For i = 1 To UBound(arr1)
arr2(i, 1) = Len(arr1(i, 1)) - Len(LTrim(arr1(i, 1)))
Next i
Range("A1:A" & lr).Value = arr2()
End Sub |
|
| Цитата |
|---|
| bijela написал: Аналог формулы =ДЛСТР(B1)-ДЛСТР(ПОДСТАВИТЬ(B1;" ";"")) |
Эта формула работает со всеми пробелами: и с теми, которые в начале ячейки, и с теми, которые в середине и справа. Макрос работает только с теми пробелами, которые в начале.
