Добрый день, Энгель,
Поскольку я пока не могу «комментировать», я опубликую это как ответ.
Технически, вы должны отредактировать или перефразировать ваш вопрос.Поскольку переполнение запасов - это место, где можно задавать вопросы и получать ответы, а не код для конкретных случаев.
Однако я более чем готов указать вам верное направление.
Я бы предложил разбиратьстрока данных в ячейке с помощью команды left()
, а затем, возможно, проверка того, что новая строка данных является числом IsNumeric()
.
Вот еще немного информации об обеих функциях.
https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/left-function
https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/isnumeric-function
Возможно, вам потребуется преобразовать переменную в целое число.
Оттуда вы можете использовать свойство строки, чтобы получить номер строки,и затем вы можете начать копирование.
https://docs.microsoft.com/en-us/office/vba/api/excel.range.row