Olá vkiiti!
Fazer essa mesma tarefa via fórmula para intervalos com as colunas que não possuem o mesmo tamanho até dá, mas penso que vai ser extremamente complexo.
Uma alternativa é desenvolver uma macro para realizar tal tarefa. Um modelo que você pode adaptar conforme sua necessidade é:
Sub transpor_Colunas()
Dim rCell As Excel.Range
Dim rRange As Excel.Range
Dim sCell As String
Dim lloop As Long
Set rRange = Selection
sCell = InputBox("Em célula começar a transposição?")
On Error GoTo erro
Range(sCell).Activate
For lloop = 1 To rRange.Columns.Count
For Each rCell In rRange.Columns(lloop).Cells
If rCell <> "" Then
ActiveCell.Value = rCell.Value
ActiveCell.Offset(1, 0).Activate
End If
Next rCell
Next lloop
Exit Sub
erro:
MsgBox "Endereço de célula inválido!", vbCritical
End Sub
A ideia do código acima é você selecionar o intervalo das colunas e executar a macro. Vai aparecer um imputbox para digitar a célula onde vai começar a transposição da forma que você deseja.
Para fazer isso é preciso um conhecimento básico no VBA.
Rafael Issamu F. Kamimura
Moderador Oficial Microsoft Community - MCC (Contribuidor do Microsoft Community)
http://zip.net/bjrt0X - http://zip.net/bhrvbR
Foi útil? Clique na mãozinha
Conheça: http://excelmaniacos.com/
Postado : 14/09/2015 11:39 am