קאָאָקיעס העלפֿן אונדז צושטעלן אונדזער באַדינונגס. דורך ניצן אונדזער באַדינונגס, איר שטימען צו אונדזער נוצן פון קיכלעך.
שפּיץ: אנדערע שפּראַכן זענען גוגל-איבערגעזעצט. איר קענען באַזוכן דעם English ווערסיע פון ​​דעם לינק.
צייכן אריין
x
or
x
x
רעגיסטרירן
x

or

ווי צו שפּאַלטן דאַטע אין קייפל ווערקשיץ באזירט אויף זייַל אין עקססעל?

סופּפּאָסינג איר האָבן אַ ווערקשיט מיט ריזיק ראָוז פון דאַטן, און איצט, איר דאַרפֿן צו שפּאַלטן די דאַטן אין קייפל ווערקשיץ באזירט אויף די נאָמען זייַל (זען ווייַטערדיק סקרעענשאָץ), און די נעמען זענען אריין ראַנדאַמלי. אפֿשר איר קענען סאָרט זיי ערשטער, און נאָכמאַכן און פּאַפּ זיי איינער דורך איינער אין אנדערע נייַע ווערקשיץ. אבער דעם וועט דאַרפֿן דיין געדולד צו צייכענען און פּאַפּ ריפּיטידלי. הייַנט, איך וועט רעדן וועגן עטלעכע שנעל טריקס צו סאָלווע דעם אַרבעט.

דאָק ספּליט דאַטן דורך שפאלטן קסנומקס

שפּאַלטן דאַטע אין קייפל ווערקשיץ באזירט אויף זייַל מיט וובאַ קאָד

שפּאַלטן דאַטע אין קייפל ווערקשיץ באזירט אויף זייַל מיט קוטאָאָלס פֿאַר עקססעל


שפּאַלטן דאַטע אין קייפל ווערקשיץ באזירט אויף ספּעציפיש זייַל אָדער ראָוז ציילן אין ווערקשיט:

אויב איר ווילן צו שפּאַלטן אַ גרויס ווערקשיט אין קייפל שיץ באזירט אויף ספּעציפיש זייַל דאַטע אָדער ראָוז ציילן, די קוטאָאָלס פֿאַר עקססעל's שפּאַלטן דאַטאַ שטריך קענען העלפן איר צו סאָלווע די אַרבעט געשווינד און לייכט.

דאָק ספּליט דאַטן דורך שפאלטן קסנומקס

קוטאָאָלס פֿאַר עקססעל: מיט מער ווי קסנומקס האַנטיק עקססעל לייגן-ינס, פֿרייַ צו פּרובירן מיט קיין שיעור אין קסנומקס טעג. אָפּלאָדירן און פֿרייַ פּראָצעס איצט!


שפּאַלטן דאַטע אין קייפל ווערקשיץ באזירט אויף זייַל מיט וובאַ קאָד


אויב איר ווילן צו שפּאַלטן די דאַטן באזירט אויף קאָלירן ווערט געשווינד און אויטאָמאַטיש, די ווייַטערדיק וובאַ קאָד איז אַ גוט ברירה. ביטע טאָן ווי דאָס:

1. האַלטן אַראָפּ די ALT + F11 שליסלען צו עפענען די מיקראָסאָפט וויסואַל באַסיק פֿאַר אַפּפּליקאַטיאָנס פֿענצטער.

2. דריקט אַרייַנלייגן > מאָדולעס, און פּאַפּ די פאלגענדע קאָד אין די מאָדולע פֿענצטער.

