使用范围选择多个工作表

我在单元格 C2 到 C5 中有工作表名称，它们是动态的。我想使用VBA同时选择它们。

我发现的唯一方法是使用数组和“硬编码”工作表名称。

Sub ssheets()
    Worksheets(Array("Sheet2", "Sheet3","Sheet4","Sheet5")).Select
End Sub

我想要一些使用的东西Range("C2:C5")这样我就可以选择相关的工作表，而不必输入“Sheet2”，“Sheet3”，“Sheet4”，“Sheet5”等。

工作表名称数组必须是包含一维数组的 Variant 类型。 Range("C2:C5") 返回一个二维数组。要将其用作工作表名称数组，您必须转置它。

Sub ssheets()
    Dim oWS As Worksheet
    Dim aSheetnames As Variant
    Set oWS = Worksheets(1)
    aSheetnames = oWS.Range("C2:C5")
    aSheetnames = Application.WorksheetFunction.Transpose(aSheetnames)
    Worksheets(aSheetnames).Select
End Sub