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