Ir para o conteúdo principal

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 Inscreva-se 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!

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 (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I am using the VBA code, but instead of putting the data into separate rows, it is putting it all in a single cell. Does anyone have an idea why it is doing this?
This comment was minimized by the moderator on the site
Hi! After changing the values (ex, watermelon instead of apple) why is the formula not working?
This comment was minimized by the moderator on the site
Hello, Cristina

Our article provides VBA code, doesn't provide a formula. If you change the cell content, you must re-run the code again to get the correct result.
Thank you!
This comment was minimized by the moderator on the site
great job bro, Very useful
This comment was minimized by the moderator on the site
Hello,
You are welcome. Glad it helps. Any questions, please feel free to contact us. Have a great day.
Sincerely,
Mandy
This comment was minimized by the moderator on the site
It shows there's a syntax error on line 3 "Dim xRg As Range" when I'm trying to run this module based on method 1, what should I do about it?
This comment was minimized by the moderator on the site
Hello, JJ, The code works well in my worksheet, which Excel version do you use?Or you can insert a screesnhot of your problem here.
This comment was minimized by the moderator on the site
How would you do it if you want to base it off another column? I have similar data, but column B is a number then notes(like your fruit) in column I, I want to combine all notes in column I until there is another cell in Column B that has only number. Sometimes there are letter under B or the cells are blank which is why it needs to combine until a number. Then finally can it output back to where it started the combine? IE all notes for first number are in column j, but if the next number is 5 rows below that is fine, it just goes in column j but same row number as the number is found?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations