Ir para o conteúdo principal

Como combinar o conteúdo de várias células sem perder dados no Excel?

Autor: Kelly Última modificação: 2020-05-26

Podemos combinar células e seus conteúdos no Microsoft Excel com freqüência. No entanto, você descobriu a maneira mais fácil de combinar o conteúdo da célula? Aqui, falaremos sobre como combinar o conteúdo das células no Excel de forma fácil e rápida.

Combine várias células em uma célula com código VBA
Combine várias células em uma célula com o Kutools para Excel sem perder dados


Combine várias células em uma célula com código VBA

O seguinte código VBA pode ajudá-lo a combinar várias células em uma célula, e você pode aplicar o código com as seguintes etapas:

1. Clique Developer > Visual Basic, Uma nova Microsoft Visual Basic para aplicativos janela será exibida, clique inserção > Móduloe insira o seguinte código no módulo:

Sub MergeOneCell()
'Updateby20140128
Dim Rng As Range
Dim WorkRng As Range
Dim Sigh As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Sigh = Application.InputBox("Symbol merge", xTitleId, "", Type:=2)
xOut = ""
Application.DisplayAlerts = False
For Each Rng In WorkRng
    xOut = xOut & Rng.Value & Sigh
Next
With WorkRng
    .Merge
    .Value = VBA.Left(xOut, VBA.Len(xOut) - 1)
End With
Application.DisplayAlerts = True
End Sub

2. Então clique doc-multiplicação-cálculo-3 botão para executar o código. Uma caixa de diálogo é exibida para você selecionar um intervalo para trabalhar com o VBA. Veja as capturas de tela:

3. Clique Ok, outra caixa de diálogo é exibida para você especificar o separador. Veja a imagem:

doc combinar o conteúdo da célula 2

4. Clique Ok, então o conteúdo da célula no intervalo selecionado é combinado em uma célula. Veja a imagem:

doc combinar o conteúdo da célula 3


Combine várias células em uma célula com o Kutools para Excel sem perder dados

Se você tem Kutools for Excel instalado, você pode combinar o conteúdo da célula de várias colunas ou linhas convenientemente sem usar fórmulas.

1. Selecione as células nas quais deseja mesclar os dados. E aplique este utilitário clicando em Kutools > Unir e dividir > Combine linhas, colunas ou células sem perder dados.

2. No Combine Colunas ou Linhas caixa de diálogo, especifique as opções que você precisa. Veja a imagem:

  • (1.) Selecione Combine em uma única célula para Para combinar células selecionadas de acordo com as seguintes opções;
  • (2.) Especifique um separador para os dados combinados. Você pode separar cada conteúdo com espaço, nada, ponto-e-vírgula ou texto específico. E você também pode exibir o conteúdo combinado em uma nova linha.

doc combinar o conteúdo da célula 5

3. Então clique OK or Aplicar, todos os dados em várias células foram mesclados em uma célula. Veja a imagem:

Nota: Este utilitário também pode ajudar a combinar células de colunas selecionadas. Você pode combinar o nome e o sobrenome em uma única célula de nome completo, conforme a imagem mostrada abaixo.

Em seguida, você pode ver os nomes e sobrenomes combinados e localizados nas células de nomes completos.

  Se você quiser ter um teste gratuito (30 dias) deste utilitário, por favor clique para fazer o downloade, em seguida, aplique a operação de acordo com as etapas acima.


Artigos Relacionados


Demonstração: Combine / mescle várias células em uma sem perder dados

Melhores ferramentas de produtividade de escritório

🤖 Assistente de IA do Kutools: Revolucionar a análise de dados com base em: Execução Inteligente   |  Gerar Código  |  Crie fórmulas personalizadas  |  Analise dados e gere gráficos  |  Invocar funções do Kutools...
Recursos mais comuns: Encontre, destaque ou identifique duplicatas   |  Excluir linhas em branco   |  Combine colunas ou células sem perder dados   |   Rodada sem Fórmula ...
Super pesquisa: VLookup de múltiplos critérios    VLookup de múltiplos valores  |   VLookup em várias planilhas   |   Pesquisa Difusa ....
Lista suspensa avançada: Crie rapidamente uma lista suspensa   |  Lista suspensa de dependentes   |  Lista suspensa de seleção múltipla ....
Gerenciador de colunas: Adicione um número específico de colunas  |  Mover colunas  |  Alternar status de visibilidade de colunas ocultas  |  Compare intervalos e colunas ...
Recursos em destaque: Foco da Grade   |  Vista de Design   |   Grande Barra de Fórmula    Gerenciador de pastas de trabalho e planilhas   |  Biblioteca (Auto texto)   |  Data Picker   |  Combinar planilhas   |  Criptografar/Descriptografar Células    Enviar e-mails por lista   |  Super Filtro   |   Filtro Especial (filtro negrito/itálico/tachado...) ...
15 principais conjuntos de ferramentas12 Texto Ferramentas (Adicionar texto, Remover Personagens, ...)   |   50+ de cores Tipos (Gráfico de Gantt, ...)   |   Mais de 40 práticos Fórmulas (Calcule a idade com base no aniversário, ...)   |   19 Inclusão Ferramentas (Insira o código QR, Inserir imagem do caminho, ...)   |   12 Conversão Ferramentas (Números para Palavras, Conversão de moedas, ...)   |   7 Unir e dividir Ferramentas (Combinar linhas avançadas, Dividir células, ...)   |   ... e mais

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...

Descrição


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!

Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
my earlier query is about this vba:Sub MergeOneCell() 'Updateby20140128 Dim Rng As Range Dim WorkRng As Range Dim Sigh As String On Error Resume Next xTitleId = "KutoolsforExcel" Set WorkRng = Application.Selection Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8) Sigh = Application.InputBox("Symbol merge", xTitleId, ",", Type:=2) xOut = "" Application.DisplayAlerts = False For Each Rng In WorkRng xOut = xOut & Rng.Value & Sigh Next With WorkRng .Merge .Value = VBA.Left(xOut, VBA.Len(xOut) - 1) End With Application.DisplayAlerts = True End Sub Between, what does the type here, "8" & "2" refers to
This comment was minimized by the moderator on the site
how repeat the process if i have 4 different reference and need to combine them one after the other
This comment was minimized by the moderator on the site
Awesome! Greatly helps! Thank you so much!
This comment was minimized by the moderator on the site
how to merge 2 cell ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
This comment was minimized by the moderator on the site
Thanks very much - was a big help!
There are no comments posted here yet
Load More
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations