Como inserir um número específico de linhas em intervalos regulares no Excel?
Numa folha de cálculo do Excel, pode inserir manualmente linhas em branco entre linhas existentes utilizando a função **Inserir** incorporada. Contudo, ao lidar com um grande volume de dados ou quando necessita de inserir regularmente, por exemplo, duas linhas em branco após cada terceira (ou enésima) linha, realizar esta tarefa manualmente torna-se moroso e ineficiente. Automatizar a inserção de linhas em branco em intervalos fixos não só economiza tempo como também minimiza erros, tornando o seu fluxo de trabalho mais ágil. Os métodos seguintes mostram-lhe como realizar esta tarefa de forma rápida e conveniente, incluindo soluções para inserir linhas em branco com base em determinados critérios ou repetição de linhas, com e sem VBA.
➤ Inserir um número específico de Linhas em branco em Intervalo de Dados a intervalos fixos com código VBA
➤ Inserir um número específico de Linhas em branco em Intervalo de Dados com base em valores de células com código VBA
➤ Inserir um número específico de Linhas em branco em Intervalo de Dados a intervalos fixos com uma funcionalidade prática
➤ Inserir um número específico de Linhas em branco a intervalos fixos com fórmulas do Excel
➤ 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 uma funcionalidade surpreendente
Inserir um número específico de Linhas em branco em Intervalo de Dados em intervalos fixos com código VBA
O seguinte código VBA permite inserir automaticamente um número específico de linhas em branco após cada enésima linha no seu intervalo de dados existente. Esta solução destina-se a utilizadores familiarizados com macros e que precisam de processar conjuntos de dados médios a grandes de forma eficiente. Siga os passos abaixo para aplicar esta solução:
1. Mantenha premidas as teclas ALT + F11 no Excel, o que abre a janela do Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e cole o código seguinte na Janela do Módulo.
Código VBA: Inserir um número específico de linhas nos 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. Depois de colar este código, prima F5 para o executar. Aparecerá uma caixa de diálogo a solicitar que selecione o intervalo de dados onde pretende inserir linhas em branco, conforme ilustrado abaixo:
4. Clique em OK. Aparecerá outra caixa de diálogo, onde deverá introduzir o intervalo pretendido entre linhas — por exemplo, ao introduzir 3, serão inseridas linhas em branco após cada terceira linha:
5. Continue a clicar em OK e, de seguida, introduza o número de linhas em branco que pretende inserir sempre que o código o solicitar (por exemplo, introduza 2 para inserir duas linhas):
6. Após confirmar as suas opções, serão inseridas linhas em branco nos seus dados nos intervalos definidos. Veja a comparação antes e depois abaixo:
 |  |  |
Dicas & Notas:
- Esta macro permite-lhe selecionar de forma flexível o seu intervalo de dados e especificar tanto o intervalo entre linhas como o número de linhas em branco a inserir.
- Certifique-se de fazer uma cópia de segurança da sua folha de cálculo ou experimente primeiro numa folha de exemplo, pois inserir linhas é irreversível, salvo se utilizar imediatamente o comando Anular.
Resolução de problemas: Se encontrar um erro, certifique-se de que os seus dados não estão filtrados e de que não existem tabelas sobrepostas à área selecionada. Caso obtenha resultados inesperados, utilize imediatamente o comando Anular para reverter as alterações.
Inserir um número específico de Linhas em branco em Intervalo de Dados com base nos valores das células com código VBA
Por vezes, o seu fluxo de trabalho pode exigir a inserção de linhas em branco com base numa lista predefinida de valores de células — por exemplo, adicionar espaços após cada registo que corresponda a determinados critérios. Esta solução VBA é ideal quando a lógica de inserção depende dos valores de uma coluna adjacente, e não de intervalos fixos.
✅ Quando utilizar:
- Recomendado quando os seus dados estão organizados por categorias (como departamentos, fases de projeto ou representantes comerciais) e precisa de inserir espaçamento ou linhas em branco entre os grupos.
- Certifique-se de que a sua seleção está correta, pois a macro utilizará as células selecionadas para determinar onde inserir linhas.
1. Mantenha premidas as teclas ALT + F11 no Excel para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e cole o código seguinte na janela do módulo.
Código VBA: Inserir um número específico de Linhas em branco com base numa 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 o código, prima F5 para o executar. Na caixa de diálogo que aparece, selecione a lista de números (ou as células relevantes) com base nas quais devem ser inseridas linhas em branco.
4. Em seguida, clique em OK e verá o resultado pretendido, conforme ilustrado nas seguintes capturas de ecrã:
 | |  |
