Jak vytvořit více pracovních listů ze seznamu hodnot buněk?
Existují nějaké rychlé nebo snadné metody pro vytvoření více pracovních listů na základě seznamu hodnot buněk v aplikaci Excel? V tomto článku budu hovořit o některých dobrých tricích k vyřešení této práce.
Vytvořte více pracovních listů ze seznamu hodnot buněk pomocí kódu VBA
Vytvořte více pracovních listů ze seznamu hodnot buněk pomocí Kutools pro Excel
Vytvořte více pracovních listů ze seznamu hodnot buněk pomocí kódu VBA
Chcete-li rychle vytvořit několik nových pracovních listů, které jsou pojmenovány se seznamem hodnot buněk, může vám pomoci 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: Vytvořte více pracovních listů ze seznamu buněk:
Sub AddSheets()
'Updateby Extendoffice
Dim xRg As Excel.Range
Dim wSh As Excel.Worksheet
Dim wBk As Excel.Workbook
Set wSh = ActiveSheet
Set wBk = ActiveWorkbook
Application.ScreenUpdating = False
For Each xRg In wSh.Range("A1:A7")
With wBk
.Sheets.Add after:=.Sheets(.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xRg.Value
If Err.Number = 1004 Then
Debug.Print xRg.Value & " already used as a sheet name"
End If
On Error GoTo 0
End With
Next xRg
Application.ScreenUpdating = True
End Sub
Poznámka: Ve výše uvedeném kódu, A1: A7 je oblast buněk, na které chcete vytvářet listy, změňte ji podle potřeby.
3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a nové listy byly vytvořeny po všech listech v aktuálním sešitu, viz screenshot:
Vytvořte více pracovních listů ze seznamu hodnot buněk pomocí Kutools pro Excel
Pokud nemáte zkušenosti s výše uvedeným kódem, je zde užitečný nástroj -Kutools pro Excel, S jeho Vytvořte pracovní listy sekvence funkce, budou pracovní listy vytvořeny na základě hodnot buněk v novém sešitu.
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, udělejte prosím toto:
1, klikněte Kutools Plus > Pracovní list > Vytvořte pracovní listy sekvence, viz screenshot:
2. V Vytvořte pracovní listy sekvence dialogové okno:
(1.) Vyberte jeden list, ze kterého chcete vytvořit listy se sekvencemi na základě;
(2.) Poté vyberte Data v rozsahu možností od Názvy listů založené na seznamu a klikněte na tlačítko pro výběr hodnot buněk, které chcete použít.
3. A pak klikněte na tlačítko Ok Tlačítko, pracovní listy byly vytvořeny s názvy hodnot buněk v novém sešitu, viz screenshot:
Klikněte na Stáhnout a vyzkoušejte zdarma Kutools pro Excel hned!
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!