Como transpor os dados de uma coluna para uma única célula no Excel?
Ao trabalhar com o Excel, poderá frequentemente deparar-se com situações em que precisa de pegar numa lista vertical de dados de uma coluna e combiná-la numa única célula. Esta tarefa é comum ao preparar resumos de resultados, exportar dados, criar relatórios ou quando precisa de enviar valores agregados para outro sistema ou ferramenta. Se a lista a fundir for curta, poderá considerar utilizar as funções Concatenar ou TEXTJOIN, mas estas tornam-se incómodas e menos eficientes quando tem um elevado número de células a combinar. Neste artigo, partilhamos métodos práticos e eficientes para transpor e juntar dados de uma coluna numa única célula no Excel, incluindo soluções com código VBA e o suplemento especializado Kutools para Excel. Estas soluções ajudam a reduzir erros manuais e a poupar tempo significativo, especialmente ao lidar com conjuntos de dados extensos.
Transpor dados de uma coluna para uma única célula com uma fórmula do Excel
Transpor dados de uma coluna para uma única célula com Kutools para Excel
Transpor dados de uma coluna para uma única célula com uma Função Definida pelo Utilizador (VBA)
Transpor dados de uma coluna para uma única célula com uma fórmula do Excel
Se preferir não utilizar macros ou suplementos, também pode obter o resultado com uma fórmula do Excel. As soluções seguintes utilizam a função TEXTJOIN, disponível no Excel 2016 e versões posteriores. Como alternativa, pode usar CONCATENAR ou CONCAT para intervalos mais pequenos, mas a TEXTJOIN é altamente recomendada pela sua simplicidade e capacidade de ignorar células vazias.
1. Clique na célula onde pretende que o resultado combinado apareça (por exemplo, B1) e introduza:
=TEXTJOIN(",",TRUE,A1:A10)2. Prima Enter. Os valores de A1 a A10 serão apresentados em B1, unidos numa única célula e separados por vírgulas. Pode personalizar o separador alterando a vírgula entre aspas (por exemplo, use ";" para ponto e vírgula ou « » para espaços).
Se desejar aplicar isto a um intervalo diferente, substitua A1:A10pelas referências de células pretendidas. O segundo parâmetro ()VERDADEIRO) faz com que o Excel ignore as células vazias na lista. Se a sua versão do Excel for anterior à 2016 e a função TEXTJOIN não estiver disponível, terá de recorrer a VBA ou a uma combinação de fórmulas mais antigas.
Esta abordagem baseada em fórmulas é ideal para ambientes que restringem o uso de macros e atua instantaneamente à medida que os dados são atualizados. No entanto, tenha em atenção que, em intervalos muito extensos, as fórmulas podem perder desempenho ou tornar-se menos responsivas.
Transpor dados de uma coluna para uma única célula com Kutools para Excel
Se tiver o Kutools para Excel instalado, a sua funcionalidade dedicada Combinar permite-lhe fundir eficientemente dados de colunas, linhas ou de um intervalo personalizado numa única célula, oferecendo simultaneamente uma interface intuitiva e opções flexíveis para personalizar delimitadores e a localização do resultado. Este método é ideal para utilizadores que frequentemente precisam de agregar dados e procuram uma solução simples, sem fórmulas — e sem necessidade de programação.
Assim que tiver o Kutools para Excelinstalado e ativo, siga estes passos:
1. Selecione a coluna de dados que pretende agrupar numa única célula.
2. No Friso do Excel, aceda a Kutools > Mesclar e Dividir > Combinar Linhas/Colunas/Células e Manter Valores. Consulte a captura de ecrã para orientação da interface:
3. Na caixa de diálogo que surge, selecione Mesclar em uma única célula em Para combinar as células selecionadas de acordo com as seguintes opções. Pode então escolher um separador para os Resultados Mesclados (vírgula, espaço, ponto e vírgula, etc.) ou introduzir um delimitador personalizado que se adeque às suas necessidades. Consulte a captura de ecrã como referência:
4. Clique em Ok ou Aplicar. O Kutools irá imediatamente fundir os valores da sua coluna selecionada numa única célula, de acordo com as definições especificadas. O processo é rápido, mesmo para grandes conjuntos de dados, e os seus dados originais permanecem inalterados. Exemplo de resultado:
 |  |  |
