A | B | C |
linha1 TITULOS (A1) | ||
linha 2 nome 1 | ||
linha 3 sobrenome 1 | ||
linha 4 endereço 1 | ||
linha 5 nome 2 | ||
linha 6 sobrenome 2 | ||
linha 7 endereço 2 | ||
assim por diante (padrão se repete ) |
A | B | C |
linha1 TITULOS (A1) | ||
linha 2 nome 1 | sobrenome 1 | endereço 1 |
linha 3 nome 2 | sobrenome 2 | endereço 2 |
linha 4 nome 3 | sobrenome 3 | endereço 3 |
linha 5 nome 4 | sobrenome 4 | endereço 4 |
assim por diante | assim por diante | assim por diante |
Supondo que você tenha uma tabela
A | |
1 | TITULOS |
2 | nome 1 |
3 | sobrenome 1 |
4 | endereço 1 |
Então você pode fazer
A | B | C | D | |
1 | TITULOS | NOME | SOBRENOME | ENDEREÇO |
2 | nome 1 | =ÍNDICE($A$1:$A$7;(LIN($A2)-1)*3-1;1) | =ÍNDICE($A$1:$A$7;(LIN($A2)-1)*3;1) | =ÍNDICE($A$1:$A$7;(LIN($A2)-1)*3+1;1) |
3 | sobrenome 1 | (arraste a célula acima para baixo) | (arraste a célula acima para baixo) | (arraste a célula acima para baixo) |
4 | endereço 1 | (arraste a célula acima para baixo) | (arraste a célula acima para baixo) | (arraste a célula acima para baixo) |
Não se esqueça de ajustar os índices das linhas dentro da função para a sua tabela.
Espero ter ajudado.
Se gostou da minha resposta, não se esqueça de vota-la.
Eu faria com indireto.
Nas colunas A
=Indireto(conatenar("A";Lin(A2)*3-4);1)
Nas colunas B
=Indireto(conatenar("A";Lin(A2)*3-3);1)
Nas colunas C
=Indireto(conatenar("A";Lin(A2)*3-2);1)
Só arrastar que vai direto depois.
Olá lucas.
Como não vi outro jeito, é só criar uma macro.
Estou enviando no link. Há duas macros, a macro que transforma é a macro2.
Entre no menu Exibir, ative a célula A2, clik no botão Macros. Na caixa de diálogo, click sobre a macro2 e no mobão executar.
Para ver a macro click em editar.
Tu podes copiar a macro na tua planilha. Ela não vai executar as 4000 linhas, mas não é muito bom. é melhor fazer por partes.
O link é: transpor.xlsm
Abraço.
ps: qualquer coisa, pode entrar em contato.
Esqueci. A macro não está disponível on-line.
A listagem está embaixo.
Sub Macro2()
'
' Macro2 Macro
'
'
Dim i As Integer
For i = 1 To 50
ActiveCell.Offset(1, 0).Range("A1:A2").Select
Selection.Copy
ActiveCell.Offset(-1, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(1, 0).Rows("1:2").EntireRow.Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
ActiveCell.Offset(1, 0).Range("A1:A2").Select
Selection.Copy
ActiveCell.Offset(-1, 1).Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
ActiveCell.Offset(1, 0).Rows("1:2").EntireRow.Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp
Next
End Sub