Como transpor / converter colunas e linhas em uma única linha?
Como juntar várias linhas e colunas em uma única linha longa? Talvez, pareça fácil para você, porque pode copiá-las uma a uma e uni-las manualmente em uma linha. Mas será demorado e tedioso se houver centenas de linhas e colunas. Aqui vou falar sobre alguns truques rápidos para resolver isso.
Transpor / Converter colunas e linhas em uma única linha com fórmula
Transpor / Converter colunas e linhas em uma única linha com código VBA
Transpor / Converter colunas e linhas em uma única linha com Kutools para Excel
Transpor / Converter colunas e linhas em uma única linha com fórmula
Supondo que você tenha um intervalo de dados como mostra a captura de tela a seguir, você pode converter os dados do intervalo em uma linha em uma nova planilha com uma fórmula longa.
Por favor, aplique a fórmula assim:
1. Em uma nova planilha da pasta de trabalho ativa, clique na célula A1, copie e cole esta fórmula: =OFFSET(Sheet1!$A$1,((ROW()-1)*5)+(FLOOR(COLUMN()-1,4)/4),(COLUMN()-1)-(FLOOR(COLUMN()-1,4)))
Observação: Sheet1!$A$1 é a referência da planilha e do intervalo que você deseja usar.
ROW()-1)*5 na fórmula acima, 5 representa o número da linha; e COLUMN()-1,4)/4, o 4 representa o número da coluna. Você pode alterá-los conforme sua necessidade.
2. Em seguida, arraste a alça de preenchimento para a direita até que o número 0 apareça. Nesse caso, todos os dados no intervalo foram transpostos para uma única linha em uma nova planilha. Veja a captura de tela:
Transpor / Converter colunas e linhas em uma única linha com código VBA
O seguinte código VBA também pode ajudá-lo a converter um intervalo de dados em uma linha.
1. Mantenha pressionadas as teclas ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique em Inserir > Módulo e cole o seguinte código na janela 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, pressione a tecla F5 para executar o código, uma caixa de diálogo aparecerá para você selecionar um intervalo de conteúdo que deseja converter em uma linha e clique em Ok, outra caixa de diálogo aparecerá para você selecionar uma única célula para exibir o resultado. Veja as capturas de tela:
 |
 |
 |
Em seguida, clique em Ok, os conteúdos no intervalo selecionado são convertidos em uma linha. Veja a captura de tela:
 |
|
 |
Observação: Em Set OutRng = OutRng.Offset(0, xCols + 0), você pode alterar 0 para qualquer número para atender à sua necessidade.
Por exemplo, se você quiser 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 são mostrados a seguir:
Transpor / Converter colunas e linhas em uma única linha com Kutools para Excel
Parece que os dois métodos acima são um pouco difíceis para nós, iniciantes no Excel, aqui vou falar sobre uma ferramenta prática - Kutools para Excel para você.
Kutools para Excel inclui mais de 300 ferramentas práticas para o Excel. Gratuito para experimentar sem limitação por 30 dias. Obtenha-o agora
Com a utilidade Transformar Intervalo do Kutools para Excel, você pode transformar rapidamente um intervalo em uma única linha, por favor, faça o seguinte:
1. Selecione o intervalo que você 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 tela:
4. Em seguida, clique em OK e clique em uma célula para colocar o resultado na caixa pop-up.
5. Clique em OK, e os dados no intervalo foram transpostos para uma única linha. Veja as capturas de tela:
|
|
 |
Se você quiser saber mais sobre este recurso, visite Transformar Intervalo.
Artigos relacionados:
Como alterar linha para coluna no Excel?
Como transpor / converter uma única coluna em várias colunas no Excel?
Como transpor / converter colunas e linhas em uma única coluna?
Melhores Ferramentas de Produtividade para Office
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.
- 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