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

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行数据颠倒顺序,如下图所示。

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

时间:2024-10-13 14:40:13
1、首先,打开一个含有数据的Excel表格,如下图示。
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行数据颠倒顺序,如下图所示。
5、返回Excel,就能看到B列中的数据颠倒了顺序,如下图所示。