Ir para o conteúdo principal

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 as linhas existentes usando a função Inserir. Mas, se você tiver uma grande variedade de dados e precisar inserir duas linhas em branco a cada terceira enésima linha, como poderia terminar esse trabalho de maneira rápida e conveniente?


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

O código VBA a seguir pode ajudá-lo a inserir um número específico de linhas após cada enésima linha nos dados existentes. Faça o seguinte:

1. Segure o ALT + F11 chaves no Excel, e abre o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.

Código VBA: insira 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, pressione F5 chave para executar este código, uma caixa de prompt aparecerá para lembrá-lo de selecionar o intervalo de dados em que deseja inserir linhas em branco, consulte a captura de tela:

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

5. Continue clicando OK botão, na seguinte caixa de prompt exibida, insira o número de linhas em branco que deseja inserir, consulte a captura de tela:

6. Então clique OK, e as linhas em branco foram inseridas nos dados existentes em intervalos regulares, consulte as capturas de tela:


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

Às vezes, você pode precisar inserir as linhas em branco com base em uma lista de valores de células, neste caso, o código VBA abaixo pode lhe fazer um favor, faça o seguinte:

1. Segure o ALT + F11 chaves no Excel, e abre o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.

Código VBA: insira 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. Depois de colar este código, pressione F5 para executar este código, na caixa de diálogo aberta, selecione a lista de números que você deseja inserir linhas em branco com base, consulte a captura de tela:

4. Então clique OK, e você obterá os resultados necessários conforme as seguintes capturas de tela mostradas:


Insira um número específico de linhas em branco no intervalo de dados em intervalos fixos com um recurso útil

Se você não estiver familiarizado com o código VBA acima, Kutools for Excel também pode te ajudar, é Inserir linhas e colunas em branco recurso pode inserir um número específico de linhas ou colunas em dados existentes em intervalos fixos de forma rápida e fácil.

Nota:Para aplicar isso Inserir linhas e colunas em branco , em primeiro lugar, você deve baixar o Kutools for Excele, em seguida, aplique o recurso de forma rápida e fácil.

Depois de instalar Kutools for Excel, faça o seguinte:

1. Selecione o intervalo de dados que você deseja inserir linhas em branco em intervalos.

2. Clique Kutools > inserção > Inserir linhas e colunas em branco, veja a captura de tela:

3. No Inserir linhas e colunas em branco caixa de diálogo, escolha Linhas em branco opção do Tipo de inserçãoe, a seguir, especifique o número de intervalos e linhas em branco que deseja usar, conforme mostrado a seguir:

4. Então clique OK botão, e as linhas em branco foram inseridas no intervalo selecionado em um intervalo específico, como mostrado a seguir:

Baixe e teste grátis Kutools para Excel agora!


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

Suponha que você tenha um intervalo de tada e, agora, deseja copiar cada linha e colá-los várias vezes na próxima linha com base em uma lista de números, conforme as capturas de tela mostradas abaixo. Como resolveria essa tarefa na planilha do Excel?

Para lidar com este trabalho, vou apresentar um código útil para você, por favor, execute as seguintes etapas:

1. Segure o ALT + F11 chaves no Excel, e abre o Microsoft Visual Basic para Aplicações janela.

2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.

Código VBA: copie e insira 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. Depois de colar este código, pressione F5 para executar este código, na caixa de diálogo exibida, selecione a lista de números que deseja copiar e insira as linhas de dados com base, consulte a captura de tela:

4. Então clique OK botão, e o número específico de linhas foi copiado e colado em cada linha original, consulte as capturas de tela:


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

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

Nota:Para aplicar isso Linhas / colunas duplicadas com base no valor da célula, em primeiro lugar, você deve baixar o Kutools for Excele, em seguida, aplique o recurso de forma rápida e fácil.

Depois de instalar Kutools for Excel, faça o seguinte:

1. Clique Kutools > inserção > Linhas / colunas duplicadas com base no valor da célula, veja a captura de tela:

2. No Copiar e inserir linhas e colunas caixa de diálogo, selecione Copiar e inserir linhas opção no Formato seção, selecione o intervalo de dados que deseja duplicar e especifique a lista de valores nos quais deseja copiar as linhas, consulte a captura de tela:

4. Então clique Ok or Inscreva-se botão, você obterá o seguinte resultado conforme necessário:

Baixe e teste grátis Kutools para Excel agora!

Mais artigos relativos:

  • Copiar e inserir a linha várias vezes ou duplicar a linha X vezes
  • Em seu trabalho diário, você já tentou copiar uma linha ou cada linha e, em seguida, inserir várias vezes abaixo da linha de dados atual em uma planilha? Por exemplo, eu tenho um intervalo de células, agora, quero copiar cada linha e colá-las 3 vezes na próxima linha, como mostrado a seguir na captura de tela. Como você poderia lidar com esse trabalho no Excel?
  • Inserir linhas em branco quando o valor mudar no Excel
  • Supondo que você tenha um intervalo de dados e agora queira inserir linhas em branco entre os dados quando o valor mudar, para que possa separar os mesmos valores sequenciais em uma coluna, conforme as capturas de tela a seguir mostradas. Neste artigo, falarei sobre alguns truques para você resolver esse problema.
  • Copiar linhas de várias planilhas com base em critérios em uma nova planilha
  • Suponha que você tenha uma pasta de trabalho com três planilhas que têm a mesma formatação da imagem mostrada abaixo. Agora, você deseja copiar todas as linhas dessas planilhas cuja coluna C contém o texto “Concluído” em uma nova planilha. Como você poderia resolver esse problema de forma rápida e fácil sem copiar e colar um por um manualmente?

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para obter o recurso que você mais precisa...

