Excel: una macro per inserire righe vuote

• Problema
• Soluzione

Problema

Stai provando a creare una macro che inserirà una serie di righe vuote in un foglio di calcolo esistente dopo ogni voce. La quantità di righe necessarie sarà la stessa per ogni voce del foglio di calcolo, ma dovrà essere cambiata ogni volta che viene utilizzata.

Ecco un esempio ...

Attualmente:

 Title1
Title2
title3
TITLE4 

Dopo aver usato la macro:

 Title1
Title2
title3
TITLE4

La quantità di righe vuote può andare da 20 a 40.

Soluzione

A1 sta avendo intestazioni.

Quindi prova questa macro

mantieni il tuo file originale al sicuro da qualche parte

per prima cosa esegui il test della macro nei dati sperimentali che hai inviato

 Sottotest ()
Dim j As Long, r As Range
j = InputBox ("digita il numero di righe da inserire")
Imposta r = Range ("A2")
Fare
Intervallo (r.Offset (1, 0), r.Offset (j, 0)). EntireRow.Insert
Imposta r = Celle (r.Row + j + 1, 1)
MsgBox r.Address
Se r.Offset (1, 0) = "", quindi Esci
Ciclo continuo
End Sub

Grazie a venkat1926 per questo suggerimento.