Добрый день.
Мне требовалось убрать нули, стоящие в начале ячеек одного столбца. Например, из 0051474443 и 0000895079 должно было получаться соответственно 51474443 и 895079. Эту задачу я решил через специальную вставку, прибавив ко всем ячейкам ноль. Как можно решить аналогичную задачу с помощью VBA и массива, если ячейки будут содержать не число, а текст?
Я написал вот такой код, но он не работает:
Пример файла во вложении.
Мне требовалось убрать нули, стоящие в начале ячеек одного столбца. Например, из 0051474443 и 0000895079 должно было получаться соответственно 51474443 и 895079. Эту задачу я решил через специальную вставку, прибавив ко всем ячейкам ноль. Как можно решить аналогичную задачу с помощью VBA и массива, если ячейки будут содержать не число, а текст?
Я написал вот такой код, но он не работает:
| Код |
|---|
Sub Macro()
Dim i As Long
Dim myArray() As Variant
myArray = ActiveSheet.ListObjects("Table1").ListColumns(1).DataBodyRange.Value
For i = LBound(myArray) To UBound(myArray)
If Len(myArray(i)) > 1 Then
Do While Left(myArray(i), 1) = 0
myArray(i) = Right(myArray(i), Len(myArray(i)) - 1)
Loop
End If
Next i
End Sub |