Note: The other languages of the website are Google-translated. Back to English

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

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 Desenvolvedor > 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 uma avaliação gratuita (30-dia) 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


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-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

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!
parte inferior da aba do escritório

Comentários (7)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Muito útil obrigado demorei um pouco para encontrá-lo, mas era exatamente o que eu precisava. Observe no código VBA se você deseja separar os dados com ponto e vírgula, vírgula ou algum outro caractere no campo "delim=" " " coloque seu caractere entre as aspas exemplo: delim = ";". Obrigado novamente.
Este comentário foi feito pelo moderador no site
Thamks muito para o código. Foi muito útil.
Este comentário foi feito pelo moderador no site
Muito obrigado - foi uma grande ajuda!
Este comentário foi feito pelo moderador no site
como mesclar 2 células ex:-[a1:41.00] [B1:kWh] [C1:041.00 kWh]
Este comentário foi feito pelo moderador no site
Impressionante! Ajuda muito! Muito obrigado!
Este comentário foi feito pelo moderador no site
como repetir o processo se eu tiver 4 referências diferentes e precisar combiná-las uma após a outra
Este comentário foi feito pelo moderador no site
minha consulta anterior é sobre isso 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 Com WorkRng .Merge .Value = VBA.Left(xOut, VBA.Len(xOut) - 1) Terminar com Application.DisplayAlerts = True End Sub Entre, qual é o tipo aqui, "8 " & "2" refere-se a
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL