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 Sub

3. 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?