Добавление строк на основе значения ячейки

#excel #vba

#excel #vba

Вопрос:

Мне нужна помощь с кодированием Excel на vba для файла Excel, над которым я работаю.

Я хочу что-то закодировать на vba, чтобы оно добавляло строки в активный лист на основе значения ячейки.
Например, если значение ячейки (значение c14 равно 10), VBA добавляет 10 строк после строки C2 при нажатии на кнопку Добавить строки.

Если значение ячейки (C14 равно 15, добавляется 15 строк после строки C2).

Хотите скопировать форматирование из строки C2 при добавлении строк (скопируйте форматирование из строки c2 в новые строки.

Кроме того, я создал одно электронное письмо vba, которое копирует диапазон и вставляет этот диапазон в электронное письмо.

Какую кодировку на VBA я могу добавить, чтобы при добавлении 10 или 15 новых строк выбор диапазона для копирования корректировался автоматически.

Прямо сейчас, если я вручную вставлю 10 строк, которые копирует vba Range("C2:C27") , он не будет настраиваться на копирование Range("C2:C37")

Ответ №1:

это поможет

 Dim rowsToAdd as Integer
rowsToAdd = Range("C14").Value

Rows("2:2").Copy
Rows("3:3").Resize(rowsToAdd).Insert Shift:=xlDown