Como desfazer a mesclagem de células e preencher com valores duplicados no Excel?
Se você tiver uma planilha que contém várias células mescladas, e agora você precisa desfazê-las e preencher automaticamente os valores originais das células mescladas, conforme as capturas de tela a seguir mostradas. Como você poderia lidar rapidamente com essa tarefa?
Desfaça a mesclagem de células e preencha com dados duplicados com o comando Ir para especial
Desfaça a mesclagem de células e preencha com dados duplicados com código VBA
Desfaça a mesclagem de células e preencha com dados duplicados com um clique
Desfaça a mesclagem de células e preencha com dados duplicados com o comando Ir para especial
Com o Ir para especial comando, você pode desfazer a mesclagem de células e preencher os valores. Mas este método é um tanto problemático, siga as seguintes etapas:
1. Selecione as colunas que possuem células mescladas.
2. Clique INÍCIO > Unir e centrar > Desfazer Células. Veja a imagem:
3. E as células mescladas foram removidas e apenas a primeira célula será preenchida com os valores originais. E, em seguida, selecione o intervalo novamente.
4. Então clique INÍCIO > Encontrar e selecionar > Ir para especial. No Ir para especial caixa de diálogo, selecione Blanks opção. Veja a imagem:
5. E, em seguida, clique em OK, todas as células em branco no intervalo foram selecionadas. Em seguida, insira = e imprensa Up tecla de seta no teclado. Veja a imagem:
6. Então aperte Ctrl + Enter chaves, todas as células em branco foram preenchidas com os dados fundidos originais. Veja a imagem:
Desfaça a mesclagem de células e preencha com dados duplicados com código VBA
Com o código VBA a seguir, você pode desfazer a mesclagem rapidamente das células e preencher os valores.
1. Segure o ALT + F11 chaves, e abre o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole a macro a seguir no Módulojanela.
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 = Falso para cada Rng em WorkRng If Rng.MergeCells Then With Rng.MergeArea .UnMerge .Formula = Rng.Formula End With End If Next Application.DisplayAlerts = True Application.ScreenUpdating = True End Sub
3. Em seguida, pressione o botão F5 chave para executar este código, uma caixa de diálogo é exibida para selecionar um intervalo para trabalhar, veja a captura de tela:
4. Clique OK, então as células mescladas foram removidas e preenchidas automaticamente com os valores mesclados originais.
Desfaça a mesclagem de células e preencha com dados duplicados com um clique
Com o Desunir célula utilidade de Kutools for Excel, você pode desfazer a mesclagem de células e preencher com dados duplicados com um clique, este método é muito simples e prático.
Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Depois de instalar Kutools for Excel, você pode fazer o seguinte:
1. Selecione as colunas que deseja desfazer e preencha os dados.
2. Clique Kutools > Unir e dividir > Desfazer Células e Valor de Preenchimento, veja a captura de tela:
3. E as células mescladas foram removidas e preenchidas com os valores duplicados de uma vez. Veja as capturas de tela:
Desfaça a mesclagem de células e preencha com dados duplicados com o Kutools para Excel
Artigo relacionado:
Mesclar linhas adjacentes com os mesmos dados 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!