Как инвертировать строки в Excel?

Question

Допустим, у меня есть 1 столбец, например:

1
2
3
4
5

Я хочу, чтобы колонка стала

5
4
3
2
1

Очевидно, что столбцы не так просты, как это, хотя это должно быть то же самое.

PS: я не могу создавать колонки на этом форуме. Это показывает как ряд.

Answer 1

Просто нажмите на любую ячейку в столбце и этот маленький макрос:

Option Explicit

Sub FlipColumn()
   Dim cl As Long, N As Long, i As Long
   cl = ActiveCell.Column
   N = Cells(Rows.Count, cl).End(xlUp).Row
   ReDim ary(1 To N) As Variant

   For i = 1 To N
      ary(i) = Cells(i, cl).Value
   Next i

   For i = 1 To N
      Cells(i, cl).Value = ary(N - i + 1)
   Next i
End Sub

будет инвертировать содержимое столбца.

Это не зависит от "отсортированной" природы оригинального заказа.

Answer 2

Выделите данные, затем сортируйте от Highest to lowest .

Результат