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) = aNextEnd Sub代码作用是将前B列中1-8行数据颠倒顺序，如下图所示。
4、鼠标点击代码中的任意位置，然后点击“运行子程序”按钮，如下图所示。
5、返回Excel，就能看到B列中的数据颠倒了顺序，如下图所示。
