Como numerar automaticamente células mescladas no Excel?
Como podemos preencher uma série numérica numa lista de células mescladas com tamanhos diferentes no Excel? A primeira ideia que nos ocorre é arrastar a alça de autorreenchimento para preencher as células mescladas, mas, neste caso, surge a seguinte mensagem de aviso e não é possível concluir o preenchimento.
Como a alça de preenchimento não suporta células mescladas, aqui estão alguns truques alternativos para resolver esse problema.
Numerar / preencher automaticamente Mesclado com código VBA
Numerar / preencher automaticamente Mesclado com código VBA
O código VBA seguinte permite-lhe numerar rapidamente as células mescladas selecionadas. Siga os passos abaixo:
1. Mantenha premidas as teclas ALT + F11 e abrir-se-á a janela do Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.
Código VBA: Numerar automaticamente Mesclado
Sub NumberCellsAndMergedCells()
'Update 20141028
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Set WorkRng = WorkRng.Columns(1)
xIndex = 1
Set Rng = WorkRng.Range("A1")
Do While Not Intersect(Rng, WorkRng) Is Nothing
Rng.Value = xIndex
xIndex = xIndex + 1
Set Rng = Rng.MergeArea.Offset(1)
Loop
End Sub
3. Em seguida, prima a tecla F5 para executar este código e surgirá uma caixa de diálogo que lhe permitirá selecionar os mesclados que pretende preencher, conforme ilustrado na captura de ecrã:
4. Após selecionar as células mescladas e clicar em OK, as suas células mescladas selecionadas serão preenchidas com números sequenciais, conforme ilustrado na captura de ecrã:
Artigos relacionados:
Como numerar ou renumerar automaticamente após aplicar um filtro no Excel?
Como combinar rapidamente linhas adjacentes que contêm os mesmos dados no Excel?
Como desagrupar células e preencher com valores duplicados 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