Как скопировать скрытый лист в Excel?
В Excel мы можем быстро и легко перемещать и копировать лист в текущую или другую книгу, но пробовали ли вы когда-нибудь скопировать скрытый лист в активную книгу? В этой статье я представлю вам код VBA для копирования определенного скрытого листа в активный файл Excel.
Скопируйте скрытый рабочий лист в активную книгу с кодом VBA
Скопируйте скрытый рабочий лист в активную книгу с кодом VBA
Чтобы скопировать скрытый лист из книги и дать ему имя, следующий код VBA может оказать вам услугу:
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код VBA: скопируйте скрытый рабочий лист в активную книгу:
Sub DupSheet()
'Updateby Extendoffice 20161109
Dim Actsheet As String
Application.ScreenUpdating = False
On Error Resume Next
ActiveWorkbook.Sheets("Sheet12").Visible = True
ActiveWorkbook.Sheets("Sheet12").Copy _
after:=ActiveWorkbook.Sheets("Sheet12")
ActNm = ActiveSheet.Name
ActiveSheet.Name = InputBox("Enter the name for the new sheet.")
Sheets(ActiveSheet.Name).Visible = True
ActiveWorkbook.Sheets("Sheet12").Visible = False
Application.ScreenUpdating = True
End Sub
Внимание: В приведенном выше коде Лист 12 - это скрытый лист, который вы хотите скопировать, измените его по своему усмотрению.
3, Затем нажмите F5 нажмите клавишу для запуска этого кода, появится окно подсказки, напоминающее вам указать имя для новой копии скрытого рабочего листа, см. снимок экрана:
4. Затем нажмите OK кнопку, и скрытый лист будет сразу скопирован с новым именем в активную книгу.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!