Come inserire un numero specifico di righe a intervalli fissi in Excel?

In un foglio di lavoro di Excel, puoi inserire una riga vuota tra le righe esistenti utilizzando la funzione Inserisci. Tuttavia, se hai un ampio intervallo di dati e devi inserire due righe vuote dopo ogni terza o ennesima riga, come potresti completare questo compito rapidamente e comodamente?

• Inserisci un numero specifico di righe vuote nell'intervallo di dati a intervalli fissi con il codice VBA
• Inserisci un numero specifico di righe vuote nell'intervallo di dati basandoti sui valori delle celle con il codice VBA
• Inserisci un numero specifico di righe vuote nell'intervallo di dati a intervalli fissi con una funzionalità pratica
• Copia e inserisci righe più volte in base a numeri specifici con il codice VBA
• Copia e inserisci righe più volte in base a numeri specifici con una funzionalità straordinaria

Inserisci un numero specifico di righe vuote nell'intervallo di dati a intervalli fissi con il codice VBA

Il seguente codice VBA può aiutarti a inserire un numero specifico di righe dopo ogni ennesima riga all'interno dei dati esistenti. Procedi nel modo seguente:

1. Tieni premuti i tasti ALT + F11 in Excel, e si aprirà la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella Finestra del Modulo.

Codice VBA: Inserisci un numero specifico di righe nei dati a intervalli fissi

Sub InsertRowsAtIntervals()
'Updateby Extendoffice
Dim Rng As Range
Dim xInterval As Integer
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 As Integer
Dim xNum2 As Integer
Dim WorkRng As Range
Dim xWs As Worksheet
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Row + xInterval
xNum2 = xRows + xInterval
Set xWs = WorkRng.Parent
For i = 1 To Int(xRowsCount / xInterval)
    xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
    Application.Selection.EntireRow.Insert
    xNum1 = xNum1 + xNum2
Next
End Sub

3. Dopo aver incollato questo codice, premi il tasto F5 per eseguirlo; apparirà una finestra di dialogo che ti ricorderà di selezionare l'intervallo di dati in cui desideri inserire righe vuote, vedi screenshot:

4. Clicca sul pulsante OK, apparirà un'altra finestra di dialogo; inserisci il numero degli intervalli di righe, vedi screenshot:

5. Continua a cliccare sul pulsante OK, nella successiva finestra di dialogo che apparirà, inserisci il numero di righe vuote che desideri inserire, vedi screenshot:

6. Quindi clicca su OK, e le righe vuote saranno state inserite nei dati esistenti a intervalli regolari, vedi screenshot:

Inserisci un numero specifico di righe vuote nell'intervallo di dati basandoti sui valori delle celle con il codice VBA

A volte, potresti dover inserire righe vuote basandoti su un elenco di valori delle celle; in questo caso, il seguente codice VBA può esserti utile, procedi nel modo seguente:

1. Tieni premuti i tasti ALT + F11 in Excel, e si aprirà la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella Finestra del Modulo.

Codice VBA: Inserisci un numero specifico di righe vuote basandoti su un elenco di numeri:

Sub Insertblankrowsbynumbers ()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xAddress As String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the spefic number column to use(single column):", "Kutools For Excel", xAddress, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Column
xCount = xRg.Count
Set xRg = xRg(1)
For I = xLastRow To xFstRow Step -1
xNum = Cells(I, xCol)
If IsNumeric(xNum) And xNum > 0 Then
Rows(I + 1).Resize(xNum).Insert
xCount = xCount + xNum
End If
Next
xRg.Resize(xCount, 1).Select
Application.ScreenUpdating = True
End Sub

3. Dopo aver incollato questo codice, premi il tasto F5 per eseguirlo; nella finestra di dialogo che apparirà, seleziona l'elenco di numeri in base al quale desideri inserire righe vuote, vedi screenshot:

4. Poi, clicca su OK, e otterrai i risultati di cui hai bisogno come mostrato negli screenshot seguenti:

