Страницы: 1
RSS
Добавление записи в ячейку по-средством маркоса, В существующий макрос добавить нужно
 
Здравствуйте. Есть макрос, который добавляет пустые строки между записями:
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

Мне нужно, чтобы этот макрос в созданные пустые ячейки добавлял нужно записи, которые нужно указать в скрипте руками.
Хелп!
 
Вставлять можно 3 строки сразу. Этот код делает ровно то же самое:
Код
Dim i&
For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
    Rows(i).Resize(3).Insert
Next
А что и куда добавлять - непонятно, приведите пример.
Изменено: Казанский - 04.02.2014 21:07:02
 
Вводите значение руками!
Код
Dim i&
i = Cells(Rows.Count, 1).End(xlUp).Row + 1
While i > 1
Rows(i).EntireRow.Insert
Cells(i, 1) = InputBox("Введите значени")
Rows(i).EntireRow.Insert
Cells(i, 1) = InputBox("Введите значение")
Rows(i).EntireRow.Insert
Cells(i, 1) = InputBox("Введите значение")
i = i - 1
Wend
Если очень захотеть - можно в космос полететь ;)
Страницы: 1
Наверх