自己编写宏让Excel2007单元格或者整列左移右移
[03-11 23:32:19] 来源：http://www.67xuexi.com Excel教程 阅读：85478次
摘要： ①单击菜单栏--视图--宏--查看宏。②弹出宏的界面，输入宏的名称，这里为了便于记忆，我们命名为向左移动一列，然后点击创建按钮。③在新出现的界面中，输入代码，也就是程序语言，我已经写好了，大家直接复制即可。Application.ScreenUpdating = Falsex = Selection.ColumnIf x >= 1 ThenColumns(x).CutColumns(x - 1).InsertApplication.ScreenUpdating = TrueEnd If④退出编辑状态，选中单元格或者整列，执行宏即可。下面，我把向右移动一列的代码也给大家。Application.ScreenUpdating = Falsex = Selection.ColumnIf x < 256 ThenColumns(x).CutColumns(x + 2).InsertEnd IfApplication.ScreenUpdating = TrueEnd Sub
自己编写宏让Excel2007单元格或者整列左移右移,标签：Excel教程大全,http://www.67xuexi.com
①单击菜单栏--视图--宏--查看宏。
②弹出宏的界面，输入宏的名称，这里为了便于记忆，我们命名为向左移动一列，然后点击创建按钮。
③在新出现的界面中，输入代码，也就是程序语言，我已经写好了，大家直接复制即可。
Application.ScreenUpdating = False
x = Selection.Column
If x >= 1 Then
Columns(x).Cut
Columns(x - 1).Insert
Application.ScreenUpdating = True
End If
④退出编辑状态，选中单元格或者整列，执行宏即可。下面，我把向右移动一列的代码也给大家。
Application.ScreenUpdating = False
x = Selection.Column
If x < 256 Then
Columns(x).Cut
Columns(x + 2).Insert
End If
Application.ScreenUpdating = True
End Sub
Tag:Excel教程，Excel教程大全，办公软件教程 - Excel教程