macros不会去下一个WS

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

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