vba - 宏不会进入下一个 WS

Question

由于某种原因，我的代码不会进入下一个工作表，任何帮助将不胜感激。

CleanUpMetricsBooks()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets

Range("M:N,P:Q,U:V,X:Y").EntireColumn.Delete

End

Next ws

End Sub

Answer 1

您需要指定您正在“谈论”的工作表，在这里，只需在 Range(... 之前添加 Ws. 即可

因为如果您不指定正在使用哪个工作表，默认情况下，Excel 将考虑事件工作表!

Sub CleanUpMetricsBooks()
Dim ws As Worksheet

For Each ws In ActiveWorkbook.Worksheets
    ws.Range("M:N,P:Q,U:V,X:Y").EntireColumn.Delete
Next ws

End Sub