Como inserir números ou linhas para números sequenciais ausentes no Excel?
Supondo que você tenha uma lista de números sequenciais em uma planilha, mas faltem alguns números na sequência, e agora você precise inserir os números ausentes ou linhas em branco para garantir que a sequência seja completa (mostrada nas imagens a seguir). Como você poderia resolver esse problema rapidamente no Excel?
Insira os números ausentes para a sequência com o recurso Classificar e Remover Duplicados
Pode ser que você possa encontrar os números que faltam um por um e depois inseri-los, mas é difícil para você identificar a localização dos que faltam se houver centenas de números sequenciais. No Excel, posso usar o recurso Classificar e Remover Duplicados para lidar com essa tarefa.
1. Após o final da lista de sequência, preencha outros números de sequência de 2005023001 a 2005023011. Veja a captura de tela:
2. Em seguida, selecione o intervalo dos dois números de sequência e clique Data > Classificar de A a Z, veja a captura de tela:
3. E os dados selecionados foram classificados da seguinte forma:
4. Então você precisa remover as duplicatas por clique Data > Remover Duplicados, e no estalou Remover Duplicados caixa de diálogo, verifique a Coluna nome que você deseja remover as duplicatas, consulte as capturas de tela:
 |
 |
 |
5. Então clique OK, as duplicatas em Coluna A foi excluído e os números em falta na lista de sequência foram inseridos, consulte a captura de tela:
Insira os números ausentes para a sequência com código VBA
Se você acha que há tantas etapas com os métodos acima, aqui também o código VBA pode ajudá-lo a resolver o problema. Faça o seguinte:
1. Segure o ALT + F11 chaves, e abre o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo janela.
VBA: insira números ausentes para a 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. Então aperte F5 para executar este código e uma caixa de prompt aparecerá, selecione o intervalo de dados em que deseja inserir os números ausentes (não selecione o intervalo de título), consulte a captura de tela:
4. E, em seguida, clique em OK, os números ausentes foram inseridos na lista de sequência. Veja as capturas de tela:
 |
|
 |
Insira linhas em branco para a sequência ausente com o código VBA
Às vezes, você só precisa localizar o local dos números que faltam e inserir linhas em branco entre os dados, para que possa inserir as informações conforme necessário. Obviamente, o código VBA a seguir também pode ajudá-lo a resolver esse problema.
1. Mantenha pressionada a ALT + F11 chaves, e abre um Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo janela.
VBA: insira linhas em branco para a sequência ausente
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. Então aperte F5 para executar este código e uma caixa de prompt será exibida e, em seguida, selecione o intervalo de dados em que deseja inserir linhas em branco para a sequência ausente (não selecione o intervalo de título), consulte a captura de tela:
4. E, em seguida, clique em OK, as linhas em branco foram inseridas para a lista de sequência ausente. Veja as capturas de tela:
|
|
 |
Insira números ausentes ou linhas em branco para sequência com o Kutools para Excel
Aqui, vou apresentar uma ferramenta fácil e útil - Kutools for Excel, Com o seu Encontrar número de sequência ausente recurso, você pode inserir rapidamente o número de sequência ausente ou linhas em branco entre a sequência de dados existente.
| Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Se você instalou Kutools for Excel, faça o seguinte:
1. Selecione a sequência de dados em que deseja inserir os números ausentes.
2. Clique Kutools > inserção > Encontrar número de sequência ausente, veja a captura de tela:
3. No Encontrar número de sequência ausente caixa de diálogo, verifique Inserindo número de sequência ausente para inserir os números que faltam ou euinserir linhas em branco ao encontrar números de sequência ausentes para inserir linhas em branco conforme necessário. Veja a imagem:
4. E, em seguida, clique em OK botão, e os números de sequência ausentes ou linhas em branco foram inseridos nos dados, consulte as capturas de tela:
 |
|
 |
|
 |
Baixe e teste grátis Kutools para Excel agora!
Demonstração: insira números ausentes ou linhas em branco para sequência com Kutools para Excel
Artigo relacionado:
Como identificar a seqüência de números ausentes no Excel?
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!
