Como transpor a cada 5 ou n linhas de uma coluna para várias colunas?

Suponha que você tenha dados longos na coluna A e agora queira transpor a cada 5 linhas da coluna A para várias colunas, como transpor A1: A5 para C6: G6, A6: A10 para C7: G7 e assim por diante como seguinte captura de tela mostrada. Como você poderia lidar com essa tarefa sem copiar e colar repetidamente no Excel?
Transponha a cada 5 ou n linhas de uma coluna para várias colunas com fórmula
Transponha a cada 5 ou n linhas de uma coluna para várias colunas com código VBA
Transponha a cada 5 ou n linhas de uma coluna para várias colunas com o Kutools para Excel
Transponha a cada 5 ou n linhas de uma coluna para várias colunas com fórmula
No Excel, você pode aplicar a seguinte fórmula para transpor a cada n linhas de uma coluna para várias colunas. Faça o seguinte:
1. Insira a seguinte fórmula em uma célula em branco onde deseja colocar o resultado, C1, por exemplo, = ÍNDICE ($ A: $ A, LINHA (A1) * 5-5 + COLUNA (A1)), veja a captura de tela:
Nota: Na fórmula acima, A: A é a referência da coluna que você deseja transpor, e A1 é a primeira célula da coluna usada, o número 5 indica o número de colunas que seus dados irão localizar, você pode alterá-las conforme sua necessidade. E a primeira célula da lista deve estar localizada na primeira linha da planilha.
2. Em seguida, arraste a alça de preenchimento para a direita para cinco células e continue arrastando a alça de preenchimento para o intervalo de células até exibir 0, veja a captura de tela:
Transforme a cada 5 ou n linhas de uma coluna em várias colunas:
Para transformar a cada 5 ou n linhas de uma coluna em várias colunas, Kutools for Excel's Faixa de transformação O utilitário pode ajudá-lo a resolver esse trabalho o mais rápido possível. Também pode ajudá-lo a transpor um intervalo de dados para uma única linha ou coluna. Clique para baixar o Kutools para Excel! Kutools for Excel: com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. Baixe e teste grátis agora! |
Transponha a cada 5 ou n linhas de uma coluna para várias colunas com código VBA
Se você não pode aplicar a fórmula corretamente, o seguinte código VBA também pode ajudá-lo.
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. Clique inserção > Móduloe cole o seguinte código no Módulo Janela.
Código VBA: transponha a cada 5 ou n linhas de uma coluna para várias 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. Depois de colar o código, pressione F5 para executá-lo e uma caixa de prompt aparecerá para lembrá-lo de selecionar a coluna que deseja transpor, consulte a captura de tela:
4. Então clique OKe selecione uma célula onde deseja colocar o resultado em outra caixa exibida, consulte a captura de tela:
5. E clique em OK, os dados na coluna foram convertidos em cinco colunas de que você precisa, consulte a captura de tela:
Nota: No código acima, você pode alterar o número 5 para outro número que você precisa.
Transponha a cada 5 ou n linhas de uma coluna para várias colunas com o Kutools para Excel
Se você tem Kutools for Excel, Com o seu Faixa de transformação utilitário, você pode transpor rapidamente uma coluna ou linha para várias colunas e linhas.
Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Depois de instalar Kutools for Excel, faça o seguinte:
1. Selecione os dados na coluna e clique em Kutools > Variação > Faixa de transformação, veja a captura de tela:
2. No Faixa de transformação caixa de diálogo, selecione Coluna única para intervalo opção sob o Tipo de transformação, e então verifique Valor fixo sob a Linhas por registroe especifique o número de colunas que deseja transpor no Valor fixo caixa, veja a captura de tela:
3. E, em seguida, clique em Ok botão, na caixa exibida, selecione uma célula para gerar o resultado, consulte a captura de tela:
4. Então clique OK botão, e os dados da coluna foram transpostos a cada 5 linhas, conforme mostrado a seguir:
Baixe e teste grátis Kutools para Excel agora!
Demonstração: transponha a cada 5 ou n linhas de uma coluna para várias colunas com o Kutools para Excel
As melhores ferramentas de produtividade para escritório
O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
- armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
- Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
- Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
- Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
- Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
- Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
- Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
- Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
- Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!















