Я понимаю, что составные индексы работают точно так же, как и обычные индексы, за исключением того, что они имеют многозначные ключи. Если вы определяете индекс в полях (a, b, c), так как составной индекс будет храниться в BinaryTree, поэтому ваш индекс будет работать только после комбинаций поисков.
ABC
AB
A
Например создание составного индекса для полей a, b и c эквивалентно созданию отдельных индексов для a, ab и abc.
Проще просто запустить точную копию, как показано ниже, чтобы поместить копию в качестве последнего листа
Sub Test()
Dim ws1 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("Master")
ws1.Copy ThisWorkbook.Sheets(Sheets.Count)
End Sub
'Make the excel file that runs the software the active workbook
ThisWorkbook.Activate
'The first sheet used as a temporary place to hold the data
ThisWorkbook.Worksheets(1).Cells.Copy
'Create a new Excel workbook
Dim NewCaseFile As Workbook
Dim strFileName As String
Set NewCaseFile = Workbooks.Add
With NewCaseFile
Sheets(1).Select
Cells(1, 1).Select
End With
ActiveSheet.Paste
ThisWorkbook.Worksheets("Master").Sheet1.Cells.Copy _
Destination:=newWorksheet.Cells
Выше будут скопированы ячейки. Если вы действительно хотите продублировать весь лист, я бы пошел с ответом @ brettdj .
Мне очень понравился код @ brettdj, но потом я обнаружил, что когда я добавил дополнительный код для редактирования копии, он переписал мой оригинальный лист. Я подправил его ответ так, чтобы дальнейший код, указанный на ws1
, повлиял на новый лист, а не на оригинал.
Sub Test()
Dim ws1 as Worksheet
ThisWorkbook.Worksheets("Master").Copy
Set ws1 = ThisWorkbook.Worksheets("Master (2)")
End Sub