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
- 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
- Insira um número específico de linhas em branco no intervalo de dados em intervalos fixos com um recurso útil
- Copie e insira linhas várias vezes com base em números específicos com código VBA
- Copie e insira linhas várias vezes com base em números específicos com um recurso incrível
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.
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.
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.
- Insira uma linha em branco após um texto específico no Excel
- Se você deseja inserir linhas em branco após um texto específico, como mostrado a seguir, como lidar com isso de forma rápida e fácil sem inseri-las manualmente uma por uma?
- 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
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...
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!