Dane Excel z colum do wiersza - excel, vba, excel-vba, wiersz, wiele kolumn

Mam dane takie jak na zdjęciu poniżej:

Muszę (za pomocą makra) uporządkować dane, tak aby każdy wiersz z numerem po ELEVATIONAZIMUTH znajdował się w pierwszym wierszu, jak na zdjęciu:

Mam wiele wierszy takich jak te dane. Może ktoś może pomóc?

Odpowiedzi:

To nie jest testowane. możesz spróbować. poniżej można również zapisać w sposób różnicowy.

  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

Można to również zrobić bez użycia makr. Zakładam, że twoja ostatnia kolumna, w której znajdują się dane to kolumna I, a numer wiersza to 11. Chcesz wypełnić wszystkie komórki w wierszu 11 po kolumnie I, tj. J11, K11 .... z wartościami tuż poniżej I11

Możesz to zrobić, wklej w J11 J11 = INDEKS (I $ 11: $ I $ 1000, KOLUMNA (B1), 1) Przeciągnij formułę w poprzek wiersza i powinieneś uzyskać żądane wyjście