Tutorial do Excel: Combinar Colunas, Linhas e Células
Combinar colunas, linhas ou células é uma tarefa comum no nosso dia a dia com o Excel, como unir nome e sobrenome que estão em duas colunas em uma só para obter o nome completo, combinar linhas com o mesmo ID e somar os valores correspondentes, ou ainda juntar um intervalo de células em uma única célula, entre outros. Este tutorial lista todos os cenários sobre como combinar colunas/linhas/células no Excel e oferece diferentes soluções para cada caso.
Neste tutorial, criei alguns exemplos para explicar os métodos. Você pode alterar as referências conforme necessário ao usar os códigos VBA ou fórmulas abaixo, ou pode baixar os exemplos para testar diretamente os métodos.
Clique para baixar o arquivo de exemplo
1 Combinar colunas/linhas em uma única célula
Combinar colunas ou linhas em uma única célula e separar o resultado por vírgula, espaço ou outros delimitadores, como mostrado na imagem abaixo, é uma das operações mais comuns no Excel.
| Combinar colunas em uma única célula |
 |
| Combinar linhas em uma única célula |
 |
1.11 Usando o símbolo de e comercial (&)
No Excel, o símbolo de e comercial (&) geralmente é utilizado para unir textos.
Exemplo: Combinar nome (coluna A) e sobrenome (coluna B) para nome completo
Selecione uma célula onde deseja exibir o resultado combinado e digite uma fórmula como esta:
=A2&" "&B2
Na fórmula, & é usado para unir os textos, A2 e B2 são os dois textos que precisam ser combinados, " " é o delimitador (espaço) que separa os textos na célula de resultado. Se quiser usar vírgula como delimitador, basta digitar uma vírgula entre aspas duplas ",".
Pressione Enter para obter o resultado combinado e, em seguida, arraste a alça de preenchimento automático para baixo para obter os demais resultados combinados.
Exemplo: Combinar número (linha15) e nome (linha16) em uma única célula
Se quiser combinar linhas em uma única célula, altere as referências de célula e o separador na fórmula conforme necessário e arraste a alça de preenchimento automático para a direita para obter os resultados combinados.
1.12 Usando a função CONCATENATE (Excel2016 ou versões anteriores)
Se você estiver usando o Excel2016 ou versões anteriores, a função CONCATENATE pode ajudar.
| Sintaxe da função CONCATENATE |
| CONCATENATE (texto1,[texto2],…) |
Para mais detalhes sobre a função CONCATENATE, acesse: CONCATENATE.
Exemplo: Combinar nomes (coluna F) e endereços (coluna G) em uma única coluna
Selecione uma célula onde deseja exibir o resultado combinado e digite uma fórmula como esta:
=CONCATENATE(F2,",",G2)
Na fórmula, F2 e G2 são os dois textos que precisam ser combinados, "," é o delimitador (vírgula) que separa os textos na célula de resultado. Se quiser usar espaço como delimitador, basta digitar um espaço entre aspas duplas " ".
Pressione Enter para obter o resultado combinado e, em seguida, arraste a alça de preenchimento automático para baixo para obter os demais resultados combinados.
Para combinar linhas, basta alterar as referências de célula e o delimitador conforme necessário e arrastar a alça de preenchimento automático para a direita.
1.13 Usando a função CONCAT ou TEXTJOIN (Excel2019 ou Excel365)
Se você utiliza o Excel2019 ou Excel365, as funções CONCAT e TEXTJOIN podem ser as melhores opções.
| Sintaxe da função CONCAT |
| CONCAT (texto1,[texto2],…) |
Para mais detalhes sobre a função CONCAT, acesse: CONCAT.
O uso da função CONCAT é igual ao da função CONCATENATE. Para combinar nome e sobrenome em duas colunas separadas em uma única coluna, utilize a fórmula assim:
=CONCAT(A21," ",B21)
Na fórmula, A21 e B21 são os textos a serem combinados, " " é o delimitador (espaço) que separa os textos na célula de resultado. Se quiser usar outro delimitador, basta digitá-lo entre aspas duplas "".
Pressione Enter para obter o resultado combinado e, em seguida, arraste a alça de preenchimento automático para baixo para obter os demais resultados combinados.
Diferente de combinar colunas, ao combinar linhas, após inserir a primeira fórmula, é necessário arrastar a alça de preenchimento automático para a direita até obter todos os resultados combinados.
| Sintaxe da função TEXTJOINT |
| TEXTJOIN (delimitador, ignorar_vazio, texto1, [texto2], ...) |
Para mais detalhes sobre a função TEXTJOIN, acesse: TEXTJOIN.
Para combinar colunas ou linhas usando o TEXTJOIN:
=TEXTJOIN(",",TRUE,E21:G21))
Na fórmula, E21:G21 é um intervalo contínuo que precisa ser combinado. " " é o delimitador (espaço) que separa os textos na célula de resultado. Se quiser usar outro delimitador, basta digitá-lo entre aspas duplas "". O valor lógico “TRUE” indica que as células vazias serão ignoradas ao combinar; se quiser combinar incluindo vazios, substitua TRUE por FALSE.
Pressione Enter para obter o resultado combinado e, em seguida, arraste a alça de preenchimento automático para baixo para obter os demais resultados combinados.
| Ignorar espaços em branco |
 |
