Note: The other languages of the website are Google-translated. Back to English

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.

NOTAPara 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.

NOTAPara 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 para cada ocasião 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 Aplicar 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?

As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
parte inferior da aba do escritório
Comentários (39)
Avaliado 5 fora do 5 · classificações 2
Este comentário foi feito pelo moderador no site
Oi, estou usando seu código (abaixo) você pode me dizer como pode preencher essas linhas com texto personalizado nele. Eu usei seu código para inserir três linhas funcionou perfeitamente, mas agora eu preciso inserir o texto Row1 = Date Row2.= Location Row3 = Phone Number Obrigado antecipadamente ... "Sub InsertRowsAtIntervals() 'Updateby20150707 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 Como 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("Digite o intervalo de linha. ", xTitleId, 1, Type:=1) xRows = Application.InputBox("Quantas linhas devem ser inserir em cada intervalo?", 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)). Selecione Application.Selection.EntireRow.Insert xNum1= xNum1 + xNum2 Próximo Fim Sub"
Este comentário foi feito pelo moderador no site
muito obrigado!!!!! isso é incrível
Este comentário foi feito pelo moderador no site
Muito obrigado!!
Este comentário foi feito pelo moderador no site
Hi


Eu uso o código de intervalo vba está funcionando .. Mas quando eu uso acima de 100000 linhas não está funcionando .. por favor, sugira o que devo mudar, se houver.


Sub InsertRowsAtIntervals()
'Atualizar em 20150707
Dim Rng como intervalo
Dim xInterval como inteiro
Dim xRows As Integer
Dim xRowsCount As Integer
Dim xNum1 como inteiro
Dim xNum2 como inteiro
Dim WorkRng As Range
Dim xWs como planilha
xTitleId = "KutoolsforExcel"
Definir WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xRowsCount = WorkRng.Rows.Count
xInterval = Application.InputBox("Digite o intervalo de linha. ", xTitleId, 1, Type:=1)
xRows = Application.InputBox("Quantas linhas inserir em cada intervalo? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Linha + xInterval
xNum2 = xLinhas + xIntervalo
Definir xWs = WorkRng.Parent
Para i = 1 Para Int(xRowsCount / xInterval)
xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)). Selecione
Application.Selection.EntireRow.Insert
xNum1 = xNum1 + xNum2
Seguinte
End Sub
Este comentário foi feito pelo moderador no site
Fantástico - você me salvou de muitas entradas de dados sem sentido, muito obrigado
Este comentário foi feito pelo moderador no site
oi como posso obter o código para inserir um número específico de colunas em dados em intervalos fixos
Este comentário foi feito pelo moderador no site
Olá, P.K.
Para inserir colunas em branco em dados existentes em intervalos específicos, o código VBA abaixo pode ajudá-lo! Por favor tente.

Sub InsertColumnsAtIntervals()
Dim Rng como intervalo
Dim xInterval como inteiro
Dim xCs como inteiro
Dim xCCount As Integer
Dim xNum1 como inteiro
Dim xNum2 como inteiro
Dim WorkRng As Range
Dim xWs como planilha
xTitleId = "KutoolsforExcel"
Definir WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xCCount = WorkRng.Columns.Count
xInterval = Application.InputBox("Digite o intervalo da coluna.", xTitleId, 1, Type:=1)
xCs = Application.InputBox("Quantas colunas inserir em cada intervalo? ", xTitleId, 1, Type:=1)
xNum1 = WorkRng.Column + xInterval
xNum2 = xCs + xIntervalo
Definir xWs = WorkRng.Parent
Para I = 1 Para Int(xCCount / xInterval)
xWs.Range(xWs.Cells(WorkRng.Row, xNum1 + xCs - 1), xWs.Cells(WorkRng.Row, xNum1)). Selecione
Application.Selection.EntireColumn.Insert
xNum1 = xNum1 + xNum2
Seguinte
End Sub
Este comentário foi feito pelo moderador no site
Como adicionar linhas nos dados do Excel conforme o número mencionado na última célula, digamos em dados do Excel se a última célula estiver mostrando o número como 4 , qual é a maneira de dd 4 linhas automaticamente. em outra linha o número é 72, etc
Este comentário foi feito pelo moderador no site
Olá, SPGupta,
Para inserir linhas em branco com base na lista de números específicos, aplique o código VBA abaixo.
Por favor, tente, espero que possa ajudá-lo!

