Как да копирате лист и да преименувате автоматично в Excel?
В Excel как можете да копирате работен лист и да го преименувате автоматично, без да въвеждате името, както обикновено? В тази статия ще говоря за това как да копирате лист веднъж или няколко пъти и да им дадете конкретни имена наведнъж.
Копирайте работен лист няколко пъти и ги преименувайте с персонализирани имена с помощта на Kutools за Excel
Копирайте работен лист няколко пъти и ги преименувайте с нарастващи имена на раздели, като използвате VBA код
Ако трябва да копирате работен лист няколко пъти и да им дадете имена на серии, като KTE-1, KTE-2, KTE-3, KTE-4…, следният VBA код може да ви направи услуга.
1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. Щракнете Поставете > Модулии поставете следния код в Модули Window.
VBA код: Копирайте работен лист няколко пъти и преименувайте наведнъж:
Sub Create()
'Updateby Extendoffice
Dim I As Long
Dim xNumber As Integer
Dim xName As String
Dim xActiveSheet As Worksheet
On Error Resume Next
Application.ScreenUpdating = False
Set xActiveSheet = ActiveSheet
xNumber = InputBox("Enter number of times to copy the current sheet")
For I = 1 To xNumber
xName = ActiveSheet.Name
xActiveSheet.Copy After:=ActiveWorkbook.Sheets(xName)
ActiveSheet.Name = "KTE-" & I
Next
xActiveSheet.Activate
Application.ScreenUpdating = True
End Sub
3. След това натиснете F5 за да изпълните този код и поле за подкана ще ви напомни колко копия от текущия работен лист искате да копирате, вижте екранна снимка:
4. Въведете броя на копията в изскачащия диалогов прозорец и след това щракнете OK бутон, текущият ви работен лист е дублиран в 5 копия и е преименуван с име на последователност, както е показано на следната екранна снимка:
Забележка: В горния код можете да промените текста на името на работния лист „KTE-” според вашите нужди.
Копирайте работен лист няколко пъти и ги преименувайте с персонализирани имена с помощта на Kutools за Excel
Може би горните VBA кодове са трудни за прилагане, тук ще ви представя лесен инструмент- Kutools за Excel, Със своята Създаване на работни листове за последователност utility, можете да постигнете тази задача без никакви усилия.
| Kutools за Excel : с повече от 300 удобни добавки за Excel, безплатни за изпробване без ограничение за 30 дни. |
След инсталиране Kutools за Excel, моля, направете следното:
1. Щракнете Kutools плюс > Работен лист > Създаване на работни листове за последователност, вижте екранна снимка:
2. В Създаване на работни листове за последователност диалогов прозорец:
(1.) Изберете името на работния лист, от който искате да копирате Основен работен лист падащ списък;
(2.) След това посочете номера на работния лист, под който искате да копирате Броят на съз текстово поле;
(3.) И след това проверете Поредни номера под Имена на листове, базирани на раздел;
(4.) Най-накрая създайте имената на работния лист с последователност в десния панел, който искате, вижте екранна снимка:
3. След като приключите с настройките, моля щракнете Ok и конкретният работен лист е копиран многократно и преименуван въз основа на вашата създадена последователност в нова работна книга, вижте екранна снимка:
Щракнете върху Безплатно изтегляне на Kutools за Excel сега!
Демонстрация: Копирайте работен лист няколко пъти и ги преименувайте с персонализирани имена с помощта на Kutools за Excel
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!
