Jak kopírovat list a přejmenovat na základě hodnoty buňky v aplikaci Excel?
Za normálních okolností můžete použít Přesunout nebo Kopírovat funkce pro kopírování listu a poté podle potřeby ručně zadejte nový název kopie. Zkusili jste ale někdy po zkopírování listu přejmenovat list na základě hodnoty buňky? V tomto článku budu hovořit o tom, jak automaticky přejmenovat list na základě hodnoty buňky, když vytvoříte kopii.
Zkopírujte list a přejmenujte na základě hodnoty buňky pomocí kódu VBA
Zkopírujte list vícekrát a přejmenujte na základě hodnot buněk pomocí Kutools pro Excel
Zkopírujte list a přejmenujte na základě hodnoty buňky pomocí kódu VBA
Následující kód VBA vám pomůže zkopírovat list a automaticky jej přejmenovat na konkrétní hodnotu buňky, postupujte takto:
1. Aktivujte list, který chcete zkopírovat, a poté podržte klávesu ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2, klikněte Vložit > Modula vložte následující kód do Modul Okno.
Kód VBA: Zkopírujte list a přejmenujte jej s hodnotou buňky:
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. A pak stiskněte F5 klíč ke spuštění tohoto kódu a váš aktuální list byl zkopírován do aktuálního sešitu po všech listech a je přejmenován na zadanou hodnotu buňky, viz screenshot:
Poznámka: Ve výše uvedeném kódu odkaz na buňku A1 je hodnota buňky, kterou chcete přejmenovat pro nový zkopírovaný list, můžete ji podle potřeby změnit.
Zkopírujte list vícekrát a přejmenujte na základě hodnot buněk pomocí Kutools pro Excel
Výše uvedený kód lze přejmenovat pouze s jednou hodnotou buňky, pokud potřebujete list zkopírovat vícekrát a přejmenovat je na základě seznamu hodnot buněk, Kutools pro ExcelJe Vytvořte Sequence Worksheet vám pomůže dokončit tento úkol co nejrychleji.
Kutools pro Excel : s více než 300 praktickými doplňky Excel, můžete si je vyzkoušet bez omezení do 30 dnů. |
Po instalaci Kutools pro Excel, postupujte následovně:
1, klikněte Kutools Plus > Pracovní list > Vytvořte pracovní listy sekvence, viz screenshot:
2. V Vytvořte Sequence Worksheet dialogové okno, proveďte následující operace:
(1.) Vyberte název listu, který chcete zkopírovat z Základní pracovní list rozbalovací seznam;
(2.) Vyberte možnost Data v rozsahu pod položkou Názvy listů založené na a klepněte na tlačítko Tlačítko pro výběr hodnot buněk, na které chcete přejmenovat zkopírované listy na základě.
3. Pak klikněte na tlačítko Ok Tlačítko a konkrétní list byly zkopírovány vícekrát a přejmenovány na hodnoty buněk, které jste vybrali v novém sešitu, viz screenshot:
Stáhněte si zdarma zkušební verzi Kutools pro Excel!
Ukázka: Několikrát zkopírujte list a přejmenujte jej na základě hodnot buněk pomocí programu Kutools pro Excel
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!