如何在 Excel 中反转行？

Question

假设我有一列，例如：

1
2
3
4
5

我想要的专栏是

5
4
3
2
1

显然，这些列并不像这样简单，尽管它们应该是相同的。

附言：我无法在这个论坛中创建列。它显示为一行。

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。

结果