Excel - макрос за вмъкване на празни редове

• Проблем
• Решение

Проблем

Опитвате се да създадете макрос, който ще вмъква набор от празни редове в съществуваща електронна таблица след всяко въвеждане. Размерът на необходимите редове ще бъде един и същ за всяко въвеждане на електронната таблица, но ще трябва да се променя всеки път, когато се използва.

Ето пример ...

Понастоящем:

 раздел 1
Заглавие 2
Title3
заглавие 4 

След използване на макрос:

 раздел 1
Заглавие 2
Title3
заглавие 4

Размерът на празния ред може да бъде от 20 до 40.

Решение

А1 има заглавия.

След това опитайте този макрос

запазете оригиналния си файл безопасно някъде

първо направете тестването на макроса в експерименталните данни, които сте изпратили

 Sub test ()
Dim j Както е дълъг, r As Range
j = InputBox ("въведете броя на редовете, които ще бъдат инсерирани")
Задаване на r = Обхват ("A2")
правя
Обхват (r.Offset (1, 0), r.Offset (j, 0)). EntireRow.Insert
Задаване на r = клетки (r.Row + j + 1, 1)
MsgBox r.Address
Ако r.Offset (1, 0) = "" Тогава Exit Do
контур
Край Под

Благодарение на venkat1926 за този съвет.