Inserisci un numero specifico di righe vuote nell'intervallo di dati a intervalli fissi con una funzionalità pratica

Se non sei familiare con il precedente codice VBA, Kutools per Excel potrebbe aiutarti; la sua funzionalità Inserisci Righe e Colonne Vuote può inserire un numero specifico di righe o colonne nei dati esistenti a intervalli fissi rapidamente e facilmente.

Dopo aver installato Kutools per Excel, procedi nel modo seguente:

1. Seleziona l'intervallo di dati in cui desideri inserire righe vuote a intervalli.

2. Clicca su Kutools > Inserisci > Inserisci Righe e Colonne Vuote, vedi screenshot:

3. Nella finestra di dialogo Inserisci Riga e Colonna Vuota, scegli l'opzione Righe vuote dal Tipo di inserimento, quindi specifica il numero di intervalli e righe vuote che desideri utilizzare come mostrato nello screenshot seguente:

4. Quindi clicca sul pulsante OK, e le righe vuote saranno state inserite nell'intervallo selezionato a un intervallo specifico come mostrato nello screenshot seguente:

Scarica e prova gratuitamente Kutools per Excel Ora!

Copia e inserisci righe più volte in base a numeri specifici con il codice VBA

Supponendo che tu abbia un intervallo di dati, e ora vuoi copiare ogni riga e incollarle più volte nella riga successiva basandoti su un elenco di numeri come mostrato negli screenshot seguenti. Come potresti risolvere questo compito in un foglio di lavoro di Excel?

Per gestire questo compito, ti presenterò un codice utile; procedi con i seguenti passaggi:

1. Tieni premuti i tasti ALT + F11 in Excel, e si aprirà la finestra Microsoft Visual Basic for Applications.

2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella Finestra del Modulo.

Codice VBA: Copia e inserisci righe più volte in base a numeri specifici:

Sub CopyRows()
'UpdatebyExtendoffice
Dim xRg As Range
Dim xCRg As Range
Dim xFNum As Integer
Dim xRN As Integer
On Error Resume Next
SelectRange:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select the list of numbers to copy the rows based on: ", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub

If xRg.Columns.Count > 1 Then
MsgBox "Please select single column!"
GoTo SelectRange
End If
Application.ScreenUpdating = False
For xFNum = xRg.Count To 1 Step -1
Set xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
With Rows(xCRg.Row)
.Copy
.Resize(xRN).Insert
End With
Next
Application.ScreenUpdating = True
End Sub

3. Dopo aver incollato questo codice, premi il tasto F5 per eseguirlo; nella finestra di dialogo che apparirà, seleziona l'elenco di numeri in base al quale desideri copiare e inserire le righe di dati, vedi screenshot:

4. Poi, clicca sul pulsante OK, e il numero specifico di righe sarà stato copiato e incollato sotto ogni riga originale, vedi screenshot:

Copia e inserisci righe più volte in base a numeri specifici con una funzionalità straordinaria

Se hai Kutools per Excel, con la sua funzionalità Duplica Righe/Colonne basata sui valori delle celle, puoi inserire righe o colonne basandoti sull'elenco di numeri rapidamente e facilmente.

Dopo aver installato Kutools per Excel, procedi nel modo seguente:

1. Clicca su Kutools > Inserisci > Duplica Righe/Colonne basata sui valori delle celle, vedi screenshot:

2. Nella finestra di dialogo Copia e inserisci righe e colonne, seleziona l'opzione Copia e inserisci righe nella sezione Tipo, poi seleziona l'intervallo di dati che desideri duplicare, e infine specifica l'elenco di valori in base al quale vuoi copiare le righe, vedi screenshot:

4. Poi, clicca su Ok o Applica, otterrai il seguente risultato di cui hai bisogno:

Scarica e prova gratuitamente Kutools per Excel Ora!

Altri articoli correlati: