关于excel vba 循环的问题

2024-11-25 14:32:32

推荐回答（1个）

回答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