删除列-用宏

excel宏中删除一列为什么会整个表格都删除了

Sub 删第一列()    '' 删第一列 Macro' 宏由 ** 录制，时间: 2013-12-25'

    Columns("A:A").Select

    Selection.Delete Shift:=xlToLeft

End Sub

其实直接这一句就行了：

Columns("A:A").Delete

不会吧？！
是否是 你有其他的操作啊？
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
这段代码 仅仅是删除了 A列 并且 右边的单元格 左移啊……

Sub 删第一列()   
  Columns("A:A").Select   
  Selection.Delete Shift:=xlToLeft
End Sub
代码没问题，如果没有其他代码，你按这个试试。