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!