Jak skopiować arkusz i automatycznie zmienić nazwę w programie Excel?
W programie Excel, jak skopiować arkusz roboczy i zmienić jego nazwę automatycznie bez wpisywania nazwy jak zwykle? W tym artykule opowiem o tym, jak skopiować arkusz raz lub wiele razy i nadać im konkretne nazwy na raz.
Skopiuj arkusz wiele razy i zmień ich nazwy, dodając nazwy kart przyrostowych, używając kodu VBA
Skopiuj arkusz roboczy wiele razy i zmień ich nazwy na niestandardowe nazwy za pomocą Kutools for Excel
Skopiuj arkusz wiele razy i zmień ich nazwy, dodając nazwy kart przyrostowych, używając kodu VBA
Jeśli chcesz wielokrotnie skopiować arkusz i nadać im nazwy serii, takie jak KTE-1, KTE-2, KTE-3, KTE-4…, poniższy kod VBA może ci wyświadczyć przysługę.
1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. Kliknij wstawka > Modułi wklej następujący kod w Moduł Okno.
Kod VBA: skopiuj arkusz wiele razy i zmień nazwę na raz:
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. Następnie naciśnij F5 klucz do uruchomienia tego kodu, a okno zachęty przypomni Ci, ile kopii bieżącego arkusza roboczego chcesz skopiować, zobacz zrzut ekranu:
4. Wprowadź liczbę kopii w wyświetlonym oknie dialogowym, a następnie kliknij OK przycisk, twój bieżący arkusz został zduplikowany 5 kopii i zmieniono nazwę na nazwę sekwencji, jak pokazano na poniższym zrzucie ekranu:
Note: W powyższym kodzie możesz zmienić tekst nazwy arkusza roboczego „KTE-”Do swoich potrzeb.
Skopiuj arkusz roboczy wiele razy i zmień ich nazwy na niestandardowe nazwy za pomocą Kutools for Excel
Może powyższe kody VBA są trudne do zastosowania, tutaj przedstawię proste narzędzie- Kutools dla programu Excel, Z siedzibą w Utwórz Arkusze Sekwencji narzędzie, możesz wykonać to zadanie bez żadnego wysiłku.
Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. |
Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:
1. Kliknij Kutools Plus > Ćwiczenie > Utwórz Arkusze Sekwencjizobacz zrzut ekranu:
2, w Utwórz Arkusze Sekwencji Okno dialogowe:
(1.) Wybierz nazwę arkusza, który chcesz skopiować z pliku Arkusz podstawowy Lista rozwijana;
(2.) Następnie określ liczbę arkuszy, które chcesz skopiować Liczba utworzonych pole tekstowe;
(3.) A potem sprawdź Numery sekwencyjne pod Nazwy arkuszy oparte na Sekcja;
(4.) Na koniec utwórz nazwy arkuszy sekwencji w prawym panelu, które chcesz, zobacz zrzut ekranu:
3. Po zakończeniu ustawień kliknij Ok przycisk, a określony arkusz roboczy został wielokrotnie skopiowany i zmieniono jego nazwę na podstawie utworzonej sekwencji w nowym skoroszycie, patrz zrzut ekranu:
Kliknij Bezpłatne pobieranie Kutools dla programu Excel teraz!
Demo: skopiuj arkusz roboczy wiele razy i zmień ich nazwy na niestandardowe nazwy za pomocą Kutools for Excel
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!