Сохранить нули при передаче колонки в массив - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 4.182 из 5
Похожие ответы