Subinserção()
'Atualizar porExtendoffice
Dim xRg como intervalo
Dim xAddress como String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Selecione a coluna de número específico para usar (coluna única):", "KuTools For Excel", xAddress, , , , , 8)
Se xRg não for nada, saia do sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Coluna
xCount = xRg.Count
Defina xRg = xRg(1)
Para I = xLastRow Para xFstRow Etapa -1
xNum = Células(I, xCol)
Se IsNumeric(xNum) E xNum > 0 Então
Linhas(I + 1).Resize(xNum).Inserir
xContagem = xContagem + xNum
Se acabar
Seguinte
xRg.Resize(xCount, 1). Selecione
Application.ScreenUpdating = True
End Sub
Este comentário foi feito pelo moderador no site
Olá, poderia me ajudar, por favor? Como posso alterar esse código para adicionar uma linha a menos do que o número na célula? Por exemplo, se o número na célula for 4, o programa adiciona 3 linhas. Se o número na célula for 1, as linhas não serão adicionadas
Este comentário foi feito pelo moderador no site
Olá, Nina,
Para resolver sua tarefa, use o código abaixo:

Subinserção()
'Atualizar porExtendoffice
Dim xRg como intervalo
Dim xAddress como String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Selecione a coluna de número específico para usar (coluna única):", "KuTools For Excel", xAddress, , , , , 8)
Se xRg não for nada, saia do sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Coluna
xCount = xRg.Count
Defina xRg = xRg(1)
Para I = xLastRow Para xFstRow Etapa -1
xNum = Células(I, xCol)
xNum = xNum - 1
Se IsNumeric(xNum) E xNum > 0 Então
Linhas(I + 1).Resize(xNum).Inserir
xContagem = xContagem + xNum
Se acabar
Seguinte
xRg.Resize(xCount, 1). Selecione
Application.ScreenUpdating = True
End Sub


Por favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
Funciona perfeitamente, muito obrigado!
Este comentário foi feito pelo moderador no site
Isso é ótimo. Eu só me pergunto... e meu inglês não é perfeito, então espero que você me entenda :) .....
É possível preencher linhas em branco adicionadas com valores da linha onde estava esse número paramétrico?
Este comentário foi feito pelo moderador no site
Olá, Vladimir,Você pretende inserir linhas em branco com base em uma lista de números na planilha? Se sim, aplique o código abaixo:
Subinserção()
'Atualizar porExtendoffice
Dim xRg como intervalo
Dim xAddress como String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Selecione a lista de números que você deseja inserir linhas com base em:", "KuTools For Excel", xAddress, , , , , 8)
Se xRg não for nada, saia do sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Coluna
xCount = xRg.Count
Defina xRg = xRg(1)
Para I = xLastRow Para xFstRow Etapa -1
xNum = Células(I, xCol)
Se IsNumeric(xNum) E xNum > 0 Então
Linhas(I + 1).Resize(xNum).Inserir
xContagem = xContagem + xNum
Se acabar
Seguinte
xRg.Resize(xCount, 1). Selecione
Application.ScreenUpdating = True
End SubPor favor, tente, se você tiver outras dúvidas, por favor, comente aqui.
Este comentário foi feito pelo moderador no site
Este código é perfeito para inserir linhas....Sub Insert()
'Atualizar porExtendoffice
Dim xRg como intervalo
Dim xAddress como String
Dim I, xNum, xLastRow, xFstRow, xCol, xCount As Long
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Selecione a coluna de número específico para usar (coluna única):", "KuTools For Excel", xAddress, , , , , 8)
Se xRg não for nada, saia do sub
Application.ScreenUpdating = False
xLastRow = xRg(1).End(xlDown).Row
xFstRow = xRg.Row
xCol = xRg.Coluna
xCount = xRg.Count
Defina xRg = xRg(1)
Para I = xLastRow Para xFstRow Etapa -1
xNum = Células(I, xCol)
xNum = xNum - 1
Se IsNumeric(xNum) E xNum > 0 Então
Linhas(I + 1).Resize(xNum).Inserir
xContagem = xContagem + xNum
Se acabar
Seguinte
xRg.Resize(xCount, 1). Selecione
Application.ScreenUpdating = True
End Sub

Mas é possível... copiar dados nessas células em branco da linha onde estava esse número paramétrico? Posso postar aqui foto? Talvez seja mais fácil se eu mostrar o que preciso :)
Este comentário foi feito pelo moderador no site
Oi, Vladimir, pode ser que o código VBA abaixo possa ajudá-lo, por favor, tente. Sub CopyRow()
'Atualizar porExtendoffice
Dim xRg como intervalo
Dim xCRg como intervalo
Dim xFNum como inteiro
Dim xRN como inteiro
On Error Resume Next
Selecionar intervalo:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Selecione a lista de números", "Kutools for Excel", xTxt, , , , , 8)
Se xRg não for nada, saia do sub

Se xRg.Columns.Count > 1 Then
MsgBox "Por favor, selecione uma coluna!"
GoTo SelectRange
Se acabar
Application.ScreenUpdating = False
Para xFNum = xRg.Count To 1 Step -1
Definir xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
Com Linhas(xCRg.Row)
.Cópia de
.Resize(xRN).Inserir
Terminar com
Seguinte
Application.ScreenUpdating = True
End Sub

Este comentário foi feito pelo moderador no site
Estamos tão perto :) Tudo o que eu preciso agora é uma linha a menos do que no último código VBA, do que o valor do número paramétrico. Por exemplo: Se o número for 8, precisamos inserir e copiar 7 linhas. Como você fez para Nina apenas com esta CÓPIA
Portanto, se o número for 8, devemos ter um total de 8 linhas inseridas e copiadas, e com o código VBA anterior temos 9.
Tnx
Este comentário foi feito pelo moderador no site
Oi, Neste caso, o código a seguir pode ajudá-lo, tente: Sub CopyData()
'Atualizar por Extendoffice
Dim xRow por muito tempo
Dim VInSertNum como variante
xLinha = 1
Application.ScreenUpdating = False
Do While (Cells(xRow, "A") <> "")
VInSertNum = Cells(xRow, "B")
Se ((VInSertNum > 1) E IsNumeric(VInSertNum)) Então
Range(Cells(xRow, "A"), Cells(xRow, "B")). Copiar
Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "B")). Selecione
Selection.Insert Shift: = xlDown
xLinha = xLinha + VInSertNum - 1
Se acabar
xLinha = xLinha + 1
laço
Application.ScreenUpdating = False
End SubNote: No código acima, a letra A indica a coluna inicial do seu intervalo de dados e a letra B é a letra da coluna na qual você deseja duplicar as linhas. Altere-os de acordo com sua necessidade.
Este comentário foi feito pelo moderador no site
Você tem um módulo que deduz o número copiado por um?
Este comentário foi feito pelo moderador no site
Não. Eu tenho este, mas preciso dele para deduzir 1?
Sub CopyRow()
'Atualizar porExtendoffice
Dim xRg como intervalo
Dim xCRg como intervalo
Dim xFNum como inteiro
Dim xRN como inteiro
On Error Resume Next
Selecionar intervalo:
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Selecione a lista de números", "Kutools for Excel", xTxt, , , , , 8)
Se xRg não for nada, saia do sub

