Inserisci il numero personalizzato di righe in Excel con questa semplice macro

0 Condivisioni

Le app di MS Office sono progettate in modo molto intelligente e non lo dico solo perché rendono il mio lavoro infinitamente più semplice. Lo dico perché è vero. Alcuni giorni fa abbiamo pubblicato un post sull’inserimento di video di YouTube in Office 2013 e abbiamo notato che l’opzione era assente in MS Excel semplicemente perché non era necessaria lì. Questo è il tipo di intelligenza di cui parlo; sapere quali funzionalità sono necessarie in un tipo specifico di app. Si assicura che nulla di irrilevante venga inserito nell’offerta finale. Detto questo, sono rimasto sorpreso di scoprire che dove Excel ti consente di inserire più righe in un foglio di lavoro, non ti consente di selezionare il numero di righe che desideri aggiungere. Hai altre soluzioni per farlo, come selezionare il numero di righe che desideri aggiungere da quelle esistenti e quindi utilizzare la funzione di inserimento. Oppure puoi ripetere il passaggio di inserimento riga per tutte le righe che desideri. È ripetitivo ma se sei disposto a risparmiare cinque minuti, questa piccola Macro può occuparsi del lavoro per te.

Poiché ciò richiede una macro, sarà necessario salvare il file come file Excel abilitato per le macro. A tale scopo, fare clic sul menu a discesa “Salva come” nella finestra Salva con nome e selezionare “Cartella di lavoro abilitata per Excel Marco (* xlsm).

Successivamente, è il momento di scrivere la Macro. Vai alla scheda Visualizza e fai clic su Macro per crearne uno nuovo. Assegnagli un nome come preferisci e fai clic su “Crea”. La seguente finestra si aprirà automaticamente.

macro_excel

Ciò che è rilevante qui sono le righe “Sub” e “End Sub”. La riga Sub conterrà il nome della tua macro mentre End Sub segnerà la fine dei commnad in quella Macro. Dato che l’hai appena creato, non dovrebbe esserci nulla tra quelle righe come nello screenshot qui sopra. Incolla quanto segue tra queste due righe.

Dim CurrentSheet As Object

    ' Loop through all selected sheets.
    For Each CurrentSheet In ActiveWindow.SelectedSheets
        ' Insert 5 rows at top of each sheet.
        CurrentSheet.Range("a1:a5").EntireRow.Insert
    Next CurrentSheet

Questo codice inserirà cinque righe dall’inizio. È indicato nel codice come A1: A5. Per modificarlo in base alle proprie esigenze, è necessario modificare questo intervallo. Il primo valore serve da riferimento a dove verranno inserite le righe. Se lo cambi in A100, le righe verranno inserite dopo le prime novantanove righe. Dopo aver impostato il punto di riferimento, è necessario inserire il numero di righe.

I numeri di riga sono definiti dall’intervallo di celle A1: A5. Questo intervallo inserirà 5 righe. Per trovare l’intervallo corretto per il tuo numero di righe, ad esempio desideri inserire 25 righe da A99, aggiungerai 25 al punto di riferimento in modo che sia A99 e meno una cella da esso. Cioè A100 + 99 – 1 = A198. Stai aggiungendo righe e non colonne, quindi cambierà solo il numero e non la lettera della colonna. La macro deve essere aggiornata ogni volta che devi inserire le righe enmass ma è solo una piccola modifica e funziona davvero bene, quindi vale la pena spendere.

Macro tramite supporto Microsoft

x