Dados do Excel de coluna para linha - excel, vba, excel-vba, linha, múltiplas colunas

Eu tenho dados como na foto abaixo:

Eu preciso (com uma macro) organizar os dados para que cada linha com um número após ELEVATIONAZIMUTH esteja na primeira linha, como na figura:

Eu tenho muitas linhas como esses dados. Talvez alguém possa ajudar?

Respostas:

Isso não é testado. você pode tentar. o abaixo pode ser escrito de maneira diferente também.

  Sub test1()
Dim LastRow, DataCount, temp  As Double
i = 1
LastRow = 1

Do While LastRow <> 0
Range("A" & i).Select
If ActiveCell.Value = "ELEVATIONAZIMUTH" Then
"Cut all three row and paste
DataCount = Application.WorksheetFunction.CountA(Range(i & ":" & i))
Range("A" & ActiveCell.Row + 1, "I" & ActiveCell.Row + 1).Cut ActiveCell.Offset(0, DataCount)
Range("A" & ActiveCell.Row + 2, "I" & ActiveCell.Row + 2).Cut ActiveCell.Offset(0, DataCount * 2)
Range("A" & ActiveCell.Row + 3, "I" & ActiveCell.Row + 3).Cut ActiveCell.Offset(0, DataCount * 3)
Else
LastRow = Application.WorksheetFunction.CountA(Range("A" & i, "A" & i + 10))
End If
i = i + 1
Loop

End Sub

Isso também pode ser feito sem o uso de macros. Estou assumindo sua última coluna onde os dados estão lá é a coluna I eo número da linha é 11. Você deseja preencher todas as células na linha 11 após a coluna I, ou seja, J11, K11 .... com valores logo abaixo I11

Você poderia fazer isso, cole em J11 J11 = ÍNDICE ($ I $ 11: $ I $ 1000, COLUNA (B1), 1) Arraste a fórmula pela linha e você deve obter o resultado desejado