Sub parse_data()
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
vcol = 1        
Set ws = Sheets("Master sheet")        
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = "A1:C1"            
titlerow = ws.Range(title).Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
For i = 2 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
ws.Range("A" & titlerow & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A1")
Sheets(myarr(i) & "").Columns.AutoFit
Next
ws.AutoFilterMode = False
ws.Activate
End Sub

טאָן: אין די אויבן קאָד:

  • ווקאָל = קסנומקס , די נומער 1 איז די זייַל נומער וואָס איר ווילן צו שפּאַלטן די דאַטן באזירט אויף.
  • שטעלן ווס = שיץ ("בעל בלאַט"), Master sheet איז די בלאַט נאָמען וואָס איר ווילן צו צולייגן דעם קאָד.
  • title = "אַקסנומקס: קקסנומקס" , A1: קקסנומקס איז די קייט פון דעם טיטל.

אַלע פון ​​זיי זענען וועריאַבאַלז, איר קענען טוישן זיי ווי דיין דאַרפֿן.

3. דעמאָלט דרוק F5 שליסל צו לויפן די קאָד, אַלע דאַטן אין די אַקטיוו ווערקשיט זענען שפּאַלטן אין קייפל ווערקשיץ דורך די זייַל ווערט. און די שפּאַלטן ווערקשיץ זענען געהייסן מיט די שפּאַלטן צעל נעמען. זען סקרעענשאָט:

דאָק ספּליט דאַטן דורך שפאלטן קסנומקס

טאָן: די שפּאַלטן ווערקשיץ זענען געשטעלט אין די סוף פון די וואָרקבאָאָק ווו די בעל ווערקשיט איז אין.


שפּאַלטן דאַטע אין קייפל ווערקשיץ באזירט אויף זייַל מיט קוטאָאָלס פֿאַר עקססעל

ווי אַ עקססעל אָנהייבער, דעם לאַנג וובאַ קאָד איז עפּעס שווער פֿאַר אונדז, און רובֿ פון אונדז אַפֿילו טאָן ניט וויסן ווי צו מאָדיפיצירן די קאָד ווי אונדזער דאַרפֿן.

דאָ, איך וועט פאָרשטעלן איר אַ מולטיפונקטיאָנאַל געצייַג -קוטאָאָלס פֿאַר עקססעל, זייַן שפּאַלטן דאַטאַ נעטוואָרק ניט בלויז קענען העלפן איר שפּאַלטן דאַטן אין קייפל ווערקשיץ באזירט אויף זייַל, אָבער אויך קענען שפּאַלטן דאַטן דורך ראָוז רעכענען.

קוטאָאָלס פֿאַר עקססעל : מיט מער ווי קסנומקס האַנטיק עקססעל לייגן-ינס, פֿרייַ צו פּרובירן מיט קיין שיעור אין קסנומקס טעג.

אויב איר האָט אינסטאַלירן קוטאָאָלס פֿאַר עקססעל, ביטע טאָן ווי גייט:

1. סעלעקט די קייט פון דאַטן אַז איר ווילן צו שפּאַלטן.

2. דריקט Kutools More > וואָרקשעעט > שפּאַלטן דאַטאַ, זען סקרעענשאָט:

דאָק ספּליט דאַטן דורך שפאלטן קסנומקס

3. אין די ספּליט דאַטאַ אין מער ווי איין וואָרקשעעץ דיאַלאָג קעסטל, איר דאַרפֿן צו:

קסנומקס). אויסקלייַבן ספּעציעלע זייַל אָפּציע אין די שפּאַלטן באזירט אויף אָפּטיילונג, און קלייַבן די קאָלירן ווערט וואָס איר ווילן צו שפּאַלטן די דאַטן באזירט אין די פאַל-אַראָפּ רשימה. (אויב דיין דאַטן האט כעדערז און איר ווילן צו לייגן זיי אין יעדער נייַ שפּאַלטן ווערקשיט, ביטע טשעק מייַן דאַטן כעדערז אָפּציע.)

קסנומקס). דעמאָלט איר קענען ספּעציפיצירן די שפּאַלטן ווערקשיט נעמען, אונטער די ניו ווערקשיץ נאָמען אָפּטיילונג, ספּעציפיצירן די ווערקשיט נאָמען כּללים פון די כּללים פאַלן אַראָפּ רשימה, איר קענען לייגן די פּרעפיקס or סופפיקס פֿאַר די בויגן נעמען ווי געזונט.

קסנומקס). דריקט דעם OK קנעפּל. זען סקרעענשאָט:

דאָק ספּליט דאַטן דורך שפאלטן קסנומקס

4. איצט די דאַטן זענען שפּאַלטן אין קייפל ווערקשיץ אין אַ נייַ וואָרקבאָאָק.

דאָק ספּליט דאַטן דורך שפאלטן קסנומקס

דריקט צו אראפקאפיע קוטאָאָלס פֿאַר עקססעל און פֿרייַ פּראָצעס איצט!


שפּאַלטן דאַטע אין קייפל ווערקשיץ באזירט אויף זייַל מיט קוטאָאָלס פֿאַר עקססעל

