Como numerar automaticamente células mescladas no Excel?
Como poderíamos preencher números de série em uma lista de células mescladas de tamanhos diferentes no Excel? Em primeiro lugar, em nossa 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 podemos preencher as células mescladas.
Como a alça de preenchimento não oferece suporte a células mescladas, aqui posso falar sobre alguns outros truques para resolver esse problema.
Numerar / preencher automaticamente células mescladas com código VBA
Numerar / preencher automaticamente células mescladas com código VBA
O código VBA a seguir pode ajudá-lo a numerar as células mescladas selecionadas rapidamente. Faça o seguinte:
1. Segure o ALT + F11 chaves, e abre o Janela Microsoft Visual Basic for Applications.
2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.
Código VBA: Auto numerar 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. Então aperte 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. Depois de selecionar as células mescladas, clique em OK, agora, suas células mescladas selecionadas foram preenchidas com números sequenciais, consulte a captura de tela:
Artigos relacionados:
Como numerar ou renumerar automaticamente após o filtro no Excel?
Como mesclar rapidamente linhas adjacentes com os mesmos dados no Excel?
Como desfazer a mesclagem de células e preencher com valores duplicados 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!