EXCEL，如何把最下边的转到最上边

来源：百度知道 编辑：UC知道 时间：2024/05/21 19:31:43
564
423
784
142
555
778
145
422
756
124

转化为
124
756
422
、、、
564
我不知道怎么弄，请教大家

在另一列倒着排序号，10-9-8-。。。-1；然后选定序号列，按常用工具栏中的升序排序

Dim a As Integer
假设你的数据从A1开始.在宏代码框中输入下列代码

Dim a As Integer
Dim c(1 To 63356) As Integer
Dim d As Integer
d = 1
a = Range("a1").CurrentRegion.Rows.Count
Range("a1").Select
For x = 1 To a
c(d) = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
d = d + 1
Next
d = d - 1
Range("a1").Select
For x = 1 To a
ActiveCell.Value = c(d)
ActiveCell.Offset(1, 0).Select
d = d - 1
Next