Como mesclar rapidamente linhas adjacentes que contenham os mesmos dados no Excel?
Suponha que tenha uma folha de cálculo com os mesmos dados em linhas adjacentes e queira agora mesclar as células idênticas numa única célula, para que os dados fiquem organizados e visualmente agradáveis. Como mesclar rapidamente e de forma conveniente linhas adjacentes com os mesmos dados? Hoje, apresento-lhe algumas formas rápidas de resolver este problema.
Mesclar linhas adjacentes com os mesmos dados utilizando código VBA
Mesclar linhas adjacentes com os mesmos dados com Kutools para Excel
Desmesclar células e preencher com Valores Duplicados no Excel
Mesclar linhas adjacentes com os mesmos dados utilizando código VBA
É claro que pode mesclar os mesmos dados com o comando Mesclar e Centrar, mas se forem centenas de células a mesclar, este método torna-se demasiado demorado. Por isso, o código VBA seguinte permite-lhe mesclar facilmente os dados idênticos.
1. Mantenha premidas as teclas ALT + F11 e abrir-se-á a janela do Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole a seguinte macro na janela do Módulo.
Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
For i = 1 To xRows - 1
For j = i + 1 To xRows
If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
Exit For
End If
Next
WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
i = j - 1
Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
3. Em seguida, prima a tecla F5 para executar este código; surge uma caixa de diálogo no ecrã para selecionar um intervalo com o qual trabalhar. Veja a imagem:
4. Depois, clique em OK; os mesmos dados na coluna A serão mesclados numa só célula. Veja a imagem:
Mesclar linhas adjacentes com os mesmos dados com Kutools para Excel
Com a funcionalidade Mesclar Células Iguais do Kutools para Excel, pode mesclar rapidamente valores idênticos em múltiplas colunas com apenas um clique.
Após instalar o Kutools para Excel, proceda da seguinte forma:
1. Selecione as colunas em que pretende mesclar as linhas adjacentes com os mesmos dados.
2. Clique em Kutools > Mesclar e Dividir > Mesclar Células Iguais; veja a imagem:
3. Os mesmos dados das colunas selecionadas foram, então, mesclados numa única célula. Veja a imagem:
Clique para descarregar o Kutools para Excel e experimentá-lo gratuitamente agora!
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