Note: The other languages of the website are Google-translated. Back to English

 Hogyan lehet másolni a lapot és átnevezni az Excel cellaértéke alapján?

Normál esetben alkalmazhatja a Áthelyezés vagy Másolás funkciót a munkalap másolásához, majd szükség szerint írja be a másolat új nevét. De, megpróbálta már átnevezni a lapot egy cellaérték alapján a munkalap másolása után? Ebben a cikkben arról fogok beszélni, hogy miként nevezhetjük át automatikusan a munkalapot a cellák értéke alapján, amikor másolatot készítenek.

Másoljon egy munkalapot, és nevezze át a cellaérték alapján VBA kóddal

Többször másoljon egy munkalapot, és nevezze át a cellaértékek alapján a Kutools for Excel programmal


Másoljon egy munkalapot, és nevezze át a cellaérték alapján VBA kóddal

A következő VBA-kód segíthet a munkalap másolásában és egy adott cellaérték automatikus átnevezésében, kérjük, tegye a következőket:

1. Aktiválja a másolni kívánt munkalapot, majd 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: Másoljon egy munkalapot, és nevezze át cellaértékkel:

Sub Copyrenameworksheet()
'Updateby Extendoffice
    Dim ws As Worksheet
    Set wh = Worksheets(ActiveSheet.Name)
    ActiveSheet.Copy After:=Worksheets(Sheets.Count)
    If wh.Range("A1").Value <> "" Then
    ActiveSheet.Name = wh.Range("A1").Value
    End If
    wh.Activate
End Sub

3. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, és az aktuális munkalapot az összes munkalap után átmásolta az aktuális munkafüzetbe, és átnevezi a megadott cellaértékkel, lásd a képernyőképet:

doc másolja a raname értékét 1-re

Megjegyzések: A fenti kódban a cellahivatkozás A1 az a cellaérték, amelyet át akar nevezni az új másolt lapra, igény szerint módosíthatja.


Többször másoljon egy munkalapot, és nevezze át a cellaértékek alapján a Kutools for Excel programmal

A fenti kód csak egy cellaértékkel nevezhet át, ha többször kell másolni a lapot, és át kell nevezni őket a cellaértékek listája alapján, Kutools az Excel számára'S Szekvencia munkalap létrehozása segíthet a feladat lehető leggyorsabb elvégzésében.

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:

doc másolja a raname értékét 3-re

2. Az Szekvencia munkalap létrehozása párbeszédpanelen hajtsa végre a következő műveleteket:

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

(2.) Válassza az Adatok tartományban lehetőséget a Lapnevek alapján szakaszban, és kattintsunk rá doc másolja a raname értékét 5-re gombbal válassza ki azokat a cellák értékeit, amelyek alapján át akarja nevezni a másolt munkalapokat.

Töltse le a Kutools for Excel programot most!

3. Ezután kattintson Ok gombot, és az adott munkalapot többször másolták és átnevezték az új munkafüzetben kiválasztott cellaértékekkel, lásd a képernyőképet:

doc másolja a raname értékét 4-re

Töltse le és ingyenes próbaverziót Kutools for Excel Now!


Bemutató: Többször másoljon egy munkalapot, és nevezzen át cellaértékek alapján a Kutools for Excel programmal

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 termelékenységi eszközök

A Kutools for Excel megoldja a legtöbb problémát, és 80% -kal növeli a termelékenységet

  • újrafelhasználás: Gyorsan helyezze be összetett képletek, diagramok és bármi, amit korábban használt; Cellák titkosítása jelszóval; Levelezőlista létrehozása és e-maileket küldeni ...
  • Szuper Formula Bár (könnyedén szerkeszthet több szöveget és képletet); Olvasás elrendezés (könnyen olvasható és szerkeszthető nagyszámú cella); Beillesztés a Szűrt tartományba...
  • Cellák / sorok / oszlopok egyesítése az adatok elvesztése nélkül; Osztott cellák tartalma; Kombinálja a duplikált sorokat / oszlopokat... megakadályozza az ismétlődő cellákat; Hasonlítsa össze a tartományokat...
  • Válassza a Másolat vagy az Egyedi lehetőséget Sorok; Válassza az Üres sorok lehetőséget (az összes cella üres); Super Find és Fuzzy Find sok munkafüzetben; Véletlenszerű kiválasztás ...
  • Pontos másolás Több cella a képletreferencia megváltoztatása nélkül; Automatikus referenciák létrehozása több lapra; Helyezze be a golyókat, Jelölőnégyzetek és még sok más ...
  • Kivonat szöveg, Szöveg hozzáadása, Eltávolítás pozíció szerint, Hely eltávolítása; Hozz létre és nyomtasson személyhívó részösszegeket; Konvertálás a cellatartalom és a megjegyzések között...
  • Szuper szűrő (mentse el és alkalmazza a szűrősémákat más lapokra); Haladó rendezés hónap / hét / nap, gyakoriság és egyebek szerint; Speciális szűrő félkövér, dőlt betűvel ...
  • Kombinálja a munkafüzeteket és a munkalapokat; Táblázatok egyesítése kulcsoszlopok alapján; Az adatok felosztása több lapra; Kötegelt konvertálás xls, xlsx és PDF...
  • Több mint 300 hatékony funkció. Támogatja az Office / Excel 2007-2021 és 365 verziókat. Minden nyelvet támogat. Könnyű üzembe helyezés vállalatában vagy szervezetében. Teljes funkciók 30 napos ingyenes próbaverzió. 60 napos pénzvisszafizetési garancia.
kte lap 201905

Az Office fül a füles felületet hozza 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!
officetab alja
A megjegyzések rendezése szerint
Hozzászólások (2)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Az alábbi kód remekül működik. A kérdésem az, hogy lehetséges-e automatikusan megnyitni az új munkalapot (A1 alapján) és törölni az előző munkalap tartalmát, mivel azt sablonként használjuk? Sub Copyrenameworksheet() 'Frissítés által Extendoffice 20160704 Dim ws As Worksheet Set wh = Worksheets(ActiveSheet.Name) ActiveSheet.Copy After:=Worksheets(Sheets.Count) If wh.Range("A1").Érték "" Akkor ActiveSheet.Name = wh.Range("A1 ").Érték vége Ha wh.Activate End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Az Ön kódja az, amit kerestem, de a cella tartalma, amelyet a lap átnevezésére szeretnék használni, egy dátum. Például az első lapon az A2 cella dátumot jelenít meg 3. április 2017. hétfőként. Azt szeretném, ha a következő munkalapot létrehozná a makró, hogy átvegye a dátumot az A2-ből, és adjon hozzá 7-et a megjelenítéshez. például "10. július 2017. hétfő", de nevezze át az új lapot nn-hh-éé formátumra, tehát "10-07-17". Van erre lehetőség? Egyébként van Kutools for Excel, de ez a táblázat egy vérnyomásrekord lesz apám számára, akinek nincs Kutools. Előre is köszönöm!
Még senki sem írt megjegyzést

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi