Question

关于excel vba 循环的问题

最近学习知道了for each......next循环，for each sht in sheets......next是工作簿中所有的工作表进行循环，如果想要指定的几个工作表进行循环怎么做，例如只想要sheet1至sheet9中的sheet2，sheet3，sheet5，sheet8进行循环可以吗？谢谢

Answer 1

以下两种都可以，试试看：

Sub 宏1()
    Dim Sh As Worksheet
    For Each Sh In Sheets(Array("Sheet1", "Sheet3", "Sheet5", "Sheet6", "Sheet8"))
        Sh.Range("A1") = 1
    Next
End Sub

Sub 宏2()
    Dim Sh, i As Byte
    Sh = Array("Sheet1", "Sheet3", "Sheet5", "Sheet6", "Sheet8")
    For i = 0 To 4
        Sheets(Sh(i)).Range("A2") = 100
    Next
End Sub