Jak kopírovat skrytý list v aplikaci Excel? 

V aplikaci Excel můžeme rychle a snadno přesunout a zkopírovat list do aktuálního nebo jiného sešitu, ale zkusili jste někdy zkopírovat skrytý list do aktivního sešitu? V tomto článku vám představím kód VBA pro kopírování konkrétního skrytého listu do aktivního souboru aplikace Excel.

Zkopírujte skrytý list do aktivního sešitu s kódem VBA

Zkopírujte skrytý list do aktivního sešitu s kódem VBA

Chcete-li zkopírovat skrytý list ze sešitu a pojmenovat jej, můžete si udělat následující kód VBA:

1. Podržte 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 skrytý list do aktivního sešitu:

Sub DupSheet()
'Updateby Extendoffice 20161109
    Dim Actsheet As String
    Application.ScreenUpdating = False
    On Error Resume Next
    ActiveWorkbook.Sheets("Sheet12").Visible = True
    ActiveWorkbook.Sheets("Sheet12").Copy _
    after:=ActiveWorkbook.Sheets("Sheet12")
    ActNm = ActiveSheet.Name
    ActiveSheet.Name = InputBox("Enter the name for the new sheet.")
    Sheets(ActiveSheet.Name).Visible = True
    ActiveWorkbook.Sheets("Sheet12").Visible = False
    Application.ScreenUpdating = True
End Sub

Pozor: Ve výše uvedeném kódu, Sheet 12 je skrytý list, který chcete zkopírovat, změňte jej podle potřeby.

3. A pak stiskněte F5 klíč ke spuštění tohoto kódu, vyskočí okno s výzvou, které vám připomene zadat název nové kopie skrytého listu, viz screenshot:

4. Pak klikněte na tlačítko OK tlačítko a skrytý list byl zkopírován s novým názvem do aktivního sešitu najednou.