Hoe maak je reekswerkbladen uit een reeks cellen in Excel?
Als u een gegevensbereik in uw werkblad heeft en u nu een reeks werkbladen wilt maken op basis van de celgegevens, zie de volgende schermafbeelding. U kunt de werkbladnaam natuurlijk een voor een handmatig bewerken, maar als er meerdere werkbladnamen moeten worden bewerkt, zal deze manier lastig en tijdrovend zijn. Hier zal ik het hebben over enkele snelle trucs om je te helpen.
Maak reekswerkbladen uit een lijst met cellen met VBA-code
Maak reekswerkbladen uit de lijst met cellen met Kutools voor Excel
Maak reekswerkbladen uit een lijst met cellen met VBA-code
De volgende VBA-code kan u helpen bij het toevoegen van enkele werkbladen met een naam op basis van de celinhoud na bestaande werkbladen. Doe alstublieft als volgt:
1. Houd de ALT + F11 toetsen, dan opent het de Microsoft Visual Basic voor toepassingen venster.
2. Klikken Invoegen > Moduleen plak de volgende code in het Module Venster.
VBA-code: voeg reekswerkbladen toe op basis van een lijst met cellen
Sub CreateWorkSheetByRange()
'Update 20130829
Dim WorkRng As Range
Dim Ws As Worksheet
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
Application.ScreenUpdating = False
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)
Set Ws = Worksheets.Add(after:=Application.ActiveSheet)
Ws.Name = arr(i, j)
Next
Next
Application.ScreenUpdating = True
End Sub
3. Druk vervolgens op F5 toets om deze code uit te voeren, en dan verschijnt er een promptvenster waarin u het bereik kunt selecteren dat u wilt gebruiken. Zie screenshot:
4. En klik vervolgens op OK, zijn de werkbladen die zijn benoemd door de celwaarden, toegevoegd na het bestaande werkblad. Zie screenshot:
Opmerkingen:
1. De nieuwe werkbladen worden ingevoegd na het huidige werkblad.
2. Als het geselecteerde bereik lege cellen bevat, krijgen de werkbladen een naam op basis van de standaardnaam. Zie screenshots:
Maak reekswerkbladen uit de lijst met cellen met Kutools voor Excel
Hier introduceer ik een handige tool-Kutools for Excel, Met Maak reekswerkbladenkunt u snel werkbladen maken met maandnaam, dagnaam, aangepaste lijst enzovoort.
Kutools for Excel bevat meer dan 300 handige Excel-tools. Gratis te proberen zonder beperking binnen 30 dagen. Get it Now.
Voer de volgende stappen uit na het installeren van Kutools voor Excel:
1. Selecteer het bereik waarop u werkbladen wilt maken op basis van.
2. Klik Enterprise > Werkbladhulpmiddelen > Maak reekswerkbladen, zie screenshot:
3. In de Maak reekswerkbladen dialoogvenster, kies het werkbladtype waarvoor u de nieuwe reekswerkbladen wilt maken en vink vervolgens aan Gegevens in een bereik optie, zie screenshot:
4. Dan klikken OK om het dialoogvenster te sluiten, en er is een nieuwe werkmap gemaakt die de werkbladen bevat met de naam van de geselecteerde bereikgegevens. Zie screenshot:
Opmerkingen:
1. Als u Blad 1 of Blad 2 kiest, hebben de nieuwe werkbladen dezelfde opmaak als Blad 1 of Blad 2.
2. De nieuwe werkbladen worden gemaakt in een nieuwe werkmap.
3. Als het geselecteerde bereik lege cellen bevat, krijgen de werkbladen een naam op basis van de standaardnaam. Zie screenshots:
Klik om meer te weten over deze functie Sequence Worksheets maken.
Gerelateerd artikel:
Hoe voeg ik nieuwe werkbladen met aangepaste namen toe in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!