Skip to main content

Kutools para Office — Uma Suíte. Cinco Ferramentas. Aumente sua Produtividade.

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

Author Xiaoyang Last modified
A screenshot showing Excel data with concatenated values between blank cells

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

Concatenar valores de células até encontrar uma célula em branco em uma coluna com código VBA

Concatenar valores de células até encontrar uma célula em branco em uma coluna com Kutools para Excel


arrow blue right bubble Concatenar valores de células até encontrar uma célula em branco em uma coluna com 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. Por favor, faça o seguinte:

1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

2. Clique em Inserir > Módulo e cole o seguinte código na Janela do Módulo.

Código VBA: concatenar valores de 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 select 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 Excel"
        Exit Sub
    End If
    Set xSaveToRg = Application.InputBox("Please select 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. Em seguida, pressione a tecla F5 para executar este código, e uma caixa de aviso será exibida para lembrá-lo de selecionar o intervalo de dados que deseja concatenar, veja a captura de tela:

A screenshot of a prompt box in VBA asking the user to select the data range to concatenate

4. Depois clique em OK, e outra caixa de aviso aparecerá, por favor selecione uma célula para exibir o resultado da concatenação, veja a captura de tela:

A screenshot showing a prompt in VBA to select the output cell for concatenated results

5. E depois clique no botão OK, e os dados da lista de colunas serão concatenados entre os espaços em branco, veja a captura de tela:

A screenshot showing Excel data with concatenated values between blank cells


arrow blue right bubble Concatenar valores de células até encontrar uma célula em branco em uma coluna com Kutools para Excel

Se você tiver o Kutools para Excel, combinando seus recursos Transformar Intervalo e Combinar, também poderá concluir essa tarefa o mais rápido possível. O utilitário Transformar Intervalo pode ajudá-lo a converter a coluna única em um intervalo, e o recurso Combinar pode ajudá-lo a concatenar o intervalo transformado em uma coluna.

Kutools para Excel oferece mais de 300 recursos avançados para simplificar tarefas complexas, aumentando a criatividade e a eficiência. Integrado com capacidades de IA, o Kutools automatiza tarefas com precisão, tornando a gestão de dados fácil e eficiente. Mais informações sobre o Kutools para Excel...  Teste gratuito...

Após instalar o Kutools para Excel, por favor, faça o seguinte:

1. Selecione as células que deseja concatenar e clique em Kutools > Intervalo > Transformar Intervalo, veja a captura de tela:

A screenshot of Kutools' Transform Range option in Excel ribbon

2. Na caixa de diálogo Transformar Intervalo, marque a opção Coluna Única para Intervalo sob o Tipo de Transformação, e então selecione Separado por Espaços sob Linhas por Registro, veja a captura de tela:

A screenshot showing the Transform Range dialog box

3. Depois clique em Ok, e uma caixa de aviso aparecerá para lembrá-lo de selecionar uma célula para exibir o resultado, veja a captura de tela:

A prompt box asking to select a cell for output after transformation

4. Clique em OK, e os dados da coluna única foram convertidos em várias linhas e colunas pelo espaço em branco, veja a captura de tela:

A screenshot of Excel data after transformation using Kutools, with data divided by blank cells

5. Os dados convertidos estão em múltiplas colunas, então você precisa combiná-los em uma coluna, selecione o intervalo de dados e clique em Kutools > Mesclar e Dividir > Combinar Linhas/Colunas/Células e Manter Valores, veja a captura de tela:

A screenshot of Kutools' Combine Rows, Columns or Cells without Losing Data option in Excel ribbon

6. Na caixa de diálogo Combinar Colunas ou Linhas, faça as seguintes opções:

(1.) Selecione a opção Combinar Colunas em Mesclar o intervalo selecionado da seguinte maneira;

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

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

A screenshot of the Combine Columns or Rows dialog box

7. Após finalizar as configurações, clique no botão Ok ou Aplicar, as células foram concatenadas em uma coluna com um separador específico, veja a captura de tela:

A screenshot showing concatenated data in Excel after using Kutools

Kutools para Excel - Potencialize o Excel com mais de 300 ferramentas essenciais. Aproveite recursos de IA permanentemente gratuitos! Obtenha Agora

Melhores Ferramentas de Produtividade para Office

🤖 Kutools AI Aide: Revolucione a análise de dados com: Execução Inteligente   |  Gerar Código  |  Criar Fórmulas Personalizadas  |  Analisar Dados e Gerar Gráficos  |  Chamar Funções Aprimoradas
Recursos Populares: Localizar, Destacar ou Marcar Duplicatas   |  Excluir Linhas em Branco   |  Consolidar Colunas ou Células sem Perder Dados   |   Arredondar...
Super PROC: Procura por múltiplos critérios    Procura por múltiplos valores  |   Procura em várias planilhas   |   Correspondência Fuzzy...
Lista Suspensa Avançada: Crie rapidamente Lista suspensa  |  Lista suspensa dependente  |  Lista suspensa com múltipla seleção ...
Gerenciador de Colunas: Adicionar número específico de colunas  | Mover Colunas  | Alternar status de visibilidade de Colunas ocultas |  Comparar Intervalos & Colunas...
Recursos em Destaque: Grade de foco   |  Visualização de Design  |  Barra de fórmulas aprimorada    Gerenciador de Pasta de trabalho & Planilha   |  Biblioteca de AutoTexto (Auto Text)   |  Selecionador de Data   |  Mesclar Dados   |  Criptografar/Descriptografar Células    Enviar Email por Lista   |  Super Filtro   |   Filtro Especial (filtrar negrito/itálico/tachado...) ...
Os 15 Principais Conjuntos de Ferramentas: 12 Ferramentas de Texto (Adicionar Texto, Excluir Caracteres Específicos, ...)  | 50+ Tipos de Gráficos (Gráfico de Gantt, ...)  | 40+ Fórmulas Práticas (Calcular a idade com base na data de nascimento, ...)  | 19 Ferramentas de Inserção (Inserir Código QR, Inserir Imagem pelo Caminho, ...)  | 12 Ferramentas de Conversão (Converter em Palavras, Conversão de Moeda, ...)  | 7 Ferramentas de Mesclar & Dividir (Mesclar Linhas Avançado, Dividir Células, ...) | ...e muito mais
Use o Kutools no idioma de sua preferência – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 idiomas!

Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo.  Clique aqui para acessar o recurso que você mais precisa...


Office Tab traz interface com abas para o Office e facilita muito seu trabalho

  • Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
  • Aumente sua produtividade em50% e economize centenas de cliques todos os dias!

Todos os complementos Kutools. Um instalador

O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.

Excel Word Outlook Tabs PowerPoint
  • Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
  • Um instalador, uma licença — configuração em minutos (pronto para MSI)
  • Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
  • Avaliação completa por30 dias — sem registro e sem cartão de crédito
  • Melhor custo-benefício — economize comparado à compra individual de add-ins