Arrays 在VB中使用单元格引用定义数组
我尝试使用单元格引用来定义数组,而不是每次所需工作表更改时都需要更改宏 我在表格的单元格B29中列出了所需的表格,因此我尝试Arrays 在VB中使用单元格引用定义数组,arrays,excel,vba,range,Arrays,Excel,Vba,Range,我尝试使用单元格引用来定义数组,而不是每次所需工作表更改时都需要更改宏 我在表格的单元格B29中列出了所需的表格,因此我尝试 .Sheets(Array(WorkSheets("Approver 4").Range("B29"))).Copy 但这并不奏效 因此,目前我无法将工作表名称列为: .Sheets(Array("Scenario Summary", "Scenario 1-3 ML(JA) Logon Pages", "Scenario 4-6 ML(ZH) Logon Pages"
.Sheets(Array(WorkSheets("Approver 4").Range("B29"))).Copy
但这并不奏效
因此,目前我无法将工作表名称列为:
.Sheets(Array("Scenario Summary", "Scenario 1-3 ML(JA) Logon Pages", "Scenario 4-6 ML(ZH) Logon Pages", "Scenario 7-9 ML(ZH) Logon Pages", "Approver 4")).Copy
Set Sourcewb = ActiveWorkbook
'Copy the sheets to a new workbook
With Sourcewb
Set TheActiveWindow = ActiveWindow
Set TempWindow = .NewWindow
'copy the below sheet names from the Worksheets cell (B29) on the worksheet
.Sheets(Array("Scenario Summary", "Scenario 1-3 ML(JA) Logon Pages", "Scenario 4-6 ML(ZH) Logon Pages", "Scenario 7-9 ML(ZH) Logon Pages", "Approver 4")).Copy
End With
有什么建议吗?非常感谢 假设您的单元格
B29
包含一个逗号分隔的列表,没有引号和空格,请尝试
.Sheets(Split(WorkSheets("Approver 4").Range("B29"),",")).Copy
B29中的预期数据
Scenario Summary,Scenario 1-3 ML(JA) Logon Pages,Scenario 4-6 ML(ZH) Logon Pages,Scenario 7-9 ML(ZH) Logon Pages,Approver 4
如果您的任何工作表名称包含,