Здравствуйте. Есть макрос, который добавляет пустые строки между записями:
Dim i&
i = Cells(Rows.Count, 1).End(xlUp).Row + 1
While i > 1
Rows(i).EntireRow.Insert
Rows(i).EntireRow.Insert
Rows(i).EntireRow.Insert
i = i - 1
Wend
Мне нужно, чтобы этот макрос в созданные пустые ячейки добавлял нужно записи, которые нужно указать в скрипте руками.
Хелп!
Dim i&
i = Cells(Rows.Count, 1).End(xlUp).Row + 1
While i > 1
Rows(i).EntireRow.Insert
Rows(i).EntireRow.Insert
Rows(i).EntireRow.Insert
i = i - 1
Wend
Мне нужно, чтобы этот макрос в созданные пустые ячейки добавлял нужно записи, которые нужно указать в скрипте руками.
Хелп!