| Incluir espaços em branco |
 |
1.14 Usando o Bloco de Notas (apenas para combinar colunas)
1. Usar o Bloco de Notas também pode ajudar a combinar colunas (não funciona para linhas).
Selecione o intervalo que deseja combinar as colunas em uma só e pressione Ctrl + C para copiar o intervalo.
2. Abra um Bloco de Notas, e pressione Ctrl + V para colar o intervalo copiado.
3. Selecione uma tabulação entre dois textos no Bloco de Notas e pressione Ctrl + H para ativar o Substituir recurso, um símbolo de tabulação já estará em Localizar o que caixa de texto.
4. Na Substituir por caixa de texto, digite o delimitador que deseja usar para separar os textos combinados e clique em Substituir Tudo. Em seguida, feche o Substituir diálogo.
5. Agora selecione os textos no Bloco de Notas e pressione Ctrl + C para copiá-los e vá para o Excel, selecione uma célula e pressione Ctrl + V para colar os resultados combinados.
Extensão: Combinar colunas/linhas em uma única célula com quebra de linha como delimitador
Se você deseja combinar colunas ou linhas em uma única célula com uma quebra de linha, como mostrado na imagem abaixo:
Primeiramente, é importante saber que no Excel, a função CHAR() pode ser usada para inserir caracteres difíceis de digitar em uma fórmula, como CHAR(10), que retorna uma quebra de linha.
Depois, utilize o CHAR(10) nas fórmulas listadas acima para combinar colunas ou linhas com quebra de linha como delimitador:
Símbolo de e comercial:
=A49&CHAR(10)&B49
Função CONCATENATE:
=CONCATENATE(A49,CHAR(10),B49)
Função CONCAT
=CONCAT(A49,CHAR(10),B49)
Função TEXTJOIN
=TEXTJOIN(CHAR(10),TRUE,A49:B49)
Após inserir uma das fórmulas acima, selecione os resultados e clique em Página Inicial > Quebrar Texto Automaticamente.
Agora, as colunas estão combinadas em uma única célula e separadas por uma quebra de linha.
Se você deseja apenas combinar linhas de uma coluna em uma única célula, o recurso Justificar do Excel pode ajudar. Selecione a coluna com várias linhas e clique em Página Inicial > Preencher > Justificar; as linhas serão combinadas na célula superior do intervalo, separadas por espaço.
 |  |
Nesta parte, o tutorial apresenta métodos para combinar colunas ou linhas em uma única célula ignorando células vazias, como mostrado na imagem abaixo:
1.21 Usando a função TEXTJOIN (Excel2019 ou Excel365)
Se você estiver usando o Excel2019 ou Excel365, felizmente, a nova função TEXTJOIN pode resolver essa tarefa facilmente.
| Sintaxe da função CONCATENATE |
| TEXTJOIN (delimitador, ignorar_vazio, texto1, [texto2], ...) |
Para mais detalhes sobre a função TEXTJOIN, acesse: TEXTJOIN.
Exemplo: Combinar nome (coluna A), número (coluna B) e domínio (coluna C) em uma única célula para gerar um endereço de e-mail, sendo que alguns números podem estar em branco.
Selecione uma célula para exibir o resultado combinado e digite a fórmula assim:
=TEXTJOIN("",TRUE,A2:C2)
Na fórmula, A2:C2 é o intervalo que contém os textos a serem combinados, "" é o delimitador (nenhum) que separa os textos na célula de resultado. Se quiser usar um delimitador, basta digitá-lo entre aspas duplas, como ",". O valor lógico “TRUE” indica ignorar células vazias ao combinar; se quiser incluir vazios, substitua TRUE por FALSE.
Pressione Enter para obter o primeiro resultado e arraste a alça de preenchimento automático para baixo ou para a direita, conforme necessário, para gerar todos os resultados.
1.22 Usando o símbolo de e comercial (&)
Se você estiver no Excel2016 ou versões anteriores, use o símbolo de e comercial (&) para conectar os textos um a um e pule manualmente os espaços em branco.
Selecione uma célula onde deseja exibir o resultado combinado e digite uma fórmula como esta:
=A10&C10
Na fórmula, & é usado para unir os textos, A10 e C10 são os dois textos que precisam ser combinados. Se quiser usar vírgula como delimitador, basta digitar uma vírgula entre aspas duplas, como ",", e usar & para conectar entre os textos.
Pressione Enter para obter o resultado combinado. Depois, altere as referências da fórmula para obter o próximo resultado combinado.
Para usuários do Excel2016 e versões anteriores, se houver várias colunas ou linhas a serem combinadas ignorando espaços em branco, você pode usar um VBA para criar uma função definida e resolver rapidamente essa tarefa.
1. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo para inserir um novo módulo.
3. Copie e cole o código abaixo no novo módulo e salve.
VBA: Combinar células ignorando células vazias
Function Concatenatecells(ConcatArea As Range) As String
'updateby Extendoffice
For Each n In ConcatArea: nn = IIf(n = "", nn & "", nn & n & "_"): Next
Concatenatecells = Left(nn, Len(nn) - 1)
End Function
4. Volte para a planilha, selecione uma célula para exibir o resultado combinado e digite a fórmula
=Concatenatecells(A15:C15)
Na fórmula, A15:C15 é o intervalo que contém os textos a serem combinados. No código VBA, "_" indica o delimitador usado para separar os textos no resultado combinado; você pode alterar o delimitador conforme necessário.
Se você instalou o Kutools para Excel, o recurso Combinar Linhas/Colunas/Células e Manter Valores é muito útil para diversos tipos de combinações.
1. Selecione as células que deseja combinar e as células onde deseja exibir os resultados combinados.
2. Clique em Kutools > Mesclar & Dividir > Combinar Linhas/Colunas/Células e Manter Valores.
3. Na janela que abrir, especifique as opções conforme abaixo:
1) Defina se deseja combinar colunas, combinar linhas ou combinar todas as células em uma só.
| Combinar colunas Exemplo. | Combinar linhas Exemplo. | Combinar em uma única célula Exemplo. |
 |  |  |
