Добавление n строк с копированием содержимого

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Добавление n строк с копированием содержимого (Макросы/Sub)

Pilot

Дата: Пятница, 02.10.2020, 20:27 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Добрый день!

Не получается объединить два макроса.
Один макрос - это создание n-го количества строк после активной ячейки:

[vba]

Код

ActiveCell.Offset(1).Resize(--InputBox("rows")).EntireRow.Insert

а второй - это копирование данных из активной ячейки, удаление данных с n-го столбца и вставка в добавляемую:
With ActiveCell.EntireRow
.Offset(1).Insert
.Copy .Offset(1)
End With
Cells(ActiveCell.Row + 1, 4).Resize(, 15).ClearContents

[/vba]

Помогите пожалуйста объединить.
Т.е. на выходе хочется: добавить n-строк, в которые скопировалось бы из активной ячейки необходимые данные.
Кнопочка хорошо работает на просто добавление nстрок, но никак не могу сообразить как еще и скопировать.

Ответить

Pilot

Дата: Пятница, 09.10.2020, 13:20 | Сообщение № 2

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Помогите пожалуйста объединить два макроса.
Задача: добавить n-строк (определяется пользователем) после активной ячейки, в добавляемые строки копируются необходимые данные из активной ячейки.

Один макрос - это создание n-го количества строк после активной ячейки:

[vba]

Код

ActiveCell.Offset(1).Resize(--InputBox("rows")).EntireRow.Insert

[/vba]

а второй - это копирование данных из активной ячейки, удаление данных с n-го столбца и вставка в добавляемую:

[vba]

Код

With ActiveCell.EntireRow
.Offset(1).Insert
.Copy .Offset(1)
End With
Cells(ActiveCell.Row + 1, 4).Resize(, 15).ClearContents

[/vba]

Ответить

Pelena

Дата: Пятница, 09.10.2020, 16:50 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 19404

Репутация: 4555 ±

Замечаний: ±

Excel 365 & Mac Excel

Без файла с примером как-то так
[vba]

Код

Sub www()
    n = InputBox("rows")
    ActiveCell.Offset(1).Resize(n).EntireRow.Insert
    ActiveCell.Copy ActiveCell.Offset(1).Resize(n)
End Sub

[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Pilot

Дата: Пятница, 09.10.2020, 19:01 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 4

Репутация: 0 ±

Замечаний: 0% ±

Excel 2019

Pelena, Простите файл забыл.
Пример во вложении.
Т.е. добавляться добавляется, а вот как задать чтобы при нажатии на кнопку спросил сколько раз добавить строки.
А далее скопировал во все необходимую инфу.