A volte potresti ottenere un foglio di lavoro da qualcun altro e hai bisogno di spazio per lavorare sulle informazioni fornite. Ad esempio, potresti trovare utile aggiungere alcune righe vuote tra ciascuna delle righe originali in una tabella di dati. Sebbene ciò possa essere fatto abbastanza facilmente utilizzando il menu Inserisci, può diventare rapidamente noioso, in particolare se si dispone di una tabella di grandi dimensioni che si desidera distribuire.

La seguente macro ti aiuterà moltissimo in questa situazione. Tutto quello che devi fare è selezionare la prima riga nella tabella dei dati. Quando esegui la macro, ti viene chiesto quante righe vuote vuoi inserire tra le righe originali. Quando si fornisce un numero, la macro passa attraverso la tabella e inizia a inserire righe vuote. La macro si interrompe quando viene rilevata la prima cella vuota dopo la tabella originale.

Sub SpreadOut()

Dim iBlanks As Integer     Dim J As Integer          iBlanks = InputBox("How many blank rows?", "Insert Rows")

ActiveCell.Offset(1, 0).Select     While ActiveCell.Value > "" And iBlanks > 0         For J = 1 To iBlanks             Selection.EntireRow.Insert         Next J         ActiveCell.Offset(iBlanks + 1, 0).Select     Wend End Sub

_Nota: _

Se desideri sapere come utilizzare le macro descritte in questa pagina (o in qualsiasi altra pagina dei siti ExcelTips), ho preparato una pagina speciale che include informazioni utili.

Fare clic qui per aprire quella pagina speciale in una nuova scheda del browser.

ExcelTips è la tua fonte di formazione economica su Microsoft Excel.

Questo suggerimento (10005) si applica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 ed Excel in Office 365. Puoi trovare una versione di questo suggerimento per l’interfaccia del menu precedente di Excel qui:

Spreading Out a Table.