Como concatenar os valores das células numa coluna até encontrar uma célula vazia no Excel?
Por exemplo, tenho uma lista de valores com algumas células vazias e quero concatenar cada bloco de dados entre essas células vazias numa única célula, colocando os resultados combinados noutra coluna, tal como mostrado na seguinte captura de ecrã. Como posso concatenar células até encontrar uma célula vazia numa coluna?
Concatenar valores de células até encontrar uma célula vazia numa coluna com código VBA
Concatenar valores de células até encontrar uma célula vazia numa coluna com Kutools para Excel
Concatenar valores de células até encontrar uma célula vazia numa coluna com código VBA
Não existe uma forma direta de concatenar um conjunto de células ignorando os espaços em branco, mas pode resolver esta tarefa aplicando o seguinte código VBA. Siga estes passos:
1. Mantenha premidas 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 vazia
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, prima a tecla F5para executar este código e surgirá uma caixa de diálogo a solicitar que selecione o Intervalo de Dados que pretende concatenar, conforme ilustrado na captura de ecrã:
4. Depois, clique em OK. Surge, então, outra caixa de diálogo a solicitar: «Por favor, selecione uma célula para apresentar o resultado concatenado», conforme ilustrado na captura de ecrã:
5.Em seguida, clique no botão OKe os dados Colunas são concatenados entre os espaços em branco, conforme ilustrado na captura de ecrã:
Concatenar valores de células até encontrar uma célula vazia numa coluna com Kutools para Excel
Se tiver instalado o Kutools para Excel, ao combinar as funcionalidades Transformar Intervalo e Combinar, também poderá concluir esta tarefa rapidamente. A funcionalidade Transformar Intervalo ajuda-o a converter uma coluna única num intervalo, e a funcionalidade Combinar permite-lhe concatenar os resultados do Transformar Intervalo numa única coluna.
Após instalar o Kutools para Excel, proceda da seguinte forma:
1.Selecione as células que pretende concatenar e clique em Kutools>Intervalo>Transformar Intervalo, conforme ilustrado na captura de ecrã:
2. Na caixa de diálogo Transformar Intervalo, marque a opção Coluna Única para Intervalo sob a secção Tipo de Transformação e, em seguida, selecione Separado por Espaços em Linhas por registo, conforme ilustrado na captura de ecrã:
3.Em seguida, clique em Oke surgirá uma caixa de diálogo a solicitar que selecione uma célula para apresentar o resultado, conforme ilustrado na captura de ecrã:
4. Clique em OK e os dados da coluna única serão convertidos em várias linhas e colunas, separados pela célula vazia, conforme ilustrado na captura de ecrã:
5. Os dados convertidos estão distribuídos por várias colunas, pelo que precisa de os combinar numa única coluna: selecione o Kutools > Mesclar e Dividir > Combinar Linhas/Colunas/Células e Manter Valores, conforme ilustrado na captura de ecrã:
6. Na caixa de diálogo Combinar Colunas ou Linhas, efetue as seguintes opções:
(1.) Selecione a opção Combinar Colunasno menu Mesclar o intervalo selecionado da seguinte maneira;
(2.) Em seguida, Separador que pretende utilizar para separar os valores concatenados;
(3.) Escolha como pretende tratar as células combinadas: pode manter ou eliminar os dados originais e, ainda, voltar a mesclar essas células. Veja a captura de ecrã:
7. Após concluir as definições, clique no botão Ok ou Aplicar e as células serão concatenadas numa única coluna com um separador específico, conforme ilustrado na captura de ecrã:
Kutools para Excel– Potencie o Excel com mais de 300 ferramentas essenciais, tornando o seu trabalho mais rápido e fácil, e aproveite as funcionalidades de IA para um processamento de dados mais inteligente e uma maior produtividade.Obtenha Já
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos