Como inserir um número específico de linhas em intervalos fixos no Excel?

Na planilha do Excel, você pode inserir uma linha em branco entre linhas existentes usando a função Inserir. No entanto, se você tiver uma grande faixa de dados e precisar inserir duas linhas em branco após cada terceira ou enésima linha, como poderia concluir essa tarefa rapidamente e de forma conveniente?

• Inserir um número específico de linhas em branco em um intervalo de dados em intervalos fixos com código VBA
• Inserir um número específico de linhas em branco em um intervalo de dados com base nos valores das células com código VBA
• Inserir um número específico de linhas em branco em um intervalo de dados em intervalos fixos com um recurso prático
• Copiar e inserir linhas várias vezes com base em números específicos com código VBA
• Copiar e inserir linhas várias vezes com base em números específicos com um recurso incrível

Inserir um número específico de linhas em branco em um intervalo de dados em intervalos fixos com código VBA

O seguinte código VBA pode ajudá-lo a inserir um número específico de linhas após cada enésima linha dentro dos dados existentes. Por favor, siga os passos abaixo:

1. Pressione as teclas ALT + F11 no Excel, isso abrirá a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Inserir um número específico de linhas em dados em intervalos fixos

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. Após colar este código, pressione a tecla F5 para executar o código; uma caixa de prompt aparecerá para lembrá-lo de selecionar o intervalo de dados onde deseja inserir linhas em branco, veja a captura de tela:

4. Clique no botão OK, outra caixa de prompt aparecerá; insira o número de intervalos de linha, veja a captura de tela:

5. Continue clicando no botão OK, na próxima caixa de prompt que aparecerá, insira o número de linhas em branco que deseja inserir, veja a captura de tela:

6. Em seguida, clique em OK, e as linhas em branco serão inseridas nos dados existentes em intervalos regulares, veja as capturas de tela:

Inserir um número específico de linhas em branco em um intervalo de dados com base nos valores das células com código VBA

Às vezes, você pode precisar inserir linhas em branco com base em uma lista de valores de células; neste caso, o código VBA abaixo pode ajudá-lo, por favor, faça o seguinte:

1. Pressione as teclas ALT + F11 no Excel, isso abrirá a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Inserir um número específico de linhas em branco com base em uma lista de números:

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. Após colar este código, pressione a tecla F5 para executar o código; na caixa de diálogo que aparecerá, selecione a lista de números com base nos quais deseja inserir linhas em branco, veja a captura de tela:

4. Em seguida, clique em OK e você obterá os resultados necessários conforme mostrado nas capturas de tela a seguir:

Inserir um número específico de linhas em branco em um intervalo de dados em intervalos fixos com um recurso prático

Se você não está familiarizado com o código VBA acima, o Kutools para Excel também pode ajudá-lo; seu recurso Inserir Linhas e Colunas em Branco pode inserir um número específico de linhas ou colunas em dados existentes em intervalos fixos de forma rápida e fácil.

Após instalar o Kutools para Excel, por favor, faça o seguinte:

1. Selecione o intervalo de dados onde deseja inserir linhas em branco em intervalos.

2. Clique em Kutools > Inserir > Inserir Linhas e Colunas em Branco, veja a captura de tela:

3. Na caixa de diálogo Inserir Linha e Coluna em Branco, escolha a opção Linhas em branco no Tipo de inserção e especifique o número de intervalos e linhas em branco que deseja usar conforme mostrado na captura de tela a seguir:

4. Em seguida, clique no botão OK, e as linhas em branco serão inseridas no intervalo selecionado em um intervalo específico conforme mostrado na captura de tela a seguir:

Baixe e experimente gratuitamente o Kutools para Excel agora!

Copiar e inserir linhas várias vezes com base em números específicos com código VBA

Suponha que você tenha um intervalo de dados e agora deseja copiar cada linha e colá-las várias vezes na linha seguinte com base em uma lista de números, conforme mostrado nas capturas de tela abaixo. Como resolver essa tarefa na planilha do Excel?

Para lidar com essa tarefa, vou apresentar um código útil para você; por favor, siga os passos abaixo:

1. Pressione as teclas ALT + F11 no Excel, isso abrirá a janela Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: Copiar e inserir linhas várias vezes com base em números específicos:

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. Após colar este código, pressione a tecla F5 para executar o código; na caixa de diálogo que aparecerá, selecione a lista de números com base nos quais deseja copiar e inserir as linhas de dados, veja a captura de tela:

4. Em seguida, clique no botão OK, e o número específico de linhas será copiado e colado sob cada linha original, veja as capturas de tela:

Copiar e inserir linhas várias vezes com base em números específicos com um recurso incrível

Se você tem o Kutools para Excel, com seu recurso Duplicar Linhas / Colunas com base no valor da célula, você pode inserir as linhas ou colunas com base na lista de números de forma rápida e fácil.

Após instalar o Kutools para Excel, por favor, faça o seguinte:

1. Clique em Kutools > Inserir > Duplicar Linhas / Colunas com base no valor da célula, veja a captura de tela:

2. Na caixa de diálogo Copiar e inserir linhas e colunas, selecione a opção Copiar e inserir linhas na seção Tipo, depois selecione o intervalo de dados que deseja duplicar e especifique a lista de valores com base nos quais deseja copiar as linhas, veja a captura de tela:

4. Em seguida, clique no botão Ok ou Aplicar, e você obterá o seguinte resultado conforme necessário:

Baixe e experimente gratuitamente o Kutools para Excel agora!

Mais artigos relacionados: