Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Добавление n строк с копированием содержимого - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление n строк с копированием содержимого (Макросы/Sub)
Добавление n строк с копированием содержимого
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строк, но никак не могу сообразить как еще и скопировать.
 
Ответить
СообщениеДобрый день!

Не получается объединить два макроса.
Один макрос - это создание 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
Дата добавления - 02.10.2020 в 20:27
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]
 
Ответить
СообщениеПомогите пожалуйста объединить два макроса.
Задача: добавить 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]

Автор - Pilot
Дата добавления - 09.10.2020 в 13:20
Pelena Дата: Пятница, 09.10.2020, 16:50 | Сообщение № 3
Группа: Админы
Ранг: Местный житель
Сообщений: 16638
Репутация: 3597 ±
Замечаний: ±

Excel 2010, 2016 & 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]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеБез файла с примером как-то так
[vba]
Код
Sub www()
    n = InputBox("rows")
    ActiveCell.Offset(1).Resize(n).EntireRow.Insert
    ActiveCell.Copy ActiveCell.Offset(1).Resize(n)
End Sub
[/vba]

Автор - Pelena
Дата добавления - 09.10.2020 в 16:50
Pilot Дата: Пятница, 09.10.2020, 19:01 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Pelena, Простите файл забыл.
Пример во вложении.
Т.е. добавляться добавляется, а вот как задать чтобы при нажатии на кнопку спросил сколько раз добавить строки.
А далее скопировал во все необходимую инфу.
К сообщению приложен файл: 6918202.xlsm(16.5 Kb)


Сообщение отредактировал Pilot - Пятница, 09.10.2020, 19:02
 
Ответить
СообщениеPelena, Простите файл забыл.
Пример во вложении.
Т.е. добавляться добавляется, а вот как задать чтобы при нажатии на кнопку спросил сколько раз добавить строки.
А далее скопировал во все необходимую инфу.

Автор - Pilot
Дата добавления - 09.10.2020 в 19:01
Pelena Дата: Пятница, 09.10.2020, 21:59 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16638
Репутация: 3597 ±
Замечаний: ±

Excel 2010, 2016 & Mac Excel
Так подойдёт?
К сообщению приложен файл: 0961552.xlsm(17.8 Kb)


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеТак подойдёт?

Автор - Pelena
Дата добавления - 09.10.2020 в 21:59
Pilot Дата: Суббота, 10.10.2020, 10:18 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Excel 2019
Pelena, То что нужно! Большое Спасибо!!!
 
Ответить
СообщениеPelena, То что нужно! Большое Спасибо!!!

Автор - Pilot
Дата добавления - 10.10.2020 в 10:18
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Добавление n строк с копированием содержимого (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!