Excel宏运行时错误

Question

我正在尝试运行一个非常简单的宏，从工作簿中删除多个列，但是当我运行它时，我得到错误运行时错误“1004”：应用程序定义或对象定义错误。

Dim y As Long

y=46
Do While y>27

columns (4*y).Select
Selection.Delete
y=y-1

Loop

这很奇怪，因为我从另一个宏复制并粘贴了这段确切的代码，而且一个工作正常。

作为excel表格的旁注，我插入了一个按钮，以便在重要的情况下设置我的宏

Answer 1

似乎工作。我不确定你是否只是像你输入它一样，并没有将你的线分开

Sub test()


Dim y As Long

y = 46
Do While y > 27

Columns(4 * y).Select
Selection.Delete
y = y - 1

Loop
End Sub