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

Como concatenar valores de células até encontrar uma célula em branco em uma coluna?

doc concatenar até o branco 1

Por exemplo, eu tenho uma lista de valores que inclui algumas células em branco e, agora, quero concatenar cada conjunto de dados entre os espaços em branco em uma célula e listar os valores combinados em outra coluna, como mostrado a seguir na captura de tela. Como concatenar células até encontrar uma célula em branco em uma coluna?

Concatene os valores das células até encontrar uma célula em branco em uma coluna com o código VBA

Concatene os valores das células até encontrar uma célula em branco em uma coluna com o Kutools para Excel


seta azul bolha direita Concatene os valores das células até encontrar uma célula em branco em uma coluna com o código VBA

Não há uma maneira direta de concatenar um conjunto de células entre espaços em branco, mas você pode aplicar o seguinte código VBA para lidar com isso. Faça o seguinte:

1. Segure o ALT + F11 chaves para abrir o Janela Microsoft Visual Basic for Applications.

2. Clique inserção > Móduloe cole o seguinte código no Janela Módulo.

Código VBA: concatene os valores das células até encontrar uma célula em branco

Sub Concatenatecells()
'updateby Extendoffice
    Dim xRg As Range
    Dim xSaveToRg As Range
    Dim xTxt As String
    Dim xCell As Range
    Dim xTStr As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please selecte the data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Columns.Count > 1 Then
        MsgBox "the selected range is more than one column", vbInformation, "Kutools for Ecel"
        Exit Sub
    End If
    Set xSaveToRg = Application.InputBox("Please selecte output cell:", "Kutools for Excel", , , , , , 8)
    If xSaveToRg Is Nothing Then Exit Sub
    Set xSaveToRg = xSaveToRg.Cells(1)
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell <> "" Then
            xTStr = xTStr & xCell & " "
        Else
            xSaveToRg.Value = xTStr
            Set xSaveToRg = xSaveToRg.Offset(1)
            xTStr = ""
        End If
    Next
    If xTStr <> "" Then xSaveToRg.Value = Left(xTStr, Len(xTStr) - 1)
    Application.ScreenUpdating = True
End Sub

3. Então aperte F5 para executar esse código e uma caixa de prompt é exibida para lembrá-lo de selecionar o intervalo de dados que deseja concatenar, consulte a captura de tela:

doc concatenar até o branco 10

4. Então clique OK, e outra caixa de prompt for exibida, selecione uma célula para gerar o resultado concatenado, consulte a captura de tela:

doc concatenar até o branco 11

5. E, em seguida, clique em OK botão, e os dados da lista de colunas são concatenados entre os espaços em branco, consulte a captura de tela:

doc concatenar até o branco 1


seta azul bolha direita Concatene os valores das células até encontrar uma célula em branco em uma coluna com o Kutools para Excel

Se você tem Kutools for Excel, combinando seu Faixa de transformação e Combinar recursos, você também pode terminar este trabalho o mais rápido possível. o Faixa de transformação utilitário pode ajudá-lo a converter uma única coluna em um intervalo, e o Combinar recurso pode ajudá-lo a concatenar o intervalo transformado em uma coluna.

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, faça o seguinte:

1. Selecione as células que deseja concatenar e clique em Kutools > Variação > Faixa de transformação, veja a captura de tela:

2. No Faixa de transformação caixa de diálogo, verifique Coluna única para intervalo opção sob o Tipo de transformaçãoE, em seguida, selecione Célula em branco delimita registros sob a Linhas por registro, veja a captura de tela:

doc concatenar até o branco 3

3. Então clique Ok, e uma caixa de prompt aparecerá para lembrá-lo de selecionar uma célula para gerar o resultado, veja a captura de tela:

doc concatenar até o branco 4

4. Clique OK, e os dados de uma única coluna foram convertidos em várias linhas e colunas pela célula em branco, consulte a captura de tela:

doc concatenar até o branco 5

5. Os dados convertidos estão em várias colunas, então você precisa combiná-los em uma coluna, selecione o intervalo de dados e clique Kutools > Unir e dividir > Combine linhas, colunas ou células sem perder dados, veja a captura de tela:

6. No Combine Colunas ou Linhas caixa de diálogo, escolha as seguintes opções:

(1.) Selecione Combine colunas opção do Para combinar células selecionadas de acordo com as seguintes opções;

(2.) Em seguida, especifique um separador que deseja separar os valores concatenados;

(3.) Selecione como você deseja lidar com as células combinadas. Você pode manter ou excluir os dados originais e também mesclar as células combinadas. Veja a imagem:

doc concatenar até o branco 7

7. Depois de terminar as configurações, clique Ok or Aplicar botão, as células foram concatenadas em uma coluna com um separador específico, veja a captura de tela:

doc concatenar até o branco 8

Baixe e teste grátis Kutools para Excel agora!


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
Como você faria se quisesse basear-se em outra coluna? Eu tenho dados semelhantes, mas a coluna B é um número, então notas (como sua fruta) na coluna I, quero combinar todas as notas na coluna I até que haja outra célula na coluna B que tenha apenas número. Às vezes, há letras em B ou as células estão em branco, e é por isso que precisa combinar até um número. Então, finalmente, ele pode retornar para onde iniciou a colheitadeira? Ou seja, todas as notas para o primeiro número estão na coluna j, mas se o próximo número estiver 5 linhas abaixo, tudo bem, ele só vai na coluna j, mas o mesmo número da linha que o número é encontrado?
Este comentário foi feito pelo moderador no site
Ele mostra que há um erro de sintaxe na linha 3 "Dim xRg As Range" quando estou tentando executar este módulo com base no método 1, o que devo fazer sobre isso?
Este comentário foi feito pelo moderador no site
Olá, JJ, O código funciona bem na minha planilha, qual versão do Excel você usa? Ou você pode inserir uma captura de tela do seu problema aqui.
Este comentário foi feito pelo moderador no site
ótimo trabalho mano, muito útil
Este comentário foi feito pelo moderador no site
Olá,
Você é bem vindo. Que bom que ajuda. Qualquer dúvida, não hesite em contactar-nos. Tenha um ótimo dia.
Atenciosamente,
Mandy
Este comentário foi feito pelo moderador no site
Oi! Depois de alterar os valores (ex, melancia em vez de maçã), por que a fórmula não está funcionando?
Este comentário foi feito pelo moderador no site
Olá, Cristina

Nosso artigo fornece código VBA, não fornece uma fórmula. Se você alterar o conteúdo da célula, deverá executar novamente o código para obter o resultado correto.
Obrigado!
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