Se xRg.Columns.Count > 1 Then
MsgBox "Por favor, selecione uma coluna!"
GoTo SelectRange
Se acabar
Application.ScreenUpdating = False
Para xFNum = xRg.Count To 1 Step -1
Definir xCRg = xRg.Item(xFNum)
xRN = CInt(xCRg.Value)
Com Linhas(xCRg.Row)
.Cópia de
.Resize(xRN).Inserir
Terminar com
Seguinte
Application.ScreenUpdating = True
End Sub
Este comentário foi feito pelo moderador no site
O que estou tentando fazer é criar e imprimir etiquetas no Word a partir de uma planilha com várias quantidades?
Este comentário foi feito pelo moderador no site
Você já teve a oportunidade de ver isso?
Este comentário foi feito pelo moderador no site
Ouro te abençoe
Este comentário foi feito pelo moderador no site
Procurando código para gerar uma lista do excel duplicando por um número em uma célula e subtraindo 1 para o original?
Este comentário foi feito pelo moderador no site
Obrigado autor! Você merece o melhor elogio por isso! Mas, por favor, você poderia me ajudar com o código para colocar um valor constante em todas as linhas em branco que criei com seu código acima? Para ficar mais claro, preciso inserir um valor constante em todas as linhas em branco (isso já foi resolvido com seu código acima), então preciso inserir um valor constante em todas as linhas em branco (este é o meu problema). Obrigado como eu espero sua resposta amável.
Este comentário foi feito pelo moderador no site
Olá, Você quer preencher linhas em branco com valor específico? Em caso afirmativo, o seguinte artigo pode ajudá-lo:https://www.extendoffice.com/documents/excel/772-excel-fill-blank-cells-with-0-or-specific-value.html
Por favor tente.
Este comentário foi feito pelo moderador no site
Posso obter o código VBA para exclusão de linhas com base em valores duplicados em uma coluna selecionada mantendo todos os valores exclusivos?
Este comentário foi feito pelo moderador no site
Olá, Roy, Se você deseja remover linhas com base em valores duplicados, normalmente, você pode usar o Remover Duplicados recurso no Excel para remover as linhas. Claro, se você precisar de um código VBA, use o código abaixo: (Primeiro, você deve selecionar o intervalo de dados que deseja remover e, em seguida, executar este código, as linhas com base no valores duplicados na primeira coluna de sua seleção serão removidos imediatamente. ) Sub Delete_duplicate_rows()
Dim Rng como intervalo
Definir Rng = Seleção
Rng.RemoveDuplicates Colunas:=Array(1), Cabeçalho:=xlSim
End SubPor favor, tente, espero que possa ajudá-lo!
Este comentário foi feito pelo moderador no site
Isso é tão legal!! Muito obrigado
Este comentário foi feito pelo moderador no site
Muito obrigado, salveu meu trabalho, eu não tinha ideia de como fazer. Muito obrigado mesmo!
Este comentário foi feito pelo moderador no site
Olá,
Você é bem vindo. Que bom que ajuda. Qualquer dúvida, não hesite em contactar-nos. Tenha um ótimo dia.
Atenciosamente,
Mandy
Este comentário foi feito pelo moderador no site
você pode me dizer como inserir coluna assim, qual é o código
Este comentário foi feito pelo moderador no site
Olá amigo,
Você pode usar este código VBA:

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


Atenciosamente,
Mandy
Este comentário foi feito pelo moderador no site
Вот выручили так выручили!
Сидел, ломал голову как добавить строки по заданному количеству.
Ваш макрос мне очень помог.
Avaliado 5 fora do 5
Este comentário foi feito pelo moderador no site
Nome Email Telefone Endereço
0 Nome Email Telefone Endereço
linha de endereço 2 Nome Telefone 0
Nome Email Telefone Endereço
0 Nome Email Telefone Endereço
linha de endereço 2 0


Como eu poderia editar isso para iniciar uma nova linha em cada valor vazio ou valor 0 sem que os números de telefone com 0 iniciassem uma nova linha?
Este comentário foi feito pelo moderador no site
Olá, Jarrod

Desculpe, não consigo entender seu problema com clareza.
Poderia explicar seu problema com mais detalhes? Ou você pode inserir uma captura de tela ou arquivo aqui.
Obrigado!
Este comentário foi feito pelo moderador no site
Olá, há algum código que me permite copiar os dados, mas que na primeira coluna que as datas podem ser consecutivas.

exemplo

em vez de que quede asi

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

quede asi

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

obrigado
Este comentário foi feito pelo moderador no site
Olá, há algum código que me permite copiar os dados, mas na primeira coluna que as datas podem ser consecutivas.

exemplo

em vez de que quede asi

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

quede asi

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

obrigado
Este comentário foi feito pelo moderador no site
Script vba maravilhoso!
Eu tinha mais de 5000 linhas que preciso adicionar novas linhas entre elas. Todos os outros guias me disseram para fazer a coluna "auxiliar", levaria boa parte da minha vida para adicionar 1,2 copiar e colar repetidamente apenas para adicionar novas linhas.
Então, obrigado por isso!
Avaliado 5 fora do 5
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL