Como transpor cada 5 ou n linhas de uma coluna em múltiplas colunas?
Transpor cada 5 (ou n) linhas de uma única coluna para múltiplas colunas no Excel é uma solução extremamente útil para reorganizar dados e prepará-los para análise ou relatórios. Imagine que tem uma lista longa na coluna A e pretende transpor cada bloco de 5 linhas dessa coluna para linhas horizontais — por exemplo, converter A1:A5 em C6:G6, A6:A10 em C7:G7, e assim sucessivamente, tal como ilustrado na imagem à esquerda. Esta tarefa pode ser executada de várias formas, cada uma com as suas vantagens específicas. Veja a seguir um guia passo a passo detalhado para realizar esta operação.
Transpor cada 5 ou n linhas de uma coluna para múltiplas colunas
Transpor cada 5 ou n linhas de uma coluna para múltiplas colunas com fórmula
No Excel, pode utilizar a seguinte fórmula para transpor cada n linhas de uma coluna em várias colunas. Siga estes passos:
1. Introduza a seguinte fórmula numa célula vazia onde deseja obter o resultado.
=INDEX($A:$A,ROW(A1)*5-5+COLUMN(A1))
2. Em seguida, arraste a alça de preenchimento para a direita até à quinta célula e continue a arrastá-la para baixo até ao intervalo de células onde apareça 0, conforme ilustrado na imagem:
Transpor cada 5 ou n linhas de uma coluna para múltiplas colunas com Kutools para Excel
Está frustrado por ter de transpor dados do Excel de uma única coluna para várias colunas? A funcionalidade «Transformar Intervalo» do «Kutools para Excel» resolve esse problema! Quer precise de transpor a cada 5 linhas ou num intervalo personalizado, temos tudo sob controlo. Com a conversão flexível de linhas, escolhe livremente quantas linhas pretende transpor de uma coluna para múltiplas colunas. É simples, rápido e não exige operações complexas — basta alguns cliques para concluir a tarefa.
Após instalar o «Kutools para Excel», por favor proceda da seguinte forma:
1. Selecione os dados na coluna e, em seguida, clique em «Kutools» > «Intervalo» > «Transformar Intervalo», conforme ilustrado na imagem:
2. Na caixa de diálogo «Transformar Intervalo», selecione «Coluna Única para Intervalo» em «Tipo de Transformação» e, de seguida, ative a opção «Valor Fixo» em «Linhas por registo». Em seguida, indique na caixa «Valor Fixo» o número de colunas para as quais pretende transpor os dados, conforme ilustrado na imagem:
3. Em seguida, clique no botão «OK». Na caixa que surge, selecione uma célula para apresentar o resultado, conforme ilustrado na imagem:
4. Depois, clique no botão «OK» e os dados da sua coluna serão transpostos a cada 5 linhas, conforme ilustrado na imagem seguinte:
Transpor cada 5 ou n linhas de uma coluna para múltiplas colunas com código VBA
Se não conseguir aplicar a fórmula corretamente, o código VBA seguinte também poderá ajudá-lo.
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.
Código VBA: Transpor cada 5 ou n linhas de uma coluna para múltiplas colunas:
Public Sub TransposeData()
'updateby Extendoffice
Dim xLRow As Long
Dim xNRow As Long
Dim i As Long
Dim xUpdate As Boolean
Dim xRg As Range
Dim xOutRg As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select data range(only one column):", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If (xRg.Columns.Count > 1) Or _
(xRg.Areas.Count > 1) Then
MsgBox "the used range only contain one column", , "Kutools for Excel"
Exit Sub
End If
Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
If xOutRg Is Nothing Then Exit Sub
Set xOutRg = xOutRg.Range(1)
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
xLRow = xRg.Rows.Count
For i = 1 To xLRow Step 5
xRg.Cells(i).Resize(5).Copy
xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
xNRow = xNRow + 1
Next
Application.ScreenUpdating = xUpdate
End Sub
3. Após colar o código, prima a tecla «F5» para o executar. Irá surgir uma caixa de aviso a solicitar que selecione a coluna que pretende transpor, conforme ilustrado na imagem:
4. Em seguida, clique em «OK» e selecione, na caixa que surgirá, a célula onde pretende inserir o resultado, conforme ilustrado na imagem:
5. Clique em «OK» e os dados da coluna serão convertidos nas cinco colunas de que necessita, conforme ilustrado na imagem:
Para transpor cada 5 ou n linhas de uma coluna em múltiplas colunas no Excel, este artigo apresenta três métodos eficazes. Cada um oferece uma abordagem distinta para reorganizar os seus dados, adaptando-se a diferentes níveis de familiaridade com as ferramentas e programação do Excel. Se quer explorar ainda mais dicas e truques do Excel, o nosso site disponibiliza milhares de tutoriais.
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