对于每个函数,循环使用特定命名的工作表

Question

我试图找出正确的方法来编写一个宏,该宏遍历12个具有特定名称的工作表(Jan,Feb,...,Dec).我想也许每个功能都是一个不错的选择,所以我尝试了以下内容:

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张每张,并跳过同一工作簿中的所有其他表吗？

谢谢

Answer 1

啊,蒂姆打败了我......但我的答案略有不同......

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