Lembrete de erro: Se a lista de referência contiver células vazias ou dados não numéricos, verifique a lógica do código ou limpe os seus dados antes de executar esta macro.
Inserir um número específico de Linhas em branco em Intervalo de Dados a intervalos fixos com uma funcionalidade prática
Se preferir não utilizar VBA ou desejar um método mais visual e interativo, o Kutools para Excel disponibiliza uma funcionalidade dedicada: Inserir Linhas/Colunas em Branco. Com apenas alguns cliques, pode adicionar linhas ou colunas em branco em qualquer intervalo definido dentro do seu conjunto de dados — aumentando significativamente a produtividade, especialmente em tarefas repetitivas de relatórios ou formatação.
Após instalar Kutools para Excel, siga estes passos:
1. Selecione o intervalo de dados onde pretende inserir linhas em branco a intervalos regulares.
2. Aceda a Kutools > Inserir > Inserir Linhas/Colunas em Branco, conforme ilustrado abaixo:
3. Na caixa de diálogo Inserir Linhas em Branco & Colunas, escolha Linhas em Branco em Tipo de Inserção e, em seguida, especifique o intervalo e o número de linhas em branco a inserir, conforme ilustrado:
Nota: A configuração é flexível. Se precisar de duas linhas em branco após cada quatro linhas de dados, defina o intervalo como 4 e o número de linhas em branco como 2.
4. Em seguida, clique no botão OK. As linhas em branco serão inseridas no intervalo selecionado, conforme o intervalo que especificou, tal como demonstrado abaixo:
| | |
Vantagens: Esta solução é fácil de usar, não requer programação e é especialmente útil para quem precisa de ajustar frequentemente a estrutura de linhas ou colunas.
Transfira e experimente gratuitamente o Kutools para Excel agora!
Inserir um número específico de Linhas em branco a intervalos fixos com fórmulas do Excel
Se não puder utilizar macros ou extras, ainda pode alcançar o objetivo de inserir linhas em branco em intervalos fixos recorrendo a colunas auxiliares e a funções incorporadas do Excel, como MOD e LIN. Este método é especialmente útil quando a utilização de scripts é restrita, mas o uso básico de fórmulas e a ordenação estão disponíveis.
Ideal para utilizadores que pretendem manter livros de trabalho sem macros, necessitam de ampla compatibilidade ou estão a preparar dados para fluxos de importação/exportação que exigem separação visual através de linhas em branco.Ideal para utilizadores que pretendem manter livros de trabalho sem macros, necessitam de ampla compatibilidade ou estão a preparar dados para fluxos de importação/exportação que exigem separação visual através de linhas em branco.
⚠️ Precauções: Este método não insere efetivamente linhas em branco, mas simula-as recorrendo a linhas adicionais e fórmulas auxiliares. Terá de ordenar os dados posteriormente para organizar os espaços simulados. Trata-se de uma solução alternativa ideal para conjuntos de dados pequenos a médios.
Passos:
- Suponha que os seus dados estão nas células A2:B11. Numa nova coluna auxiliar (por exemplo, na coluna C a partir da célula C2), introduza a seguinte fórmula:
Substitua=INT((ROW()-ROW($A$2))/(n+1))npelo número de linhas após o qual pretende inserir uma linha em branco. Por exemplo, para inserir uma linha em branco após cada 3 linhas, utilize:=INT((ROW()-ROW($A$2))/3) - Arraste a fórmula ao longo do conjunto de dados para atribuir números de grupo.
- Abaixo da última linha de dados, adicione linhas extra com valores em branco nas colunas A e B. Na coluna C (coluna auxiliar), insira os mesmos números de grupo já utilizados, garantindo que essas linhas em branco sejam corretamente agrupadas.
- Selecione todo o intervalo (original + Adicionar Linha), depois ordene pela coluna auxiliar e aplique qualquer ordenação secundária, se necessário. As linhas em branco aparecerão agora após cada n linhas de dados.
🟡 Lembrete de erro:
- Certifique-se de atribuir os números de grupo corretos às suas linhas em branco — discrepâncias farão com que estas apareçam em locais não pretendidos.
- Lembre-se: este método adiciona apenas linhas físicas após a ordenação, por isso confirme o esquema final antes de guardar ou exportar.
Resumo e dicas: Embora não seja tão eficiente quanto o uso de VBA ou ferramentas como o Kutools, este método baseado em fórmulas é universalmente compatível e não depende de scripts. Ideal para tarefas ocasionais ou ligeiras, oferece uma solução alternativa simples e flexível.
Copiar e Inserir Linhas várias vezes com base em números específicos com código VBA
Se a sua tarefa exigir não só inserir linhas em branco, mas também duplicar e inserir linhas de dados existentes um determinado número de vezes — eventualmente com base numa lista separada de números —, o seguinte código VBA oferece um método automatizado prático. É especialmente útil para replicar entradas em encomendas de vendas, cenários ou planeamento de recursos.
 | |  |
