Como inserir os números ou linhas em falta para completar uma sequência numérica no Excel?
Imagine que tem uma lista de números sequenciais numa folha de cálculo, mas alguns estão em falta — como pode inserir rapidamente esses números ou linhas em branco para completar a sequência no Excel?
Inserir números em falta na sequência com a funcionalidade Ordenar e Remover duplicatas
Pode tentar identificar e inserir os números em falta um a um, mas localizar as respetivas posições torna-se difícil se tiver centenas de números sequenciais. No Excel, utilize a funcionalidade Ordenar e Remover Duplicatas para realizar esta tarefa com facilidade.
1. Após o final da lista sequencial, preencha outra série de Números Consecutivos de 2005023001 a 2005023011. Veja a imagem:
2. Em seguida, selecione o intervalo dos dois Números Consecutivos e clique em Dados > Ascendente. Veja a imagem:
3. E os dados selecionados foram ordenados conforme mostra a imagem seguinte:
4. Depois, clique em Dados > Remover duplicatas. Na caixa de diálogo Remover duplicatas que surge, marque o nome da Coluna cujos duplicados pretende eliminar. Veja as imagens:
 |  |  |
5. Em seguida, clique em OK. Os duplicados na Coluna A foram eliminados e os números em falta na sequência foram inseridos. Veja a imagem:
Inserir números em falta ou Linhas em branco na sequência com Kutools para Excel
Apresentamos-lhe uma ferramenta fácil e prática – Kutools para Excel – com a sua funcionalidade Encontrar sequência ausente, que lhe permite inserir rapidamente os números de sequência em falta ou as respetivas linhas em branco entre os dados existentes.
Se tiver instalado Kutools para Excel, siga os passos seguintes:
1. Selecione a sequência de dados em que pretende inserir os números em falta.
2. Clique em Kutools > Inserir > Encontrar sequência ausente, conforme ilustrado:
3. Na caixa de diálogo Encontrar sequência ausente, marque Inserir dados ausentes para inserir os números em falta ou marque Inserir Linhas em branco ao encontrar Números Consecutivos em falta para inserir linhas em branco conforme necessário. Veja a imagem:
4. Em seguida, clique no botão OK e os números consecutivos ou linhas em branco em falta serão inseridos nos dados. Veja as imagens:
 | |  | |  |
Descarregue e experimente gratuitamente o Kutools para Excel agora!
Inserir números em falta na sequência com código VBA
Se achar que os métodos anteriores envolvem demasiados passos, existe também um código VBA que o pode ajudar a resolver este problema. Siga os passos seguintes:
1. Mantenha premidas as teclas ALT + F11, o que abre a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o código seguinte na janela do Módulo.
VBA: inserir números em falta na sequência
Sub InsertValueBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
outArr(i + 1, 1) = i + num1
If dic.Exists(i + num1) Then
outArr(i + 1, 2) = dic(i + num1)
Else
outArr(i + 1, 2) = ""
End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = outArr
.Select
End With
End Sub
3. Em seguida, prima a tecla F5 para executar este código e surgirá uma caixa de diálogo. Por favor, selecione o intervalo de dados no qual pretende inserir os números em falta (não selecione o intervalo do título). Veja a imagem:
4. Em seguida, clique em OK e os números em falta serão inseridos na lista sequencial. Veja as imagens:
 | |  |
Inserir Linhas em branco nas posições em falta da sequência com código VBA
Por vezes, basta identificar as posições dos números em falta e inserir linhas em branco entre os dados para poder introduzir a informação pretendida. Naturalmente, o código VBA seguinte também o pode ajudar a resolver este problema.
1. Mantenha premidas as teclas ALT + F11, o que abre uma janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir>Módulo, e cole o código seguinte na janela do Módulo.
VBA: inserir Linhas em branco nas posições em falta da sequência
Sub InsertNullBetween()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Rng As Range
Dim outArr As Variant
Dim dic As Variant
Set dic = CreateObject("Scripting.Dictionary")
'On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
num1 = WorkRng.Range("A1").Value
num2 = WorkRng.Range("A" & WorkRng.Rows.Count).Value
interval = num2 - num1
ReDim outArr(1 To interval + 1, 1 To 2)
For Each Rng In WorkRng
dic(Rng.Value) = Rng.Offset(0, 1).Value
Next
For i = 0 To interval
If dic.Exists(i + num1) Then
outArr(i + 1, 1) = i + num1
outArr(i + 1, 2) = dic(i + num1)
Else
outArr(i + 1, 1) = ""
outArr(i + 1, 2) = ""
End If
Next
With WorkRng.Range("A1").Resize(UBound(outArr, 1), UBound(outArr, 2))
.Value = outArr
.Select
End With
End Sub
3. Em seguida, prima a tecla F5 para executar este código. Surgirá uma caixa de diálogo na qual deverá selecionar o intervalo de dados onde pretende inserir linhas em branco nas posições em falta da sequência (não selecione o intervalo do título). Veja a imagem:
4. Em seguida, clique em OK e as linhas em branco serão inseridas nas posições em falta da sequência. Veja as imagens:
| |  |
Artigo relacionado:
Como identificar uma sequência com números em falta no Excel?
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