Добрый день.
Мне требовалось убрать нули, стоящие в начале ячеек одного столбца. Например, из 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 |