Para implementar isto, siga os seguintes passos detalhados:
1. Mantenha premidas as teclas ALT + F11 no Excel para abrir a janela Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e, em seguida, cole o código abaixo 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
Precauções: Faça sempre uma cópia de segurança dos seus dados antes de executar scripts VBA que duplicam linhas, pois estes podem multiplicar rapidamente os seus dados e não são facilmente anuláveis.
3. Após introduzir o código, prima F5 para executar a macro. Na caixa de diálogo, selecione a lista de números que indica quantas vezes pretende duplicar e inserir cada linha.
4. Clique em OK. O número especificado de linhas será copiado e inserido abaixo de cada linha original, conforme ilustrado abaixo:
| | |
Dica: Esta solução é ideal para tarefas de preparação de dados e não é adequada para entrada em tempo real, pois as macros VBA não podem ser anuladas caso sejam realizadas outras operações não relacionadas.
Copiar e Inserir Linhas várias vezes com base em números específicos com uma funcionalidade surpreendente
Para quem pretende que o processo de duplicar e inserir linhas seja intuitivo e não exija conhecimentos de programação, a funcionalidade Kutools para Excel, Copiar ou Inserir Linhas/Colunas de Acordo com Dados Especificados, é uma solução eficiente. Com apenas algumas seleções simples, esta ferramenta permite-lhe indicar exatamente quais as linhas ou colunas a duplicar e quantas vezes o fazer — tudo com base num valor de célula de referência ou numa lista.
Após instalar Kutools para Excel, siga estes passos:
1. Aceda a Kutools > Inserir > Copiar ou Inserir Linhas/Colunas de Acordo com Dados Especificados, conforme ilustrado:
2. Na caixa de diálogo Copiar e Inserir Linhas/Colunas, selecione Copiar e Inserir Linhas como tipo, indique o intervalo de dados que pretende duplicar e especifique, de seguida, a lista de valores a utilizar como referência para a duplicação, conforme apresentado:
Dica: Utilize esta funcionalidade para gerar amostras de teste, replicar modelos de transações ou multiplicar rapidamente definições e registos — tudo sem precisar de scripts complexos.
4. Por fim, clique em OK ou em Aplicar para gerar o resultado demonstrado abaixo:
| | |
Nota: Certifique-se de que a sua lista de valores está corretamente alinhada com os seus dados para obter os resultados esperados.
Transfira e experimente gratuitamente o Kutools para Excel agora!
Mais artigos relacionados:
- Copiar E Inserir Linha Múltiplas Vezes Ou Duplicar A Linha X Vezes
- No seu trabalho diário, já alguma vez precisou de copiar uma linha — ou cada linha de um intervalo — e inseri-la múltiplas vezes imediatamente abaixo da linha original numa folha de cálculo? Por exemplo, tenho um conjunto de células e pretendo copiar cada linha, colando-a três vezes consecutivas logo a seguir à respetiva linha original, tal como ilustrado na imagem seguinte. Como posso realizar esta tarefa no Excel?
- Inserir Linhas em branco Quando o Valor Muda no Excel
- Imagine que tem um conjunto de dados e pretende inserir linhas em branco entre os registos sempre que o valor numa determinada coluna mude, de modo a separar visualmente sequências de valores idênticos — tal como ilustrado nas imagens seguintes. Neste artigo, revelo alguns truques práticos para resolver este desafio com eficiência.
- Inserir Uma Linha em branco Após Texto Específico no Excel
- Se pretender inserir linhas em branco após um texto específico, conforme ilustrado na imagem seguinte, como poderá fazê-lo de forma rápida e fácil sem as inserir manualmente, uma a uma?
- Copiar Linhas De Múltiplas Folhas Com Base Em Critérios Para Uma Nova Folha
- Imagine que tem um livro com três folhas de cálculo com a mesma formatação, conforme ilustrado na imagem seguinte. Pretende agora copiar todas as linhas dessas folhas cuja coluna C contenha o texto «Concluído» para uma nova planilha. Como pode resolver este problema de forma rápida e fácil, sem ter de copiar e colar manualmente cada linha?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos