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 Kutools para Excel e avaliação gratuita 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:
As melhores ferramentas de produtividade para escritório
O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
- armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
- Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
- Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
- Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
- Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
- Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
- Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
- Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
- Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
Guia do Office 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!
