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

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 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:
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:
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:
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.
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:
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:
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:
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:
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:
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:
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:
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
Potencialize suas habilidades no Excel com o Kutools para Excel e experimente uma eficiência sem igual. O Kutools para Excel oferece mais de300 recursos avançados para aumentar sua produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
O Office Tab traz interface com abas para o Office e facilita muito o seu trabalho
- Habilite a edição e leitura com abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas abas na mesma janela, em vez de abrir novas janelas.
- Aumente sua produtividade em50% e reduza centenas de cliques do mouse todos os dias!