基於單元格值設置表格陣列

Question

我想知道是否可以根據不同工作表中的單元格值設置陣列。例如，我有一個文件，我根據他們在「C3」值

Sub rename() 
    Dim ws As Worksheet 

    For Each ws In Sheets 
     On Error Resume Next 
     ws.Name = ws.Range("C3") 
    Next ws 

End Sub 

之後，我第一個重命名錶，我通過每一個「老」片的創建一個新的文件和環搜索特定的值。但因爲我知道表是如何命名的，我的範圍和其他設置這個樣子

Dim i As Integer 
Dim resultrange As Range 
Dim row As Range 
Dim sheetsArray As Sheets 
Set sheetsArray = ActiveWorkbook.Sheets(Array("10", "20", "30", "40", "50")) 

Dim target As Range 
Dim sheetObject As Worksheet 
Dim lastrow As Long 
lastrow = Cells.SpecialCells(xlCellTypeLastCell).row 

我有點擔心關於下面的代碼，因爲現在我知道了表的命名方式。

Set sheetsArray = ActiveWorkbook.Sheets(Array("10", "20", "30", "40", "50")) 

所以我的問題在這裏，是否有可能設置一個數組而不知道工作表是如何命名的？或者是否可以根據單元格中的名稱給出範圍？

我希望我可以表達我的問題可以理解

Answer 1

您可以在工作表的索引存儲在數組中。除非工作表的順序改變，否則它們不會改變。