Сохранить нули при передаче колонки в массив - VBA
Формулировка задачи:
Собственно имеется тестовый макрос
Его задача брать нужные куски таблицы и класть в двумерный массив, но вот проблема, часто попадаются файлы, в которых текстовое значение с нулём 0661148296948, а при копировании этот ноль режется, и в результате вместо правильных значений (см. вложение с исходными данными) с нулями впереди, имеем неправильные штрихкода товаров:
Пример такого файлы с таким исходными данными я привёл, эти прайсы приходят от поставщиков и повлиять на них никак не могу.
Пробовал класть в массив значения так
и так
ничто не помогает.
потом добавил обход по ячеёкам штрихкодов у поставщика с целью добавить апостроф перед таким значением:
помогло, но вот проблема, файлы имеют минимум 10к строк, и работа моего макросы увеличилась с 30 секунд до 4 минут.
И всё из за этого перебора =(
Кто что может посоветовать, как сохранить нули не прибегая к перебору ячеек?
Решение задачи: «Сохранить нули при передаче колонки в массив»
textual
Листинг программы
arrData = rngX.Value For r = 1 To rngX.Rows.Count 'проходим по столбцу ШК с целью получения значений в соответствии с форматом arrData(r, 1) = rngX.Cells(r, 1).Text Next
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д