Hoe de rij na elke 5e rij in te voegen via VBA

Anonim

In dit artikel zullen we leren hoe je de rij invoegt na elke 5e rij door VBA in Microsoft Excel.

Laten we een voorbeeld nemen en begrijpen:

We hebben gegevens in het bereik A1:F31, waarbij kolom A Naam bevat, kolom B Straatadres, kolom C Stad, kolom D regio, kolom E landnaam en kolom F telefoonnummer.

We willen de rij na elke vijfde rij in de gegevens invoegen, volg de onderstaande stappen en code:

  • Open de VBE-pagina om op de toets Alt+F11 . te drukken
  • Plaats de module om de code te schrijven
  • Schrijf de onderstaande code:
Sub InsertIT() x = 2 'Start Row Do Range("A" & x, "F" & x). Insert x = x + 5 Loop While x < 50 End Sub 

Code Verklaring:

Eerst hebben we het rijnummer gedefinieerd van waaruit we de rij willen invoegen. Vervolgens hebben we het bereik gedefinieerd om de gegevens in te voegen. En dan hebben we het nummer gedefinieerd om de rij in te voegen na hoeveel rijen. En dan tot welke rij, rijen worden ingevoegd.

Om de code uit te voeren, drukt u op de toets F5 op uw toetsenbord.

  • Rijen worden ingevoegd tot de 50e rij in de gegevens

Op deze manier kunnen we een rij invoegen na een specifiek nummer dat we in macro kunnen definiëren.

Als je onze blogs leuk vond, deel deze dan met je vrienden op Facebook. En je kunt ons ook volgen op Twitter en Facebook.

We horen graag van je, laat ons weten hoe we ons werk kunnen verbeteren, aanvullen of vernieuwen en het voor jou beter kunnen maken. Schrijf ons op de e-mailsite