Note: The other languages of the website are Google-translated. Back to English

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.

doc-fill-merged-cells-1

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

Guia Office Habilite a edição e navegação com guias no Office e torne seu trabalho muito mais fácil ...
O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
  • Reutilizar qualquer coisa: Adicione as fórmulas, gráficos e tudo mais usados ​​ou complexos aos seus favoritos e reutilize-os rapidamente no futuro.
  • Mais de 20 recursos de texto: Extrair número da string de texto; Extraia ou remova parte dos textos; Converta números e moedas para palavras em inglês.
  • Ferramentas de mesclagem: Várias pastas de trabalho e planilhas em um; Mesclar várias células / linhas / colunas sem perder dados; Mesclar linhas duplicadas e soma.
  • Ferramentas de divisão: Divida os dados em várias folhas com base no valor; Uma pasta de trabalho para vários arquivos do Excel, PDF ou CSV; Uma coluna para várias colunas.
  • Colar Ignorando Linhas ocultas / filtradas; Contagem e soma por cor de fundo; Envie emails personalizados para vários destinatários em massa.
  • Super Filtro: Crie esquemas de filtro avançados e aplique a qualquer planilha; tipo por semana, dia, frequência e muito mais; filtros por negrito, fórmulas, comentário ...
  • Mais de 300 recursos poderosos; Funciona com Office 2007-2019 e 365; Suporta todos os idiomas; Fácil implantação em sua empresa ou organização.

seta azul bolha direita 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:

doc-fill-merged-cells-1

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:

doc-fill-merged-cells-1


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?


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
parte inferior da aba do escritório

 

Comentários (10)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Isso foi muito útil e resolveu meu problema imediatamente, muito obrigado!
Este comentário foi feito pelo moderador no site
É muito útil. mas eu preciso de uma solução, suponha que eu queira preencher séries em células mescladas, mas o conteúdo da célula mesclada tem dados como TC_01, é possível preencher as próximas células mescladas como TC_02, TC_03etc.. Se for possível isso me ajuda muito. Desde já, obrigado.
Este comentário foi feito pelo moderador no site
Modificar: Do While Not Intersect(Rng, WorkRng) Não é nada a = xIndex Rng.Value = "Tc_" & a xIndex = xIndex + 1 Set Rng = Rng.MergeArea.Offset(1) Loop
Este comentário foi feito pelo moderador no site
Oi, queria saber se existe alguma maneira de alterar o código onde o valor do intervalo aumentará em um, por exemplo, estou tentando usar isso para faturas e o número deve ir de NR000026489 para NR000026490, mas usando o código acima com a modificação dada a JYOTHI passaria de NR000026489 para NR0000264810. Qualquer ajuda seria muito apreciada, pois passei anos tentando coisas diferentes, mas não sou avançado o suficiente em VB. Muito obrigado :)
Este comentário foi feito pelo moderador no site
Eu comprei o Kutools para me ajudar a incrementar automaticamente minha numeração de fatura, mas não estou vendo esse recurso no suplemento na barra de ferramentas do Excel. Talvez eu não esteja procurando o nome correto, mas não estou encontrando como inserir isso no meu modelo de fatura. Qualquer lá fora
Este comentário foi feito pelo moderador no site
Este código está funcionando perfeitamente.


Sub NumberCellsAndMergedCells()
'Atualizar 20141028
Dim Rng como intervalo
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Definir WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
Definir WorkRng = WorkRng.Columns(1)
xÍndice = 1
Set Rng = WorkRng.Range("A1")
Fazer enquanto não cruzar (Rng, WorkRng) não é nada
Valor Rng = xIndex
xÍndice = xÍndice + 1
Definir Rng = Rng.MergeArea.Offset(1)
laço
End Sub


MAS eu quero selecionar intervalo automaticamente em vez de Set WorkRng = Application.Selection.
Por favor me ajude.
Este comentário foi feito pelo moderador no site
Existe uma maneira de excluir uma célula mesclada que contém texto? Este script funciona perfeitamente, mas estou percorrendo um documento que inclui várias células mescladas horizontalmente que são transformadas em barras de título e quero pular/excluí-las. Qualquer ajuda seria muito apreciada!
Este comentário foi feito pelo moderador no site
Oi,

Como converter uma célula com

Apple, Limão, Água, Refrigerante, Cap, Morcego

para dentro

1. Maçã, 2. Limão, 3. Água, 4. Tampão, 5. Morcego
Este comentário foi feito pelo moderador no site
Ao gerar celdas combinadas de diferentes tamanhos, e que queremos numerar, podemos selecionar as vaciar o conteúdo... em seguida com a seguinte fórmula : =IF(Q7="",(COUNTIF($Q$7:Q7,"") ),SUBSTITUTE("TRUE","TRUE","")) esta detectou que não hay nada e na casilla combinada será um seguido iniciando com 1- No import el tamaño de la celda combinada, solo pondrá el numero al principio de la celda combinada.
Este comentário foi feito pelo moderador no site
Obrigada!! :)
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos