Есть таблица состоящая и огромного множества строк заполненных информацией, и вот так вышло, что к каждой нужно добавить дополнительные сведения и все в отдельные ячейки. Вот так: https://wampi.ru/image/lhrjy Уверен что есть какой-то типовой прием на это случай, но никак не могу его найти. Буду очень признателен за помощь.
Должно быть... Но нету. Проделываете одну итерацию вручную, записывая это дело рекордером. К полученному коду пристраиваете цикл. Удобнее результат выводить на другой лист.
Я думаю, что Hugo имел ввиду, что Вы запускаете макрорекодер, и добавляете ячейки вручную. Получаете макрос, делаете цикл на все ячейки, и получаете готовый макрос. Или прикрепите пример.
Sub kaktuz()
Dim iclr As Long
Dim i As Long
iclr = Cells(Rows.Count, 2).End(xlUp).Row
For i = iclr To 2 Step -1
Rows(i).Select
ActiveCell.Resize(4).EntireRow.Insert
Range(Cells(i, 2), Cells(i + 4, 2)).Merge
Cells(i, 3).Resize(5, 1).Value = Application.Transpose(Array("элемент-1", "элемент-2", "элемент-3", "элемент-4", "элемент-5"))
Next i
End Sub