欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  Office

Excel2007单元格或者整列左移右移一列实现宏代码(自写)

程序员文章站 2022-03-04 19:20:40
如果因某需求需要将某个单元格向左移或右移动一列,那么该怎么操作呢?实现此功能的方法可谓是举不胜举,有简单的也有复杂的。使用来使用去感觉还是宏来的比较快速一点。正所谓...

如果因某需求需要将某个单元格向左移或右移动一列,那么该怎么操作呢?实现此功能的方法可谓是举不胜举,有简单的也有复杂的。使用来使用去感觉还是宏来的比较快速一点。正所谓好东西不敢独享,接下来与大家一同学习下并附上本人的经验宏代码,方便各位在以后使用时直接执行就行了。如果你也有此需求,那可不要错过本文了。

具体操作步骤

①单击菜单栏--视图--宏--查看宏。

Excel2007单元格或者整列左移右移一列实现宏代码(自写)

②弹出宏的界面,输入宏的名称,这里为了便于记忆,我们命名为向左移动一列,然后点击创建按钮。

Excel2007单元格或者整列左移右移一列实现宏代码(自写)

③在新出现的界面中,输入代码,也就是程序语言,我已经写好了,大家直接复制即可。

Application.ScreenUpdating = False
x = Selection.Column
If x >= 1 Then
Columns(x).Cut
Columns(x - 1).Insert
Application.ScreenUpdating = True
End If

Excel2007单元格或者整列左移右移一列实现宏代码(自写)

④退出编辑状态,选中单元格或者整列,执行宏即可。下面我把向右移动一列的代码也给大家。

Application.ScreenUpdating = False
x = Selection.Column
If x < 256 Then
Columns(x).Cut
Columns(x + 2).Insert
End If
Application.ScreenUpdating = True

Excel2007单元格或者整列左移右移一列实现宏代码(自写)