宏不会去下一个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

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

因为如果您没有指定正在使用的工作表，默认情况下，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