Как да копирате скрит лист в Excel?
В Excel можем да преместим и копираме лист в текуща или друга работна книга бързо и лесно, но опитвали ли сте някога да копирате скрит лист в активна работна книга? В тази статия ще ви представя код на VBA, за да копирате конкретен скрит лист в активен файл на Excel.
Копирайте скрит работен лист в активна работна книга с VBA код
Копирайте скрит работен лист в активна работна книга с VBA код
За да копирате скрит лист от работна книга и да му дадете име, следният VBA код може да ви направи услуга:
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
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 за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!