Koekies help om ons dienste te lewer. Deur die gebruik van ons dienste, stem jy in tot ons gebruik van koekies.
Wenk: Ander tale is Google-vertaal. U kan die English weergawe van hierdie skakel.
Teken aan
x
or
x
x
registreer
x

or

Hoe om data te verdeel in verskeie werkkaarte gebaseer op kolom in Excel?

Gestel jy het 'n werkblad met groot rye data, en nou moet jy die data in verskeie werkkaarte op grond van die Naam kolom (sien die volgende skermkiekie), en die name word willekeurig ingevoer. Miskien kan jy hulle eers sorteer en dan hulle een vir een kopieer en plak in ander nuwe werkkaarte. Maar dit sal jou geduld nodig hê om te herhaaldelik kopieer en plak. Vandag sal ek praat oor 'n paar vinnige truuks om hierdie taak op te los.

doc verdeel data deur kolomme 1

Verdeel data in verskeie werkkaarte gebaseer op kolom met VBA-kode

Verdeel data in verskeie werkkaarte gebaseer op kolom met Kutools vir Excel


Verdeel data in verskeie werkkaarte gebaseer op spesifieke kolom of rye tel in werkblad:

As u 'n groot werkblad wil verdeel in verskeie velle gebaseer op spesifieke kolomdata of rye, tel die Kutools for Excel's Verdeel data funksie kan u help om hierdie taak vinnig en maklik op te los.

doc verdeel data deur kolomme 6

Kutools for Excel: met meer as 200 handige Excel invoegtoepassings, kan u sonder beperking in 60 dae probeer. Laai en gratis toets nou!


Verdeel data in verskeie werkkaarte gebaseer op kolom met VBA-kode


As jy die data vinnig en outomaties op die kolomwaarde wil verdeel, is die volgende VBA-kode 'n goeie keuse. Doen asseblief soos volg:

1. Hou die ALT + F11 sleutels om die Microsoft Visual Basic vir toepassings venster.

2. Kliek Plaas > module, en plak die volgende kode in die Module-venster.

Sub Splitdatabycol()
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub

3. Dan, druk F5 sleutel om die kode uit te voer, en 'n vinnige blokkie word uitgeskakel om jou te herinner om die koplys te kies, sien skermkiekie:

doc verdeel data deur kolomme 7

4. En dan, klik OK knoppie, en kies in die tweede blokkie die kolomdata wat jy wil verdeel, gebaseer op, sien skermkiekie:

doc verdeel data deur kolomme 8

5. Klik dan OK, en alle data in die aktiewe werkkaart is verdeel in verskeie werkkaarte deur die kolomwaarde. En die gesplete werkkaarte word met die gesplete selname genoem. Sien skermkiekie:

doc verdeel data deur kolomme 2

nota: Die verdeel werkkaarte word aan die einde van die werkboek geplaas waar die meesterwerkblad in is.


Verdeel data in verskeie werkkaarte gebaseer op kolom met Kutools vir Excel

As 'n Excel-beginner is hierdie lang VBA-kode vir ons moeilik, en die meeste van ons weet selfs nie hoe om die kode te verander soos ons nodig het nie.

Hier sal ek jou 'n multifunksionele hulpmiddel bekendstel -Kutools for Excel, sy Verdeel data nut kan nie net help om data in verskeie werkkaarte op grond van kolom te verdeel nie, maar kan ook data verdeel deur rye te tel.

Kutools for Excel : Met meer as 300 handige Excel invoegtoepassings, kan u sonder beperking in 60 dae probeer.

As jy geïnstalleer het Kutools for Excel, doen asseblief as volg:

1. Kies die reeks data wat jy wil verdeel.

2. Kliek Kutools Plus > Werkkaart > Verdeel data, sien skermkiekie:

doc verdeel data deur kolomme 3

3. in die Verdeel data in verskeie werkkaarte dialoogkassie, moet jy:

1). Kies Spesifieke kolom opsie in die Verdeel op grond van afdeling, en kies die kolom waarde waarmee u die data wil verdeel, gebaseer op die keuselys. (As u data opskrifte het en u dit wil plaas in elke nuwe verdeelwerkblad, gaan asseblief na My data het opskrifte opsie.)

2). Dan kan jy die gesplete werkkaartname spesifiseer onder die Nuwe werkkaart naam afdeling, spesifiseer die werkkaartnaamreëls van die Reëls drop down lys, kan jy die Prefix or suffix vir die vel name ook.

3). Klik op die OK knoppie. Sien skermkiekie:

doc verdeel data deur kolomme 4

4. Nou word die data verdeel in verskeie werkkaarte in 'n nuwe werkboek.

doc verdeel data deur kolomme 5

Kliek om Kutools te laai vir Excel en gratis proeflopie nou!


Verdeel data in verskeie werkkaarte gebaseer op kolom met Kutools vir Excel

Kutools for Excel sluit meer as 300 handige Excel-gereedskap in. Gratis om sonder beperking in 60 dae te probeer. Laai nou die gratis proeflopie af!


Verwante artikel:

Hoe om data in verskeie werkkaarte deur rye te verdeel?



Aanbevole Produktiviteitsinstrumente

Office Tab

goud star1 Bring handige oortjies na Excel en ander Office-sagteware, net soos Chrome, Firefox en nuwe Internet Explorer.

Kutools for Excel

goud star1 Amazing! Verhoog jou produktiwiteit in 5 minute. Geen spesiale vaardighede nodig nie, bespaar twee uur elke dag!

goud star1 300 Nuwe funksies vir Excel, maak Excel baie maklik en kragtig:

  • Voeg sel / Rye / Kolomme saam sonder om data te verloor.
  • Kombineer en konsolideer veelvuldige blaaie en werkboeke.
  • Vergelyk waardes, Kopieer verskeie reekse, skakel teks na datum, Eenheid en Geld Omskakeling.
  • Tel deur kleure, plasingsubtotale, gevorderde sorteer en superfilter,
  • Meer Kies / Invoeg / Skrap / Teks / Formaat / Skakel / Kommentaar / Werkboeke / Werkkaarte Gereedskap ...

Skermskoot van Kutools vir Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Osman · 1 years ago
    Just wondering if anyone knows how to: If I split data, and the original data tab changes e.g. more actions are listed, how do I get the subsequent tabs to update?

    Thank you
  • To post as a guest, your comment is unpublished.
    Joyce T · 1 years ago
    OMG, you just saved me hours of time. Thanks!
  • To post as a guest, your comment is unpublished.
    Yee · 1 years ago
    can it split base on date? i tried but date become "text" on sheet and no data on the individual sheet. I try change the date to "text" it works
    Please assist
    thanks & regards
  • To post as a guest, your comment is unpublished.
    Sonu Saifi · 1 years ago
    I have a Question ,
    when i am using VBA Code i face a error 'Run time error 6'. so, please help me how to resolve this issue...

    Thanks in Advance...
    • To post as a guest, your comment is unpublished.
      Shiva · 1 years ago
      Did that solve? if yes, Please share the same.
  • To post as a guest, your comment is unpublished.
    Jana · 1 years ago
    I get error message "Compile error: Syntax error" and then arrow pointing at "Sub parse_data()" which is also highlighted in yellow.

    Any suggestions what could went wrong?