在Excel中創建工作表的列表對象

Question

我想在vba中運行一個for循環，其中包含工作簿的某些工作表，而不是全部。 因此，為此，我不知道如何創建列表對象。 我可以使用以下代碼在工作簿中的所有工作表之間循環，但是我不選擇某些特定工作表。

For Each ws In Worksheets

Answer 1

這樣的事情怎么樣，在這里創建一個數組。 Excel VBA可以使用的數據結構數量有限。 陣列是最適合您需求的陣列。 您聲明數組，然后遍歷它。 以下是解決您的問題的簡單示例。

Sub SelectSheet()

Dim SheetList(1 To 3) As String

SheetList(1) = "Sheet1"
SheetList(2) = "Sheet3"
SheetList(3) = "Sheet6"


For i = 1 To 3
    Sheets(SheetList(i)).Select
    Range("C3").FormulaR1C1 = "Here"

Next i

End Sub