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