2) Especifique o separador para os textos no resultado combinado.
3) Especifique o local do resultado combinado (desabilitado ao escolher a opção Combinar em uma única célula)
Ao escolher a opção Combinar colunas, você pode definir para colocar o resultado na célula à esquerda do intervalo selecionado ou na célula à direita.
| Célula à esquerda Exemplo. | Célula à direita Exemplo. |
 |  |
Ao escolher a opção Combinar linhas, você pode definir para colocar o resultado na célula superior do intervalo selecionado ou na célula inferior.
| Célula superior Exemplo. | Célula inferior Exemplo. |
 |  |
4) Especifique a ação sobre os resultados combinados.
4. Clique em Ok ou Aplicar para concluir a combinação.
| Manter o conteúdo dessas células |
 |
| Excluir o conteúdo dessas células |
 |
| Mesclar essas células |
 |
Para mais detalhes sobre este recurso, acesse Combinar Colunas, Linhas, Células e Manter Valores.
Para mais detalhes sobre o Kutools para Excel, acesse Kutools para Excel.
Para um teste gratuito de 30 dias do Kutools para Excel, faça o download agora.
Às vezes, você pode querer combinar duas colunas se uma delas contiver células em branco. Suponha que existam duas colunas: a coluna A contém nomes de usuário e algumas células em branco, e a coluna B contém nomes. Agora, basta preencher as células em branco da coluna A com os conteúdos correspondentes da coluna B ao combinar as duas colunas, conforme mostrado na imagem abaixo:
A função IF é usada para testar uma condição específica. Aqui, você pode usar a função IF para verificar se a célula está em branco e, em caso afirmativo, preencher o espaço em branco com o conteúdo de outra coluna.
| Sintaxe da função IF |
| IF (teste_lógico, [valor_se_verdadeiro], [valor_se_falso]) |
Para mais detalhes sobre a função IF, acesse: IF
Selecione a célula superior da coluna onde deseja exibir os resultados combinados e copie ou digite a fórmula abaixo:
=IF(A2="",B2,A2)
Depois pressione Enter para obter o primeiro resultado e arraste a alça de preenchimento automático para baixo para obter todos os resultados.
Agora, apenas as células em branco da coluna A foram preenchidas com os conteúdos da coluna B.
Aqui está um código VBA que também pode realizar essa tarefa.
1. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications, depois clique em Inserir > Módulo para criar um novo módulo em branco.
2. Copie e cole o código abaixo no novo módulo.
VBA: Mesclar duas colunas se houver célula em branco
Sub MergebyBlank() 'UpdatebyExtendoffice20220506 Dim xRg1, xRg2, xRgUser As Range Dim xRg As Range Dim xWsh As Worksheet Dim xCount, xFNum As Integer Set xRg1 = Range("A:A") Set xRg2 = Range("B:B") Set xWsh = xRg1.Worksheet Set xRgUser = xWsh.UsedRange Set xRg1 = Intersect(xRgUser, xRg1) Set xWsh = xRg2.Worksheet Set xRgUser = xWsh.UsedRange Set xRg2 = Intersect(xRgUser, xRg2) xCount = xRg1.Count If (xCount > xRg2.Count) Then xCount = xRg2.Count End If For xFNum = 1 To xCount If (xRg1.Item(xFNum).Value = "") Then If (xRg2.Item(xFNum).Value <> "") Then xRg1.Item(xFNum).Value = xRg2.Item(xFNum).Value End If ElseIf (xRg2.Item(xFNum).Value = "") Then If (xRg1.Item(xFNum).Value <> "") Then xRg2.Item(xFNum).Value = xRg1.Item(xFNum).Value End If End If Next End Sub 
No código, A:A e B:B são as duas colunas que serão mescladas; basta alterá-las conforme necessário.
3. Depois pressione F5 ou clique em Executar 
botão, então a coluna A será preenchida com o valor da coluna B se o valor estiver vazio na coluna A.
2 Combinar linhas com o mesmo ID
Suponha que exista uma tabela com várias colunas, sendo que uma delas contém valores de ID com itens duplicados. Agora, o tutorial apresenta métodos para combinar as linhas da tabela com base no mesmo ID e realizar alguns cálculos.
Aqui, nesta parte, são apresentados métodos para combinar linhas com o mesmo ID e separá-las por vírgulas, como mostrado na imagem abaixo:
Aqui está um código VBA que pode realizar essa tarefa
1. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications, depois clique em Inserir > Módulo para criar um novo módulo em branco.
2. Copie e cole o código abaixo no novo módulo.
VBA: Combinar linhas com o mesmo ID
Sub Combine_Rows() 'UpdatebyExtendoffice20220506 Dim xRg As Range Dim xRows As Long Dim I As Long, J As Long, K As Long On Error Resume Next Set xRg = Application.InputBox("Select Range:", "Kutools For Excel", Selection.Address, , , , , 8) Set xRg = Range(Intersect(xRg, ActiveSheet.UsedRange).Address) If xRg Is Nothing Then Exit Sub xRows = xRg.Rows.Count For I = xRows To 2 Step -1 For J = 1 To I - 1 If xRg(I, 1).Value = xRg(J, 1).Value And J <> I Then For K = 2 To xRg.Columns.Count If xRg(J, K).Value <> "" Then If xRg(I, K).Value = "" Then xRg(I, K) = xRg(J, K).Text Else xRg(I, K) = xRg(I, K).Text & "," & xRg(J, K).Text 'here uses comma as separator, you can change it to others as you need End If End If Next xRg(J, 1).EntireRow.Delete I = I - 1 J = J - 1 End If Next Next ActiveSheet.UsedRange.Columns.AutoFit End Sub
3. Depois pressione F5 ou clique em Executar botão, então uma caixa de diálogo do Kutools para Excel será exibida para você selecionar a tabela cujas linhas precisam ser combinadas pelo mesmo ID.
4. Clique em OK. Agora a tabela selecionada teve as linhas combinadas com base no mesmo ID.
2.12 Usando a função IF para adicionar colunas auxiliares
Se houver apenas duas colunas e você quiser combinar as linhas com o mesmo ID, separando os valores da outra coluna por vírgula, como mostrado na imagem abaixo, a função IF pode ajudar.
1. Classifique o ID de A a Z. Selecione a coluna de ID e clique em Dados > Classificar de A a Z.
2. Em seguida, na Aviso de Classificação caixa de diálogo, marque Expandir a opção de seleção e clique em Classificar.
Agora os mesmos IDs foram agrupados.
3. Na coluna adjacente, use a função IF assim:
=IF(A17=A18,C17&", "&B18,B18)
Na fórmula, A17 e A18 são as duas células adjacentes na coluna de ID (A17 é o cabeçalho da coluna), B18 é a célula correspondente a A18. ", " indica separar os valores por vírgula. Você pode alterar as referências e o separador conforme necessário.
4. Pressione Enter para obter o primeiro resultado e arraste a alça de preenchimento automático para baixo para obter todos os resultados.
5. Vá para a coluna adjacente e digite a fórmula assim:
=IF(A18<>A19,"Mesclado","")
Na fórmula, A18 e A19 são as duas células adjacentes na coluna de ID; se as células adjacentes não forem iguais, retornará "Mesclado", caso contrário, retorna vazio.
6. Pressione Enter para obter o primeiro resultado e arraste a alça de preenchimento automático para baixo para obter todos os resultados.
7. Selecione a última coluna de fórmulas, incluindo o cabeçalho, e clique em Dados > Filtro.
8. Clique no Filtro botão e marque Mesclado caixa de seleção no menu suspenso e clique em OK.
Agora apenas as linhas mescladas foram filtradas; copie os dados filtrados e cole em outro local.
Para mais detalhes sobre a função IF, acesse: IF.
Se você instalou o Kutools para Excel, o recurso Mesclar Linhas Avançado pode realizar essa tarefa facilmente.
1. Selecione a tabela e clique em Kutools > Mesclar & Dividir > Mesclar Linhas Avançado.
2. Na janela Mesclar Linhas Avançado, faça o seguinte:
1) Escolha a coluna de ID e defina como Chave Principal;
2) Escolha a coluna cujos valores deseja combinar com separador, clique em Combinar e escolha um separador.
3）clique em Ok.
Agora as linhas foram combinadas pelo mesmo ID.
O recurso Mesclar Linhas Avançado irá alterar os dados originais, por isso salve uma cópia antes de utilizá-lo.
Para mais detalhes sobre este recurso, acesse Mesclar Linhas Avançado.
Para mais detalhes sobre o Kutools para Excel, acesse Kutools para Excel.
Para um teste gratuito de 30 dias do Kutools para Excel, faça o download agora.
Se você deseja combinar linhas com o mesmo ID e depois somar os valores ou realizar outros cálculos, como mostrado na imagem abaixo, os métodos a seguir podem ajudar.
2.21 Usando o recurso Consolidar
Se houver apenas duas colunas, sendo uma com textos (ID) e outra com valores a serem calculados (como soma), o recurso interno do Excel Consolidar pode ajudar.
1. Selecione uma célula onde deseja exibir o resultado combinado e clique em Dados > Consolidar.
2. Na janela Consolidar, faça o seguinte:
1) Escolha as Funções conforme necessário;
2) Clique na seta para selecionar a tabela;
3) Clique em Adicionar para adicionar o intervalo selecionado à lista de Todas as referências;
4) Marque as caixas de seleção Linha Superior e Coluna Mais à Esquerda;
5) Clique em OK.
Agora a tabela foi somada com base no mesmo ID.
Aqui está um VBA que também pode combinar linhas com o mesmo ID e somar os valores.
1. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications depois clique em Inserir > Módulo para criar um novo módulo em branco.
2. No novo módulo, copie e cole o código VBA abaixo.
VBA: Combinar linhas duplicadas e somar
Sub CombineRows()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 2)
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub3. Depois pressione F5 ou clique em Executar botão, então uma caixa de diálogo será exibida para selecionar a tabela que deseja usar e, em seguida, clique em OK.
Agora o intervalo selecionado foi combinado com os mesmos valores e somado.
O VBA irá alterar os dados originais, por isso salve uma cópia antes de usar o VBA.
2.23 Usando uma ferramenta prática – Mesclar Linhas Avançado
Se houver mais de duas colunas na tabela que você deseja combinar e realizar cálculos, por exemplo, três colunas: a primeira contém nomes de produtos duplicados a serem combinados, a segunda contém nomes de lojas a serem combinados e separados por vírgula, e a última contém números a serem somados com base nas linhas duplicadas da primeira coluna, como mostrado na imagem abaixo, o recurso Mesclar Linhas Avançado do Kutools para Excel pode ajudar.
1. Selecione a tabela e clique em Kutools > Mesclar & Dividir > Mesclar Linhas Avançado.
2. Na janela Mesclar Linhas Avançado, faça o seguinte:
1) Escolha a coluna de ID e defina como Chave Principal;
2) Escolha a coluna cujos valores deseja combinar com separador, clique em Combinar e escolha um separador.
3) Escolha a coluna na qual deseja realizar o cálculo, clique em Calcular e escolha um cálculo.
4）clique em Ok.
Agora as linhas foram combinadas e calculadas com base nos mesmos valores.
O recurso Mesclar Linhas Avançado irá alterar os dados originais, por isso salve uma cópia antes de utilizá-lo.
Para mais detalhes sobre este recurso, acesse Mesclar Linhas Avançado.
Para mais detalhes sobre o Kutools para Excel, acesse Kutools para Excel.
Para um teste gratuito de 30 dias do Kutools para Excel, faça o download agora.
Se houver uma tabela com várias colunas e uma delas contiver valores duplicados, agora o objetivo é combinar as linhas adjacentes dessa coluna com os mesmos valores, como mostrado na imagem abaixo. Como resolver isso?
No Excel, não há um recurso interno que resolva diretamente essa tarefa, mas aqui está um VBA que pode ajudar.
1. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications, depois clique em Inserir > Módulo para criar um novo módulo em branco.
2. No novo módulo, copie e cole o código VBA abaixo.
VBA: Combinar linhas adjacentes com o mesmo valor
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. Depois pressione F5 ou clique em Executar botão para ativar este VBA, então uma caixa de diálogo será exibida para selecionar a tabela que deseja usar e, em seguida, clique em OK.
Agora as linhas adjacentes com os mesmos valores na primeira coluna foram combinadas no intervalo selecionado.
O VBA irá alterar os dados originais, por isso salve uma cópia antes de usar o VBA. E este VBA irá mesclar os mesmos valores na primeira coluna da tabela selecionada.
2.32 Usando uma ferramenta prática – Mesclar Células Iguais
Se você tem o Kutools para Excel instalado, o recurso Mesclar Células Iguais do Kutools para Excel resolve essa tarefa em um só passo.
Selecione a coluna que deseja combinar os mesmos valores e clique em Kutools > Mesclar & Dividir > Mesclar Células Iguais.
Agora as células adjacentes com os mesmos valores foram mescladas.
Se quiser desfazer a mesclagem das células e preencher os valores de volta, você pode aplicar o recurso Desfazer Mesclagem & Preencher Valores recurso.
Para mais detalhes sobre este recurso, acesse Mesclar Células Iguais.
Para mais detalhes sobre este recurso, acesse Desfazer Mesclagem.
Para mais detalhes sobre o Kutools para Excel, acesse Kutools para Excel.
Para um teste gratuito de 30 dias do Kutools para Excel, faça o download agora.
3 Combinar Células
Para combinar um intervalo com várias linhas e colunas em uma única célula, aqui estão quatro métodos.
Exemplo: Combinar intervalo A1:C3 
3.11 Usando o símbolo de e comercial (&)
No Excel, o símbolo de e comercial (&) geralmente é utilizado para unir textos.
Selecione uma célula onde deseja exibir o resultado combinado e digite uma fórmula como esta:
=A1&", "&B1&", "&C1&", "&A2&", " &B2&", "&C2&", "&A3&", "&B3&", "&C3
Na fórmula, & é usado para unir os textos, ", " é o delimitador (vírgula + espaço) que separa os textos na célula de resultado. Se quiser usar outro delimitador, basta digitá-lo entre aspas duplas.
Pressione Enter para obter o resultado combinado.
3.12 Usando a função CONCATENATE (Excel2016 ou versões anteriores)
Se você estiver usando o Excel2016 ou versões anteriores, a função CONCATENATE pode ajudar.
| Sintaxe da função CONCATENATE |
| CONCATENATE (texto1,[texto2],…) |
Para mais detalhes sobre a função CONCATENATE, acesse: CONCATENATE
Selecione uma célula onde deseja exibir o resultado combinado e digite uma fórmula como esta:
=CONCATENATE(A1,", ",B1,", ",C1,", ",A2,", ",B2,", ",C2,", ",A3,", ",B3,", ",C3)
Na fórmula, A1, B1…,C3 são os textos que você deseja combinar. ", " é o delimitador (vírgula + espaço) que separa os textos na célula de resultado. Se quiser usar outro delimitador, basta digitá-lo entre aspas duplas.
Depois pressione Enter para obter o resultado combinado.
3.13 Usando a função CONCAT ou TEXTJOIN (Excel2019 ou Excel365)
Se você utiliza o Excel2019 ou Excel365, as funções CONCAT e TEXTJOIN podem ser as melhores opções.
| Sintaxe da função CONCAT |
| CONCAT (texto1,[texto2],…) |
Para mais detalhes sobre a função CONCAT, acesse: CONCAT.
O uso da função CONCAT é igual ao da função CONCATENATE. Para combinar nome e sobrenome em duas colunas separadas em uma única coluna, utilize a fórmula assim:
=CONCAT(A1,", ",B1,", ",C1,", ",A2,", ",B2,", ",C2,", ",A3,", ",B3,", ",C3)
Na fórmula, A1, B1…,C3 são os textos que você deseja combinar. ", " é o delimitador (vírgula + espaço) que separa os textos na célula de resultado. Se quiser usar outro delimitador, basta digitá-lo entre aspas duplas.
Depois pressione Enter para obter o resultado combinado.
| Sintaxe da função TEXTJOIN |
| TEXTJOIN (delimitador, ignorar_vazio, texto1, [texto2], ...) |
Para mais detalhes sobre a função TEXTJOIN, acesse: TEXTJOIN.
Para combinar colunas ou linhas usando o TEXTJOIN:
=TEXTJOIN(", ",TRUE,A1:C3)
Na fórmula, A1:C3 é um intervalo contínuo que precisa ser combinado. ", " é o delimitador (vírgula + espaço) que separa os textos na célula de resultado. Se quiser usar outro delimitador, basta digitá-lo entre aspas duplas "". O valor lógico “TRUE” indica que as células vazias serão ignoradas ao combinar; se quiser combinar incluindo vazios, substitua TRUE por FALSE.
Depois pressione Enter para obter o resultado combinado.
Se quiser usar quebra de linha como delimitador, utilize CHAR(10) na fórmula, como =TEXTJOIN(CHAR(10),TRUE,A1:C3), e depois formate a célula de resultado como Quebrar Texto Automaticamente.
3.14 Usando Combinar Linhas/Colunas/Células e Manter Valores
Se você tem o Kutools para Excel instalado, o recurso Combinar Linhas/Colunas/Células e Manter Valores pode realizar essa tarefa rapidamente.
1. Selecione o intervalo de células que deseja combinar em uma única célula e clique em Kutools > Mesclar & Dividir > Combinar Linhas/Colunas/Células e Manter Valores.
2. Na janela que abrir, marque Combinar em uma única célula e especifique um separador conforme necessário, depois clique em Ok.
Agora as células foram mescladas em uma única célula com um delimitador específico. Se o conteúdo das células for muito grande para aparecer na célula mesclada, você pode clicar em Quebrar Texto Automaticamente na guia Página Inicial para exibi-los.
Para mais detalhes sobre este recurso, acesse Combinar Colunas, Linhas, Células e Manter Valores.
Para mais detalhes sobre o Kutools para Excel, acesse Kutools para Excel.
Para um teste gratuito de 30 dias do Kutools para Excel, faça o download agora.
| Transpor células para uma única coluna |
 |
