我正在尝试找出编写宏的正确方法,该宏将遍历 12 个具有特定名称(一月、二月、...、十二月)的工作表。我想也许for each
将是一个不错的选择,所以我尝试了以下方法:
dim crntSht as worksheet
set crntsht=("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "Dec")
for each crntsht in worksheets
.
.
.
end for
自从我定义以来这不起作用crntsht
以错误的方式。
任何人都可以建议最好的方法来循环遍历所有 12 个工作表,并跳过同一工作簿中的所有其他工作表吗?
啊,蒂姆打败了我……不过我的答案略有不同……
Sub LoopThroughSheets()
Dim Months As Variant
Dim Month As Variant
Months = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", _
"Aug", "Sep", "Oct", "Nov", "Dec")
For Each Month In Months
'Code goes here.
Next Month
End Sub
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)