VBA如何将一列数据颠倒顺序？

1、首先，打开一个含有数据的Excel表格，如下图示。

2、按下Alt+F11，在打开的新界面左上角，双击数据所在的工作表，出现代码编辑区，如下图所示。

3、输入代码：

Sub 鱼木混猪()
For i = 1 To Int(8 / 2)
a = Range("B" & i)
Range("B" & i) = Range("B" & 9 - i)
Range("B" & 9 - i) = a
Next
End Sub

4、鼠标点击代码中的任意位置，然后点击“运行子程序”按钮，如下图所示。

5、返回Excel，就能看到B列中的数据颠倒了顺序，如下图所示。

1、1.打开Excel；

2.按下Alt+F11，双击数据工作表；

3.在代码区输入代码，核心代码：

a = Range("B" & i)
Range("B" & i) = Range("B" & 9 - i)
Range("B" & 9 - i) = a

4.点击“运行子程序”；

5.相应列中的数据就颠倒了顺序。