Como desagrupar células e preencher com valores duplicados no Excel?
Se tiver uma folha de cálculo que contém inúmeras Mesclado e agora precisar de as desagrupar e preencher automaticamente para baixo com os valores originais das Mesclado, conforme mostrado nas seguintes capturas de ecrã, como poderá resolver rapidamente esta tarefa?
 |  |  |
Desagrupar células e preencher com dados duplicados utilizando o comando Ir Para Especial
Desagrupar células e preencher com dados duplicados com código VBA
Desagrupar células e preencher com dados duplicados com um só clique
Desagrupar células e preencher com dados duplicados utilizando o comando Ir Para Especial
Com o comando Ir Para Especial, pode desagrupar células e preencher os valores para baixo. No entanto, este método é um pouco complicado — siga os passos seguintes:
1. Selecione as colunas que contêm células mescladas.
2. Clique em Base > Mesclar e Centrar > Desagrupar Células. Veja a captura de ecrã:
3. As células mescladas foram desagrupadas e apenas a primeira célula foi preenchida com os valores originais. Em seguida, selecione novamente o intervalo.
4. Depois, clique em Base > Localizar e Selecionar > Ir Para Especial. Na caixa de diálogo Ir Para Especial, selecione a opção Células vazias. Veja a captura de ecrã:
5. Em seguida, clique em OK; todas as células vazias do intervalo foram selecionadas. Depois, introduza = e prima a tecla Seta para Cima no teclado. Veja a captura de ecrã:
6. Em seguida, prima as teclas Ctrl + Enter; todas as células vazias serão preenchidas com os dados originais das células agrupadas. Veja a captura de ecrã:
Desagrupar células e preencher com dados duplicados com código VBA
Com o seguinte código VBA, pode desagrupar rapidamente as células e preencher os valores para baixo.
1. Mantenha premidas as teclas ALT + F11 e será aberta a janela do Microsoft Visual Basic para Aplicações.
2. Clique em Inserir > Módulo e cole a seguinte macro na janela do Módulo.
Sub UnMergeSameCell()
'Upadateby Extendoffice
Dim Rng As Range, xCell As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each Rng In WorkRng
If Rng.MergeCells Then
With Rng.MergeArea
.UnMerge
.Formula = Rng.Formula
End With
End If
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub3. Depois, prima a tecla F5 para executar este código; será apresentada uma caixa de diálogo para selecionar um intervalo com o qual trabalhar. Veja a captura de ecrã:
4. Clique em OK; as células mescladas foram desagrupadas e preenchidas automaticamente para baixo com os valores originais das células agrupadas.
Desagrupar células e preencher com dados duplicados com um só clique
Com a funcionalidade Desagrupar Célula do Kutools para Excel, pode desagrupar células e preencher automaticamente com dados duplicados com apenas um clique — um método extremamente simples e prático.
Após instalar o Kutools para Excel, proceda da seguinte forma:
1. Selecione as colunas que pretende desagrupar e preencher os dados para baixo.
2. Clique em Kutools > Mesclar e Dividir > Desagrupar Células e Preencher Valores. Veja a captura de ecrã:
3. As células mescladas foram desagrupadas e preenchidas imediatamente com os valores duplicados. Veja as capturas de ecrã:
| | |
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
Desagrupar células e preencher com dados duplicados com Kutools para Excel
Artigo relacionado:
Agrupar linhas adjacentes com os mesmos dados 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