Come inserire una riga vuota ogni x righe?

Hai bisogno di inserire una riga vuota ogni 2 o 3 righe in Excel?

In questo articolo ti mostro due metodi facili per farlo: uno completamente manuale (niente codice) e uno tramite macro VBA.

Ti propongo anche un terzo metodo applicabile solo quando l’elenco è composto da una sola colonna. Sfrutta la nuova funzione A.COL

Contenuti nascondi

Metodo 1 – con Ordinamento (senza macro)

Metodo 2 – con una macro VBA

Metodo 3 (solo per colonna singola) – con funzione A.COL

Metodo 1 – con Ordinamento (senza macro)

Questo metodo consiste nel creare un indice, duplicarlo e poi ordinare rispetto all’indice. Di seguito i passaggi:

Aggiungi una colonna con numeri progressivi (1, 2, 3, …)
Copia tutte le righe e incollale subito sotto (creando un duplicato)
Ordina l’intera tabella in base a questa colonna
Elimina la colonna indice

Ecco il dettaglio dei passaggi

1. Aggiungi una colonna con numeri progressivi (1, 2, 3, …)

Scrivi 1 e 2. Seleziona entrambi. Doppio clic sul quadratino inferiore destro della cella contenente il 2.

Ottieni così l’indice:

2. Copia tutte le righe e incollale subito sotto (creando così un duplicato)

Copia le celle dell’indice. Posizionati nella prima cella vuoto sotto all’ultimo numero. Incolla gli stessi numeri.

3. Ordina l’intera tabella in base a questa colonna

Questo il risultato finale:

4. Elimina la colonna indice

Puoi eliminare la colonna con l’indice (colonna D dell’esempio).

E se dovessimo inserire più di una riga vuota? Nel punto 2 sarebbe sufficiente incollare più volte le celle con i numeri dell’indice.

Metodo 2 – con una macro VBA

Crea una macro e riutilizzala ogni volta che vuoi inserire le righe vuote. Ti riporto il codice e poi ti elenco i passaggi utili per poter inserire il codice in Excel.

Sub InserisciRigheOgniX()
    Dim x As Integer
    Dim ultimaRiga As Long
    Dim i As Long

    x = 2 ' Riga da cui iniziare (cambia questo valore come preferisci)
    ultimaRiga = Cells(Rows.Count, 1).End(xlUp).Row

    For i = ultimaRiga To 1 Step -1
        If i Mod x = 0 Then
            Rows(i + 1).Insert Shift:=xlDown
        End If
    Next i
End Sub

Come inserire il codice in Excel:

Premi ALT + F11 per aprire l’editor VBA.
Inserisci un nuovo modulo (Inserisci > Modulo).
Incolla il codice.
Salva e chiudi l’editor
Per eseguirla premi ALT + F8, seleziona la macro e fai clic su Esegui

E se le righe da inserire dovessero essere più di una? Ipotizziamo 3? Il codice sarebbe leggermente diverso:

Sub InserisciRigheOgniX()
    Dim x As Integer
    Dim ultimaRiga As Long
    Dim i As Long

    x = 2 ' Riga da cui iniziare (cambia questo valore come preferisci)
    ultimaRiga = Cells(Rows.Count, 1).End(xlUp).Row

    For i = ultimaRiga To 1 Step -1
        If i Mod x = 0 Then
            ' Inserisce 3 righe vuote
            For j = 1 To 3
                Rows(i + 1).Insert Shift:=xlDown
            Next j
        End If
    Next i
End Sub