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 několikrát a přejmenujte ho na základě hodnot buněk pomocí Kutools for 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:

Pozor: 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 několikrát a přejmenujte ho na základě hodnot buněk pomocí Kutools for 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 for ExcelJe Vytvořte Sequence Worksheet vám pomůže dokončit tento úkol co nejrychleji.

Po instalaci Kutools for 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ě.

Ke stažení Kutools for Excel Nyní !

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: