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

2025-10-23 20:12:32

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

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

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

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

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

 

代码作用是将前B列中1-8行数据颠倒顺序,如下图所示。

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

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

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

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

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

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.相应列中的数据就颠倒了顺序。

声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
猜你喜欢