Transfira e experimente gratuitamente o Kutools para Excel agora!
O Kutools para Excel torna este tipo de manipulação de dados muito mais fácil, especialmente para utilizadores que combinam, reformatam ou limpam tabelas com regularidade. Pode experimentar diferentes definições de separadores para se ajustarem exatamente aos requisitos dos seus relatórios, e a ferramenta funciona de forma fiável, mesmo ao processar milhares de células. Caso surjam problemas — como a ferramenta não ativar —, certifique-se de que o Kutools está corretamente instalado e atualizado e de que selecionou o intervalo certo antes de executar a ação.
Embora o Kutools simplifique tarefas de fusão e preserve a integridade dos dados de origem, lembre-se de que o resultado combinado é estático: se atualizar posteriormente os seus dados originais, a célula combinada não será sincronizada automaticamente, a menos que repita a operação de combinação.
Transpor dados de uma coluna para uma única célula com uma Função Definida pelo Utilizador
Além de combinar valores de listas com a função CONCATENAR do Excel, pode utilizar uma Função Definida pelo Utilizador (UDF) escrita em VBA para fundir e transpor rapidamente os valores de uma coluna numa única célula. Este método revela-se especialmente eficiente e flexível quando trabalha com listas longas ou necessita de separadores personalizados entre os itens. É uma solução prática para utilizadores confortáveis com a ativação de macros e que procuram uma abordagem reutilizável para tarefas futuras.
1. Prima ALT + F11 em simultâneo para abrir a janela do editor do Microsoft Visual Basic para Aplicações.
2. Na janela do VBA, clique em Inserir > Módulo para criar um novo módulo e, em seguida, copie e cole o seguinte código no módulo vazio:
Código VBA: Transpor dados de uma coluna para uma única célula
Function transposeRange(Rg As Range)
'update by Extendoffice
Dim xCell As Range
Dim xStr As String
For Each xCell In Rg
If Not IsEmpty(xCell.Value) Then
xStr = xStr & xCell.Value & ","
End If
Next
transposeRange = Left(xStr, Len(xStr) - 1)
End Function
3. Guarde as suas alterações e feche o editor do VBA. Regresse à sua folha de cálculo. Na célula de destino, introduza a fórmula:=transposerange(A1:A10). Prima Enter para aplicar a fórmula. Isto irá juntar os valores de A1 a A10 numa única célula, separados por vírgulas (ou por qualquer delimitador que escolher). Consulte a captura de ecrã abaixo para um exemplo do resultado:
Nota: neste código, A1:A10 refere-se ao intervalo de coluna pretendido. Pode ajustar o intervalo conforme necessário. Se preferir um separador diferente da vírgula — por exemplo, ponto e vírgula, espaço ou hífen — modifique a parte xStr = xStr & xCell.Value & ",". Basta substituir a vírgula pelo(s) caractere(s) pretendido(s). Ao utilizar UDFs em VBA, certifique-se de que as macros estão ativadas no seu livro. Se a sua lista contiver células vazias, estas serão incluídas; caso pretenda excluí-las, poderão ser necessárias alterações adicionais ao código.
Se encontrar um erro #NOME? após introduzir a fórmula, verifique se copiou corretamente o código, se guardou o ficheiro como um livro com macros ativadas e se a macro está disponível no Livro de Trabalho Atual. Além disso, poderá ter de aceitar alertas de segurança relativos a macros ao abrir ou escrever o código VBA.
Esta abordagem em VBA oferece flexibilidade na formatação dos resultados, mas tenha em atenção que não é adequada para livros partilhados online nem para ambientes com restrições de macros e, em alguns casos, poderá não atualizar automaticamente se os dados forem alterados no intervalo de origem, a menos que force um recálculo. Para tarefas pontuais ou automatizadas, continua a ser uma solução eficiente.
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