Eu tive esse mesmo problema - tão enfurecedor! Eu poderia transpor 2-4 linhas de fórmulas muito bem, mas quaisquer seleções maiores e tudo acabou uma bagunça (ou geralmente cerca de 2-4 linhas na parte inferior dos resultados transpostos seria correto) - tanto quanto eu posso ver isso é apenas um bug gritante!?
Eu tinha folhas com mais de 27.000 células que precisavam ser transpostas - criar intervalos nomeados para cada célula NÃO era uma opção:)
Eu finalmente criei um código bagunçado para fazer linha por linha
Sub transpose()
' gummih transpose, takes individual columns and pastes as rows
Dim firstLine As Integer
Dim lastLine As Integer
Dim lineToStartPasting as Integer
Dim cols As Integer
firstLine = 2
lastLine = 80
lineToStartPasting = 89 'pasting starts at "A90"
For cols = 1 To 100
Range(ActiveSheet.Cells(firstLine , cols ), ActiveSheet.Cells(lastLine , cols )).Select
Selection.Copy
ActiveSheet.Cells(lineToStartPasting + cols , 1).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, transpose:=True
Next cols
End Sub