קוטאָאָלס פֿאַר עקססעל כולל מער ווי קסנומקס האַנטיק עקססעל מכשירים. Free צו פּרובירן מיט קיין שיעור אין קסנומקס טעג. אָפּלאָדירן די פֿרייַ פּראָצעס איצט!


Related article:

ווי צו שפּאַלטן דאַטן אין קייפל ווערקשיץ דורך ראָוז ציילן?



רעקאַמענדיד פּראָדוקטיוויטי מכשירים

אָפיס טאַב

גאָלד סטאַרקסנומקס ברענגען האַנטיק טאַבס צו עקססעל און אנדערע אָפפיסע ווייכווארג, נאָר ווי קראָום, פירעפאָקס און נייַ Internet Explorer.

קוטאָאָלס פֿאַר עקססעל

גאָלד סטאַרקסנומקס געוואלדיג! פאַרגרעסערן דיין פּראָודאַקטיוויטי אין קסנומקס מינוט. טאָן ניט דאַרפֿן ספּעציעל סקילז, שפּאָרן צוויי שעה פּער טאָג!

גאָלד סטאַרקסנומקס 300 New פֿעיִקייטן פֿאַר עקססעל, מאַכן עקססעל פיל גרינג און שטאַרק:

  • צונויפגיסן צעל / ראָוז / שפאלטן אָן לאָסינג דאַטע.
  • קאַמביין און קאָנסאָלידירן מער ווי איין שיץ און וואָרקבאָאָקס.
  • פאַרגלייַכן רייען, קייפל ראַנגעס, קאָנווערט טעקסט צו טאָג, יוניט און קראַנטקייַט קאָנווערסיאָן.
  • גראף דורך פארבן, פּאַגינג סובטאָטאַלס, אַוואַנסירטע סאָרט און יבער פֿילטריר,
  • מער אויסקלייַבן / Insert / Delete / Text / Format / לינק / קאַמענט / וואָרקבאָאָקס / וואָרקשעעץ מכשירים ...

סקרין שאָס פון קוטאָאָלס פֿאַר עקססעל

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.
    Jason · 1 months ago
    This formula is great, works perfectly for me.
    I want to split out data based on a location, which is in column 1. Which this does.
    However, is it possible to also split out based on column 2, for example. Built and Not Built. So a secondary condition also?
  • To post as a guest, your comment is unpublished.
    jose · 1 months ago
    can someone help please im using this but i keep getting to many columns. i have to keep deleting rows every time i use this.

    This is what im using


    Sub parse_data()
    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
    vcol = 1
    Set ws = Sheets("sheet1")
    lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
    title = "A1:AN1"
    titlerow = ws.Range(title).Cells(1).Row
    icol = ws.Columns.Count
    ws.Cells(1, icol) = "Unique"
    For i = 2 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
    ws.Range("A" & titlerow & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A1")
    Sheets(myarr(i) & "").Columns.AutoFit
    Next
    ws.AutoFilterMode = False
    ws.Activate
    End Sub
  • To post as a guest, your comment is unpublished.
    avinash · 1 months ago
    Thanks for VBA, it works great. In addition to that question, I have column which is dependent. So when i select some value my column values get changed hence I need vba solution to replace earlier split worksheet to replace with new value of columns. Can anyone help me out.?

    Thanks in advance
  • To post as a guest, your comment is unpublished.
    JP Tontegode · 1 months ago
    Is there a way to have the macro create a separate spreadsheet for each new tab instead of just adding a tab into the current worksheet? Thanks!
  • To post as a guest, your comment is unpublished.
    Sebastian · 1 months ago
    Effectively, this code does work great. I wrote an additional code so that I could get subtotal on certain columns but it has not worked great. So I tried running the subtotals from the master list, but afterwards when I use this macro it create a whole new tab for the Grand total row. So I am getting two two tabs per split. the first one is fine because it splits with the grand totals, but then creates a second one with just the grand total row. Any help as to how to modify this.
    This is the code that I am currently using:
    Sub parse_data()
    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
    vcol = 3
    Set ws = Sheets("Master sheet")
    lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
    title = "A1:R1"
    titlerow = ws.Range(title).Cells(1).Row
    icol = ws.Columns.Count
    ws.Cells(1, icol) = "Unique"
    For i = 2 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
    ws.Range("A" & titlerow & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A1")
    Sheets(myarr(i) & "").Columns.AutoFit
    Next
    ws.AutoFilterMode = False
    ws.Activate
    End Sub