| Transpor células para uma única linha |
 |
3.21 Nomear o intervalo e usar a função INDEX (apenas para uma única coluna)
Se você deseja transpor o intervalo de células para uma única coluna, pode nomear o intervalo e depois usar a função INDEX.
1. Selecione o intervalo de células, clique com o botão direito para abrir o menu de contexto e clique em Definir Nome.
2. Na janela Novo Nome digite um nome na Nome caixa de texto e clique em OK.
3. Após nomear o intervalo, selecione uma célula para exibir os dados transpostos e use a função INDEX assim:
=INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1)
Para mais detalhes sobre a função INDEX, acesse aqui.
4. Pressione Enter e depois arraste a alça de preenchimento automático para baixo até aparecer o erro #REF!.
5. Remova o valor de erro e o intervalo de células terá sido combinado em uma única coluna.
3.22 VBA (apenas para uma única coluna)
Para combinar células em uma única coluna, aqui está um VBA que também pode ajudar.
1. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications, depois clique em Inserir > Módulo para criar um novo módulo em branco.
2. Copie e cole o código VBA abaixo no módulo em branco.
VBA: Converter intervalo em coluna
Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. Depois pressione F5 ou clique em Executar botão, uma caixa de diálogo será exibida para selecionar um intervalo de células, clique em OK.
4. Outra caixa de diálogo será exibida para selecionar uma célula onde o resultado será exibido, clique em OK.
3.23 Usando uma ferramenta prática – Transformar Intervalo
Se você deseja combinar células em uma única linha, não há recurso interno no Excel para isso. No entanto, se você tem o Kutools para Excel instalado, o recurso Transformar Intervalo permite converter um intervalo em uma única coluna ou linha, além de converter uma linha ou coluna em intervalo.
1. Selecione o intervalo de células e clique em Kutools > Intervalo > Transformar Intervalo.
2. Na janela Transformar Intervalo marque Intervalo para Coluna Única ou Intervalo para Linha Única opção conforme necessário. Clique em OK.
3. Uma caixa de diálogo será exibida para selecionar uma célula onde o resultado será exibido, clique em OK.
Agora o intervalo de células foi convertido em uma linha ou coluna.
Para mais detalhes sobre este recurso, acesse Transformar Intervalo.
Para mais detalhes sobre o Kutools para Excel, acesse Kutools para Excel.
Para um teste gratuito de 30 dias do Kutools para Excel, faça o download agora.
Se houver duplicatas em uma tabela com várias colunas, como empilhar as colunas em uma única coluna sem duplicados, como mostrado na imagem abaixo?
Nesta parte, são apresentados três métodos diferentes para resolver essa tarefa.
3.31 Copiar, colar e remover duplicatas
No Excel, o método geral para resolver essa tarefa é copiar e colar as colunas uma a uma e depois remover os valores duplicados.
1. Selecione a primeira coluna e pressione Ctrl + C para copiá-la, depois selecione uma célula de destino e pressione Ctrl + V para colar.
2. Repita o passo1 para copiar as outras colunas e colá-las abaixo da primeira coluna.
3. Depois selecione a coluna empilhada e clique em Dados > Remover Duplicatas, depois na Remover Duplicata caixa de diálogo, marque o nome da coluna e clique em OK.
4. Agora uma caixa de diálogo será exibida informando que os valores duplicados foram removidos. Clique em OK para fechar e a coluna empilhada manterá apenas os valores únicos.
Se houver centenas de colunas, copiar e colar uma a uma é demorado. No entanto, se você tem o Kutools para Excel instalado, o recurso Transformar Intervalo pode converter rapidamente o intervalo em coluna e, em seguida, aplicar o recurso Remover Duplicatas do Excel.
Selecione o intervalo de colunas e clique em Kutools > Intervalo > Transformar Intervalo.
Depois marque a opção Intervalo para Coluna Única e clique em OK para selecionar uma célula onde a coluna empilhada será exibida.
Depois aplique Remover Duplicatas para remover os valores duplicados.
Para mais detalhes sobre este recurso, acesse Transformar Intervalo.
Para mais detalhes sobre o Kutools para Excel, acesse Kutools para Excel.
Para um teste gratuito de 30 dias do Kutools para Excel, faça o download agora.
Além disso, aqui está um código VBA que pode resolver essa tarefa.
1. Pressione Alt + F11 para abrir a janela Microsoft Visual Basic for Applications, depois clique em Inserir > Módulo para criar um novo módulo em branco.
2. Copie e cole o código abaixo no novo módulo.
VBA: Empilhar colunas em uma sem duplicatas
Sub FindUniques()
'UpdatebyExtendoffice
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
For i = 1 To InputRng.Rows.Count
xValue = InputRng.Cells(i, j).Value
If xValue <> "" And Not dic.Exists(xValue) Then
OutRng.Value = xValue
dic(xValue) = ""
Set OutRng = OutRng.Offset(1, 0)
End If
Next
Next
End Sub
3. Depois pressione F5 ou clique em Executar botão, então uma caixa de diálogo será exibida para selecionar as colunas que precisam ser empilhadas, clique em OK.
4. Na segunda caixa de diálogo exibida, selecione uma célula de destino para exibir a coluna empilhada e clique em OK.
Agora as colunas foram empilhadas em uma única coluna com apenas valores únicos.
Se houver duas colunas, sendo uma delas formatada de maneira especial, como Data/Hora personalizada mm/dd/yyyy, ao combinar essas duas colunas com métodos normais, a formatação personalizada será perdida, como mostrado na imagem abaixo: 
Agora, nesta parte, serão apresentadas algumas formas de combinar células mantendo a formatação.
3.41 Inserir a função TEXT na fórmula
A função TEXT é usada para converter um número em texto em um formato específico. Aqui, podemos usá-la para converter a célula (que contém um número) para o formato desejado e, em seguida, combiná-la com outras células usando “&”, função CONCATENATE, CONCAT ou TEXTJOIN.
Para detalhes sobre como combinar células em uma só, volte ao item1.1.
| Sintaxe da função TEXT |
| TEXT (valor, formato_texto) |
Para mais detalhes sobre a função TEXT, acesse função TEXT.
Aqui, como exemplo, a função TEXT é inserida na função CONCAT.
Copie e cole a fórmula abaixo em uma célula onde deseja exibir o resultado combinado:
=CONCAT(TEXT(A2,"mm/dd/yyyy hh:mm")," ",B2)
Na fórmula, A2 é a célula que você deseja manter a formatação, “mm/dd/yyyy hh:mm” é o formato utilizado, B2 é a outra célula a ser combinada. " " indica separação por espaço. Você pode alterar as referências, o formato e o separador conforme necessário.
Pressione Enter e arraste a alça de preenchimento automático para baixo para preencher as células com esta fórmula.
1. Selecione a tabela que deseja combinar as células em uma só e pressione Ctrl + C para copiá-la.
2. Abra um novo Word documento, pressione Ctrl + V para colar, depois clique na tabela no documento; agora um ícone de cruz aparecerá no canto superior direito da tabela.
3. Clique na guia Layout e depois clique em Converter em Texto no grupo Dados na janela Converter Tabela em Texto especifique o separador para as colunas e clique em OK.
Agora o conteúdo da tabela no Word foi convertido em texto.
4. Selecione os textos convertidos e pressione Ctrl + C para copiá-los, volte ao Excel e selecione uma célula em branco, pressione Ctrl + V para colar o resultado combinado.
3.43 Usando uma ferramenta prática – Combinar e Manter Valores
A maneira mais eficiente é usar o recurso Combinar Linhas/Colunas/Células e Manter Valores do Kutools para Excel, que basta marcar a opção Usar valores formatados ao aplicar o recurso para que o resultado combinado mantenha a formatação dos dados.
1. Selecione a tabela incluindo as células onde o resultado será exibido e clique em Kutools > Mesclar & Dividir > Combinar Linhas/Colunas/Células e Manter Valores.
2. Na janela que abrir, especifique a operação de combinação conforme necessário e desmarque a opção Usar valores formatados (por padrão, esta opção está marcada). Clique em Ok.
Agora os dados foram combinados e mantiveram a formatação.
Para mais detalhes sobre este recurso, acesse Combinar Colunas, Linhas, Células e Manter Valores.
Para mais detalhes sobre o Kutools para Excel, acesse Kutools para Excel.
Para um teste gratuito de {module745} dias do Kutools para Excel, faça o download agora.
Suponha que exista uma tabela que contenha anos, meses e dias em colunas separadas. O objetivo é combinar as colunas e gerar uma data, como mostrado na imagem abaixo:
A função DATE é usada para criar uma data com ano, mês e dia.
| Sintaxe da função DATE |
| DATE(ano, mês, dia) |
Para mais detalhes sobre a função DATE, acesse função DATE.
Copie e cole a fórmula abaixo em uma célula onde a data será exibida:
=DATE(A2,B2,C2)
Na fórmula, A2, B2 e C2 são as células que contêm os valores de ano, mês e dia.
Pressione Enter para obter a primeira data e arraste a alça de preenchimento automático para baixo para obter todas as datas.
Mais Tutoriais de Excel:
Combinar Múltiplas Pastas de Trabalho/Planilhas em Uma Só
Este tutorial lista praticamente todos os cenários de combinação que você pode enfrentar e fornece soluções profissionais para cada um.
Dividir Células de Texto, Número e Data (Separar em Múltiplas Colunas)
Este tutorial é dividido em três partes: dividir células de texto, dividir células numéricas e dividir células de data. Cada parte traz exemplos diferentes para ajudar você a lidar com a tarefa de divisão quando encontrar o mesmo problema.
Combinar Conteúdo de Múltiplas Células Sem Perder Dados no Excel
Este tutorial foca na extração de uma posição específica em uma célula e reúne diferentes métodos para ajudar a extrair texto ou números de uma célula por posição específica no Excel.
Comparar Duas Colunas para Correspondências e Diferenças no Excel
Este artigo cobre a maioria dos cenários possíveis de comparação entre duas colunas que você pode encontrar e espera poder ajudar.
As Melhores Ferramentas de Produtividade para o Office
Kutools para Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
- Barra de Fórmulas Super (edite facilmente várias linhas de texto e fórmulas); Layout de Leitura (leia e edite facilmente um grande número de células); Cole em Intervalo Filtrado...
- Mesclar Células/Linhas/Colunas mantendo os dados; Dividir conteúdo de células; Combinar Linhas Duplicadas e Somar/Média... Prevenir Células Duplicadas; Comparar Intervalos...
- Selecionar Linhas Duplicadas ou Únicas; Selecionar Linhas em Branco (todas as células estão vazias); Super Localizar e Localização Difusa em Muitas Pastas de Trabalho; Seleção Aleatória...
- Cópia Exata de Múltiplas Células sem alterar a referência da fórmula; Criar automaticamente referências para várias planilhas; Inserir Marcadores, Caixas de Seleção e mais...
- Favoritar e Inserir rapidamente Fórmulas, Intervalos, Gráficos e Imagens; Criptografar Células com senha; Criar Lista de Correspondência e enviar emails...
- Extrair Texto, Adicionar Texto, Remover por Posição, Remover Espaço; Criar e Imprimir Estatísticas da Página de Dados; Converter entre o Conteúdo das Células e Comentários...
- Super Filtro (salvar e aplicar esquemas de filtro em outras planilhas); Classificação Avançada por mês/semana/dia, frequência e mais; Filtro Especial por negrito, itálico...
- Consolidar Pastas de Trabalho e Planilhas; Mesclar Tabelas com base em colunas-chave; Dividir Dados em Múltiplas Planilhas; Conversão em Lote de xls, xlsx e PDF...
- Agrupamento de Tabela Dinâmica por número da semana, dia da semana e mais... Mostrar Células Desbloqueadas, Bloqueadas por cores diferentes; Destacar Células Que Contêm Fórmula/Nome...
- Habilite a edição e leitura com guias no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques de mouse para você todos os dias!
