Como preencher para baixo números consecutivos no Excel, ignorando as linhas ocultas?
Suponha que tenha um filtro aplicado ao Intervalo de Dados e queira preencher, nas células em branco visíveis após a filtragem, uma sequência de Números Consecutivos, tal como ilustrado na seguinte captura de ecrã. Neste cenário, arrastar a alça de preenchimento normalmente não preencherá corretamente essas células. Neste artigo, apresento alguns truques eficazes para resolver esta tarefa no Excel.
 |  |  |
Preencher para baixo Números Consecutivos ignorando as linhas ocultas com fórmula
Preencher para baixo Números Consecutivos ignorando as linhas ocultas com código VBA
Preencher para baixo Números Consecutivos ignorando as linhas ocultas com Kutools para Excel
Preencher para baixo Números Consecutivos ignorando as linhas ocultas com fórmula
Para preencher números consecutivos apenas nas células visíveis, uma fórmula simples pode ajudá-lo. Siga estes passos:
1. Introduza esta fórmula: =SUBTOTAL(103;$B$3:$B3) (B3 é a célula visível correspondente à célula onde pretende começar a preencher o número de sequência) na primeira célula onde deseja inserir os números consecutivos — neste exemplo, A3 — e, em seguida, prima a tecla Enter para obter o número 1. Veja a captura de ecrã:
2. Em seguida, selecione a célula A3 e arraste a alça de preenchimento para baixo até às células onde pretende preencher os números consecutivos. Veja a captura de ecrã:
Preencher para baixo Números Consecutivos ignorando as linhas ocultas com código VBA
O seguinte código VBA também o pode ajudar a preencher o Números Consecutivos apenas nas células visíveis. Proceda da seguinte forma:
1. Mantenha premidas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na janela do Módulo.
Código VBA: Preencher para baixo Números Consecutivos ignorando as linhas ocultas:
Sub FillValue()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
Dim xVal As Long
Dim I As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = xRg.SpecialCells(xlVisible)
Debug.Print xRg.Address
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
xVal = xVal + 1
xCell = xVal
Next
End Sub
3. Em seguida, prima a tecla F5 para executar este código. Irá surgir uma caixa de diálogo a solicitar que selecione o intervalo de dados que pretende preencher. Veja a captura de ecrã:
4. Depois, clique no botão OK e os Números Consecutivos serão preenchidos apenas nas células visíveis.
Preencher para baixo Números Consecutivos ignorando as linhas ocultas com Kutools para Excel
Os dois métodos anteriores permitem apenas preencher para baixo números consecutivos nas células visíveis. Se pretender preencher uma sequência como AA-0001-BB, AA-0002-BB, AA-0003-BB…, os métodos acima não funcionarão. Mas não se preocupe: a funcionalidade Kutools para Excel’s Inserir Número de Sequência permite-lhe concluir esta tarefa de forma rápida e fácil.
Após instalar o Kutools para Excel, proceda da seguinte forma:
1. Selecione as células onde pretende preencher com sequências de texto.
2. Clique em Kutools > Inserir > Inserir Número de Sequência. Na caixa de diálogo Inserir Número de Sequência, clique no botão Novo. Veja as capturas de ecrã:
 | |  |
3. Na caixa de diálogo expandida, defina as opções pretendidas na secção inferior esquerda e visualize em tempo real a sequência no painel inferior direito. Veja a captura de ecrã:
4. Após concluir as definições, clique no botão Adicionar para guardar este novo item na lista acima. Veja a captura de ecrã:
6. Em seguida, selecione o item que criou e clique no botão Preencher Intervalo. As sequências de texto serão preenchidas apenas nas células visíveis. Veja a captura de ecrã:
Transfira e experimente gratuitamente o Kutools para Excel Agora!
Demonstração: Preencher para baixo Números Consecutivos ignorando as linhas ocultas com Kutools para 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