Descrição


Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
Comments (39)
Rated 5 out of 5 · 2 ratings
This comment was minimized by the moderator on the site
Marvelous vba script!
I had over 5000 rows that i need to add new rows to in between. All other guides told me to make "helper" column it would take me good part of my life to add 1,2 copy paste over and over again just to add new rows.
So, Thanks for this!
Rated 5 out of 5
This comment was minimized by the moderator on the site
hola, hay algun codigo que me permita copiar los datos, pero que en la primera columna que son fechas puedan ser consecutivas.

ejemplo

en vez de que quede asi

10/01/2022 19.258.369-4 Juan Ramirez
10/01/2022 19.258.369-4 Juan Ramirez
10/01/2022 19.258.369-4 Juan Ramirez

quede asi

10/01/2022 19.258.369-4 Juan Ramirez
11/01/2022 19.258.369-4 Juan Ramirez
12/01/2022 19.258.369-4 Juan Ramirez

gracias
This comment was minimized by the moderator on the site
hola, hay algun codigo que me permita copiar los datos, pero que en la primera columna que son fechas pueda ser consecutivo.

ejemplo

en vez de que quede asi

01/10/2022 19.258.369-4 Juan Ramirez
01/10/2022 19.258.369-4 Juan Ramirez
01/10/2022 19.258.369-4 Juan Ramirez

quede asi

01/10/2022 19.258.369-4 Juan Ramirez
02/10/2022 19.258.369-4 Juan Ramirez
03/10/2022 19.258.369-4 Juan Ramirez

gracias
This comment was minimized by the moderator on the site
Name Email Phone Address
0 Name Email Phone Adress
address line 2 Name Phone 0
Name Email Phone Adress
0 Name Email Phone Adress
address line 2 0


How could I edit this to start a new row at every empty value or 0 value without having phone numbers with 0 start a new row?
This comment was minimized by the moderator on the site
Hello, Jarrod

Sorry, I can't get your problem clearly.
Could you explain your problem more detailed? Or you can insert a screenshot or file here.
Thank you!
This comment was minimized by the moderator on the site
Вот выручили так выручили!
Сидел, ломал голову как добавить строки по заданному количеству.
Ваш макрос мне очень помог.
Rated 5 out of 5
This comment was minimized by the moderator on the site
can you tell me how to insert column like this way , what is the code
This comment was minimized by the moderator on the site
Hello friend,
You can use this VBA code:

Sub InsertColumnsAtIntervals()

'Updateby Extendoffice

Dim Rng As Range

Dim xInterval As Integer

Dim xColumns As Integer

Dim xColumnsCount 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)

xColumnsCount = WorkRng.Columns.Count

xInterval = Application.InputBox("Enter column interval. ", xTitleId, 1, Type:=1)

xColumns = Application.InputBox("How many columns to insert at each interval? ", xTitleId, 1, Type:=1)

xNum1 = WorkRng.Column + xInterval

xNum2 = xColumns + xInterval

Set xWs = WorkRng.Parent

For i = 1 To Int(xColumnsCount / xInterval)

    xWs.Range(xWs.Cells(WorkRng.Row, xNum1), xWs.Cells(WorkRng.Row, xNum1 + xColumns - 1)).Select

    Application.Selection.EntireColumn.Insert

    xNum1 = xNum1 + xNum2

Next

End Sub


Sincerely,
Mandy
This comment was minimized by the moderator on the site
Muito obrigado, salvou meu trabalho, eu não tinha ideia de como fazer. Muito obrigado mesmo!
This comment was minimized by the moderator on the site
Hello,
You are welcome. Glad it helps. Any questions, please feel free to contact us. Have a great day.
Sincerely,
Mandy
This comment was minimized by the moderator on the site
This is so Cool!! Thanks a lot
This comment was minimized by the moderator on the site
Can I get the VBA code for deletion of rows based on duplicate values in a selected column keeping all unique values?
This comment was minimized by the moderator on the site
Hello, Roy,If you want to remove rows based on duplicate values, normally, you can use the Remove Duplicates feature in Excel to remove the rows.Of course, if you need a VBA code, please use the below code: (First, you should select the data range that you want to remove, and then run this code, the rows based on the duplicate values in the first column of your selection will be removed at once. )<div data-tag="code">Sub Delete_duplicate_rows()
Dim Rng As Range
Set Rng = Selection
Rng.RemoveDuplicates Columns:=Array(1), Header:=xlYes
End SubPlease try, hope it can help you!
This comment was minimized by the moderator on the site
Thank you author! You deserve the best commendation for these! But please could you help me out with the code to put a constant value into all blank rows I created with your code above? To make myself more clearer, I need to insert a constant value into all blank rows (this solved already with your code above) then I need to insert a constant value into all of the blank rows (this is my problem). Thank you as I expect your kind response.
This comment was minimized by the moderator on the site
Hello, Do you mean to fill blank rows with specific value? If so, mabe the following article cna help you:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
Please try it.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations