Como mesclar rapidamente linhas adjacentes com os mesmos dados no Excel?
Suponha que você tenha uma planilha com os mesmos dados nas linhas adjacentes e agora queira mesclar as mesmas células em uma célula, para que os dados pareçam organizados e bonitos. Como você mescla linhas adjacentes com os mesmos dados de forma rápida e conveniente? Hoje, vou apresentar a vocês uma maneira rápida de resolver esse problema.
Mesclar linhas adjacentes dos mesmos dados com o código VBA
Claro, você pode mesclar os mesmos dados com Unir e centrar comando, mas se houver centenas de células que precisam ser mescladas, esse método será demorado. Portanto, o seguinte código VBA pode ajudá-lo a mesclar os mesmos dados facilmente.
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 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 o botão F5 para executar este código, uma caixa de diálogo é exibida na tela para selecionar um intervalo para trabalhar. Veja a imagem:
4. Então clique OK, os mesmos dados na coluna A serão mesclados. Veja a imagem:
Mesclar linhas adjacentes dos mesmos dados com o Kutools para Excel
Com o Mesclar mesmas células utilidade de Kutools for Excel, você pode mesclar rapidamente os mesmos valores em várias colunas com um clique.
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 mesclar com as linhas adjacentes com os mesmos dados.
2. Clique Kutools > Unir e dividir > Mesclar as mesmas células, veja a captura de tela:
3. E então os mesmos dados nas colunas selecionadas foram mesclados em uma célula. Veja a imagem:
Clique para baixar o Kutools para Excel e testar gratuitamente agora!
Para saber mais sobre isso, visite este Mesclar as mesmas células recurso.
Demonstração: mesclar as mesmas células em uma célula ou desfazer a mesclagem para preencher os valores duplicados:
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!