Здравствуйте!
У меня есть таблица с заказами, в одну из ее ячеек "столбца B" попадают товары из listbox через запятую. (Во вложении всю таблицу не предоставляю, только необходимый столбец).
Мне нужно по выбранному заказу из этой таблицы формировать счет, в который будут попадать товары из "столбца B", но построчно.
Код по разделению текста на строки я нашла, а как сделать чтобы он разделялся не в этой же таблице заказов, а уходил в "счет" и ниже строки сдвигались корректно я не знаю.
У меня есть таблица с заказами, в одну из ее ячеек "столбца B" попадают товары из listbox через запятую. (Во вложении всю таблицу не предоставляю, только необходимый столбец).
Мне нужно по выбранному заказу из этой таблицы формировать счет, в который будут попадать товары из "столбца B", но построчно.
Код по разделению текста на строки я нашла, а как сделать чтобы он разделялся не в этой же таблице заказов, а уходил в "счет" и ниже строки сдвигались корректно я не знаю.
Код |
---|
Dim lngI As Long Dim intJ As Integer Dim strA() As String For lngI = Cells(Rows.Count, 2).End(xlUp).Row To 2 Step -1 strA = Split(Cells(lngI, 2), ",", -1) Rows(lngI + 1 & ":" & lngI + UBound(strA)).Insert Shift:=xlDown For intJ = UBound(strA) To LBound(strA) Step -1 Cells(lngI + intJ, 2) = strA(intJ) Next intJ Next lngI |