Excel - Ett makro för att infoga tomma rader

• Problem
• Lösning

Problem

Du försöker skapa ett makro som lägger in en uppsättning tomma rader i ett befintligt kalkylblad efter varje post. Mängden nödvändiga rader kommer att vara densamma för varje inmatning av kalkylbladet, men måste ändras varje gång den används.

Här är ett prov ...

För närvarande:

 Titel 1
title2
TITLE3
TITLE4 

Efter att ha använt makro:

 Titel 1
title2
TITLE3
TITLE4

Mängden tom raden kan gå från 20 till 40.

Lösning

A1 har rubriker.

Försök sedan med detta makro

Håll din ursprungliga fil säkert någonstans

först gör testningen av makro i de experimentella data som du har skickat

 Delprov ()
Dimma så länge som räckvidd
j = InputBox ("ange antalet rader som ska införas")
Ställ r = Range ("A2")
Do
Område (r.Offset (1, 0), r.Offset (j, 0)). TotalRow.Insert
Ange r = celler (r.Row + j + 1, 1)
MsgBox r.Address
Om r.Offset (1, 0) = "" Gör sedan Avsluta
Slinga
Slutdel

Tack till venkat1926 för detta tips.