Como numerar automaticamente células mescladas no Excel?
Como podemos preencher números de série em uma lista de células mescladas de tamanhos diferentes no Excel? A primeira coisa que nos vem à mente é arrastar a alça de preenchimento automático para preencher as células mescladas, mas, neste caso, receberemos a seguinte mensagem de aviso e não conseguiremos preencher as células mescladas.
Como a alça de preenchimento não suporta células mescladas, aqui posso falar sobre alguns outros truques para resolver esse problema.
Numerar / preencher células mescladas com código VBA
Numerar / preencher células mescladas com código VBA
O seguinte código VBA pode ajudá-lo a numerar rapidamente as células mescladas selecionadas. Por favor, siga os passos abaixo:
1. Pressione e segure as teclas ALT + F11, isso 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: Numerar automaticamente células mescladas
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, pressione a tecla F5 para executar este código, e uma caixa de prompt aparecerá para permitir que você selecione as células mescladas que deseja preencher, veja a captura de tela:
4. Após selecionar as células mescladas e clicar em OK, agora suas células mescladas selecionadas foram preenchidas com números sequenciais, veja a captura de tela:
Artigos relacionados:
Como numerar automaticamente ou renumerar após filtrar no Excel?
Como mesclar rapidamente linhas adjacentes com os mesmos dados no Excel?
Como desmesclar células e preencher com valores duplicados no Excel?
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins