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?