Como transpor ou converter colunas e linhas numa única linha?
Como juntar várias linhas e colunas numa única linha longa? Talvez lhe pareça fácil, pois pode copiá-las uma a uma e juntá-las manualmente numa linha. Contudo, será demorado e tedioso se existirem centenas de linhas e colunas. Aqui irei apresentar alguns truques rápidos para resolver este problema.
Transpor / Converter colunas e linhas numa única linha com fórmula
Transpor / Converter colunas e linhas numa única linha com código VBA
Transpor / Converter colunas e linhas numa única linha com Kutools para Excel
Transpor / Converter colunas e linhas numa única linha com fórmula
Suponha que tem um intervalo de dados como o apresentado na seguinte captura de ecrã; pode converter esses dados numa única linha numa nova folha de cálculo utilizando uma fórmula extensa.
Aplique a fórmula da seguinte forma:
1. Numa nova planilha da workbook atual, clique na célula A1 e copie e cole esta fórmula:=OFFSET(Sheet1!$A$1,((ROW()-1)*5)+(FLOOR(COLUMN()-1,4)/4),(COLUMN()-1)-(FLOOR(COLUMN()-1,4)))
Nota: Sheet1!$A$1 é a referência à folha de cálculo e ao intervalo que pretende utilizar.
ROW()-1)*5 na fórmula acima, o 5 representa o número de linhas; e no COLUMN()-1,4)/4, o 4 representa o número de colunas. Pode ajustá-los conforme as suas necessidades.
2. Em seguida, arraste a alça de preenchimento para a direita até aparecer o número 0. Nesse momento, todos os dados do intervalo terão sido transpostos para uma única linha numa nova folha. Veja a captura de ecrã:
Transpor / Converter colunas e linhas numa única linha com código VBA
O seguinte código VBA também o pode ajudar a converter um intervalo de dados numa única linha.
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 código seguinte na janela do Módulo.
Sub TransformOneRow()
'Updateby20131120
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Ranges to be transform :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Paste to (single cell):", xTitleId, Type:=8)
Application.ScreenUpdating = False
xRows = InputRng.Rows.Count
xCols = InputRng.Columns.Count
For i = 1 To xRows
InputRng.Rows(i).Copy OutRng
Set OutRng = OutRng.Offset(0, xCols + 0)
Next
Application.ScreenUpdating = True
End Sub3. Em seguida, prima a tecla F5 para executar o código. Surge uma caixa de diálogo que lhe permite selecionar o intervalo de conteúdos que pretende converter numa linha; clique em Ok. Depois, surge outra caixa de diálogo para selecionar uma única célula onde colocar o resultado. Veja as capturas de ecrã:
 |
 |
 |
Em seguida, clique em Ok e os conteúdos no intervalo selecionado serão convertidos numa única linha. Veja a captura de ecrã:
 |
|
 |
Nota: Em Set OutRng = OutRng.Offset(0, xCols + 0), pode alterar o 0 para qualquer número conforme as suas necessidades.
Por exemplo, se pretender separar os resultados de acordo com as linhas originais por uma coluna, pode alterar Set OutRng = OutRng.Offset(0, xCols + 0) para Set OutRng = OutRng.Offset(0, xCols + 1). Os resultados apresentam-se da seguinte forma:
Transpor / Converter colunas e linhas numa única linha com Kutools para Excel
Parece que os dois métodos anteriores são um pouco complicados para quem está a começar no Excel. Por isso, apresento-lhe uma ferramenta prática: o Kutools para Excel.
Kutools para Excel inclui mais de 300 ferramentas práticas para o Excel. Experimente gratuitamente e sem limitações durante 30 dias.Obtenha já
Com a funcionalidade Transformar Intervalo do Kutools para Excel, pode transformar rapidamente um intervalo numa única linha. Siga estes passos:
1. Selecione o intervalo que deseja transpor.
2. Clique em Kutools > Intervalo > Transformar Intervalo.
3. Na caixa de diálogo Transformar Intervalo, selecione a opção Intervalo para Linha Única. Veja a captura de ecrã:
4. Em seguida, clique em OK e, depois, numa célula para colocar o resultado na caixa que surge.
5. Clique em OK e os dados do intervalo serão transpostos para uma única linha. Veja as capturas de ecrã:
|
|
 |
Se pretender saber mais sobre esta funcionalidade, visite Transformar Intervalo.
Artigos relacionados:
Como transformar uma linha em coluna no Excel?
Como transpor ou converter uma única coluna em várias colunas no Excel?
Como transpor ou converter colunas e linhas numa única coluna?
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