Ugrás a tartalomra

 Hogyan lehet másolni a lapot és átnevezni automatikusan az Excel programban?

Szerző: Xiaoyang Utolsó módosítás: 2020-12-11

Az Excelben hogyan másolhatna át egy munkalapot és nevezheti át automatikusan anélkül, hogy beírná a nevet a szokásos módon? Ebben a cikkben arról fogok beszélni, hogyan lehet egy lapot egyszer vagy többször másolni, és egyszerre adni nekik konkrét neveket.

Többször másoljon egy munkalapot, és nevezze át növekményes fülek nevével a VBA kód használatával

Másoljon át egy munkalapot többször, és nevezze át egyéni nevekkel a Kutools for Excel segítségével


Ha többször kell másolnia egy munkalapot, és sorozatneveket kell megadnia nekik, például KTE-1, KTE-2, KTE-3, KTE-4 ..., akkor a következő VBA-kód tehet Önnek szívességet.

1. Tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.

VBA kód: Munkalap többször másolása és átnevezése egyszerre:

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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és egy prompt doboz emlékezteti Önt, hogy az aktuális munkalap hány példányát kívánja másolni, lásd a képernyőképet:

doc átnevezi a másolt lapokat 1

4. Írja be a másolatok számát a felbukkanó párbeszédpanelen, majd kattintson a gombra OK gombra, az aktuális munkalapot 5 példányban lemásoltuk és átneveztük sorozatnévvel az alábbi képernyőkép szerint:

doc átnevezi a másolt lapokat 2

Megjegyzések: A fenti kódban megváltoztathatja a munkalap nevének szövegétKTE-”A szükséges.


Lehet, hogy a fenti VBA kódokat nehezen tudja alkalmazni, itt bemutatok egy egyszerű eszközt - Kutools az Excel számára, Annak Készítsen szekvencia munkalapokat segédprogrammal, ezt a feladatot minden erőfeszítés nélkül elérheti.

Kutools az Excel számára : több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. 

Telepítése után Kutools az Excel számára, kérjük, tegye a következőket:

1. Kattints Kutools Plus > Munkalap > Készítsen szekvencia munkalapokat, lásd a képernyőképet:

2. Az Készítsen szekvencia munkalapokat párbeszédablak:

(1.) Válassza ki a munkalap nevét, amelyet át szeretne másolni a Alap munkalap legördülő lista;

(2.) Ezután adja meg a másolni kívánt munkalap számát A létrehozás száma szövegdoboz;

(3.) És akkor ellenőrizze Szekvenciaszámok alatt a Lapnevek alapján szakasz;

(4.) Végül hozza létre a szekvencia munkalap neveket a kívánt jobb oldali ablaktáblában, lásd a képernyőképet:

doc átnevezi a másolt lapokat 4

3. A beállítások elvégzése után kattintson a gombra Ok gombra, és az adott munkalapot többször másolta és átnevezte az új munkafüzetben létrehozott sorrendje alapján, lásd a képernyőképet:

doc átnevezi a másolt lapokat 5

Kattintson a Kutools ingyenes letöltése az Excelhez gombra most!


Kutools az Excel számára: több mint 300 praktikus Excel-bővítménnyel, ingyenesen, korlátozás nélkül, 30 nap alatt kipróbálható. Töltse le és ingyenes próbaverziót most!

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz.  Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...

Leírás


Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját

  • Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
  • Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
  • 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Is it possible that you add in this code an option to also copy specific cells. For example: I have in one cell Number 1 and I would like that when I duplicate Sheet will change for +1. Thanks
This comment was minimized by the moderator on the site
Wow this saved a lot of time for me! Thank you!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations