Скопировать весь лист на новый лист в Excel 2010

Я понимаю, что составные индексы работают точно так же, как и обычные индексы, за исключением того, что они имеют многозначные ключи. Если вы определяете индекс в полях (a, b, c), так как составной индекс будет храниться в BinaryTree, поэтому ваш индекс будет работать только после комбинаций поисков.

ABC
AB
A

Например создание составного индекса для полей a, b и c эквивалентно созданию отдельных индексов для a, ab и abc.

23
задан pnuts 26 March 2015 в 17:03
поделиться

4 ответа

Проще просто запустить точную копию, как показано ниже, чтобы поместить копию в качестве последнего листа

Sub Test()
Dim ws1 As Worksheet
Set ws1 = ThisWorkbook.Worksheets("Master")
ws1.Copy ThisWorkbook.Sheets(Sheets.Count)
End Sub
36
ответ дан brettdj 26 March 2015 в 17:03
поделиться
'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
1
ответ дан Olle Sjögren 26 March 2015 в 17:03
поделиться
ThisWorkbook.Worksheets("Master").Sheet1.Cells.Copy _
    Destination:=newWorksheet.Cells

Выше будут скопированы ячейки. Если вы действительно хотите продублировать весь лист, я бы пошел с ответом @ brettdj .

17
ответ дан Jean-François Corbett 26 March 2015 в 17:03
поделиться

Мне очень понравился код @ brettdj, но потом я обнаружил, что когда я добавил дополнительный код для редактирования копии, он переписал мой оригинальный лист. Я подправил его ответ так, чтобы дальнейший код, указанный на ws1, повлиял на новый лист, а не на оригинал.

Sub Test()
    Dim ws1 as Worksheet
    ThisWorkbook.Worksheets("Master").Copy
    Set ws1 = ThisWorkbook.Worksheets("Master (2)")
End Sub
2
ответ дан S M Perron 26 March 2015 в 17:03
поделиться
Другие вопросы по тегам:

Похожие вопросы: