Hogyan lehet másolni a lapot és átnevezni automatikusan az Excel programban?
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
Többször másoljon egy munkalapot, és nevezze át növekményes fülek nevével a VBA kód használatával
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:
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:
Megjegyzések: A fenti kódban megváltoztathatja a munkalap nevének szövegétKTE-”A szükséges.
Másoljon át egy munkalapot többször, és nevezze át egyéni nevekkel a Kutools for Excel segítségével
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:
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:
Kattintson a Kutools ingyenes letöltése az Excelhez gombra most!
Demo: Másoljon át egy munkalapot többször, és nevezze át egyéni nevekre a Kutools for Excel segítségével
A legjobb irodai hatékonyságnövelő eszközök
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...
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!
