U kunt niet direct een enkel Excel -blad opsplitsen in meerdere werkbladen binnen Excel zelf. U kunt dit echter bereiken met behulp van een combinatie van de ingebouwde functies van Excel en enkele creatieve manipulatie. Hier zijn een paar benaderingen:
1. De functie "Tekst naar kolommen" van Excel gebruiken:
Deze methode werkt het beste als uw gegevens een consistent scheiding hebben (zoals komma's, spaties of tabbladen) die de kolommen scheidt die u in afzonderlijke vellen wilt splitsen.
* Selecteer de gegevens: Markeer de volledige gegevensbereik die u wilt splitsen.
* Gebruik "Tekst naar kolommen": Ga naar data> tekst naar kolommen .
* Kies scheiding: Selecteer de scheidingsteken die uw gegevens scheidt (komma, ruimte, tab, enz.).
* Bestemming opgeven: Kies in het gedeelte "Bestemming" een nieuw werkblad om de gesplitste gegevens te plaatsen. U kunt een nieuw, leeg werkblad selecteren of "Nieuw blad maken" kiezen om automatisch een nieuwe te genereren.
* Afwerking: Klik op "Afwerking" en Excel maakt een nieuw werkblad voor elke kolom in uw oorspronkelijke gegevens.
2. VBA gebruiken (Visual Basic voor toepassingen):
Deze methode geeft u meer controle en flexibiliteit, zodat u gegevens kunt splitsen op basis van verschillende criteria zoals specifieke rijen, kolommen of waarden. Het vereist echter fundamentele VBA -kennis.
* Inschakel ontwikkelaar tab: Ga naar bestand> Opties> Lint aanpassen . Vink het vakje aan voor "Developer" en klik op "OK".
* VBA -editor openen: Ga naar ontwikkelaar> Visual Basic .
* Module invoegen: Klik in de VBA -editor op insert> module .
* Code plakken: Plak de volgende code in de module en pas de code aan om aan uw specifieke behoeften te voldoen.
`` `vba
Sub splitsheet ()
Dim WS als werkblad, Newsheet als werkblad
Dim lastrow zo lang, ik zo lang, j zo lang
'Stel het originele werkblad in
Set ws =thisworkbook.sheets ("sheet1") "wijzigen" blad1 "op uw bladnaam
'Zoek de laatste rij met gegevens
Lastrow =ws.cells (rijen.count, 1) .end (xlup).
'Loop door elke rij in het originele blad
Voor i =2 tot Lastrow 'Start vanaf rij 2 om de header over te slaan
'Maak een nieuw werkblad
Set newSheet =sheets.add (na:=sheets (sheets.count)))
'Kopieer gegevens naar een nieuw blad
Voor j =1 tot ws.useRange.Columns.Count
newSheet.Cells (1, J) .Value =WS.Cells (1, J) .Value 'Kopieerkop
newsheet.cells (2, j) .Value =ws.cells (i, j) .Value 'kopieergegevens
Volgende J
'Hernoem het nieuwe blad
newsheet.name ="Sheet" &i
Volgende ik
'Verwijder het originele blad (optioneel)
WS.Delete
Einde sub
`` `
3. Met behulp van tools van derden:
Verschillende add-ins en tools van derden kunnen het proces van het splitsen van Excel-vellen stroomlijnen. Sommige populaire opties zijn onder meer:
* Split sheet (Add-in beschikbaar op Microsoft Store):biedt een gebruikersvriendelijke interface om snel gegevens te splitsen op basis van verschillende criteria.
* Power Query: Deze ingebouwde Excel-functie (beschikbaar in Excel 2013 en later) kan worden gebruikt om query's te maken die uw gegevens transformeren en vormen, inclusief het splitsen in afzonderlijke werkbladen.
Belangrijke overwegingen:
* Gegevensorganisatie: De methode die u kiest, hangt af van hoe uw gegevens zijn georganiseerd. Consistente scheidingstekens zijn ideaal voor "tekst naar kolommen", terwijl VBA meer flexibiliteit biedt voor complexe splitsingsscenario's.
* headerrij: Zorg ervoor dat u een headerrij in het originele blad onderhoudt, omdat deze naar elk nieuw blad wordt gekopieerd.
* Formaat: Opmaak kan verloren gaan bij het splitsen van gegevens, dus u moet mogelijk na het splitsen opnieuw toepassen.
Kies de methode die het beste bij uw specifieke behoeften en gegevensstructuur past. Aarzel niet om te experimenteren en de methoden aan te passen aan uw unieke vereisten. |