Como mesclar rapidamente linhas adjacentes com os mesmos dados no Excel?
Suponha que você tenha uma planilha com os mesmos dados em linhas adjacentes, e agora deseja mesclar as células iguais em uma única célula para que os dados fiquem organizados e bonitos. Como você pode mesclar linhas adjacentes com os mesmos dados de forma rápida e conveniente? Hoje, vou apresentar algumas maneiras rápidas de resolver esse problema.
Mesclar linhas adjacentes de mesmo dado com código VBA
Mesclar linhas adjacentes de mesmo dado com Kutools para Excel
Desmesclar células e preencher com valores duplicados no Excel
Mesclar linhas adjacentes de mesmo dado com código VBA
Claro, você pode mesclar os mesmos dados com o comando Mesclar e Centralizar, mas se houver centenas de células que precisam ser mescladas, esse método será demorado. Então, o seguinte código VBA pode ajudá-lo a mesclar os mesmos dados facilmente.
1. Mantenha pressionado as teclas ALT + F11, e abrirá a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo, e cole a seguinte macro na janela 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, pressione a tecla F5 para executar este código; uma caixa de diálogo será exibida na tela para selecionar um intervalo com o qual trabalhar. Veja a captura de tela:
4. Depois clique em OK, os mesmos dados na coluna A serão mesclados juntos. Veja a captura de tela:
Mesclar linhas adjacentes de mesmo dado com Kutools para Excel
Com a ferramenta Mesclar células iguais do Kutools para Excel, você pode mesclar rapidamente os mesmos valores em várias colunas com um único clique.
Após instalar o Kutools para Excel, você pode fazer o seguinte:
1. Selecione as colunas que deseja mesclar as linhas adjacentes com os mesmos dados.
2. Clique em Kutools > Mesclar e Dividir > Mesclar Células Iguais, veja a captura de tela:
3. E então, os mesmos dados nas colunas selecionadas serão mesclados em uma célula. Veja a captura de tela:
Clique para baixar Kutools para Excel e experimente grátis agora!
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins