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

or

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

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


שולדבאַנק-שפּאַלטן-דאַטע-דורך-ראָוזקסנומקס


-2



שולדבאַנק-שפּאַלטן-דאַטע-דורך-ראָוזקסנומקס
שולדבאַנק-שפּאַלטן-דאַטע-דורך-ראָוזקסנומקס
שולדבאַנק-שפּאַלטן-דאַטע-דורך-ראָוזקסנומקס
שולדבאַנק-שפּאַלטן-דאַטע-דורך-ראָוזקסנומקס

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

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


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


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

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

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

VBA: שפּאַלטן דאַטן אין שיץ דורך ראָוז רעכענען אין עקססעל.

Sub SplitData()
'Updateby20140617
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
SplitRow = Application.InputBox("Split Row Num", xTitleId, 5, Type:=1)
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (WorkRng.Rows.Count - xRow.Row + 1) < SplitRow Then resizeCount = WorkRng.Rows.Count - xRow.Row + 1
    xRow.Resize(resizeCount).Copy
    Application.Worksheets.Add after:=Application.Worksheets(Application.Worksheets.Count)
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

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

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

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


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

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

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

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

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

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

2. דריקט פאַרנעמונג > וואָרקשעעט מכשירים > שפּאַלטן דאַטאַ (אָדער פאַרנעמונג > שפּאַלטן דאַטאַ ), זען סקרעענשאָט:

שולדבאַנק-שפּאַלטן-דאַטע-דורך-ראָוזקסנומקס

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

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

שולדבאַנק-שפּאַלטן-דאַטע-דורך-ראָוזקסנומקס

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

שולדבאַנק-שפּאַלטן-דאַטע-דורך-ראָוזקסנומקס

דריקט צו וויסן מער וועגן דעם ספּליט דאַטאַ שטריך.

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.
    Max · 9 months ago
    Omg thank you so very much dude!
  • To post as a guest, your comment is unpublished.
    prasanna · 1 years ago
    Hi Thanks for this great code, but the concern is, here we can only split fixed number of rows, can you help me with split is based on some name or code, because i have different set of rows for each worksheet.
  • To post as a guest, your comment is unpublished.
    aparna · 2 years ago
    hi this works great but want the output as string how can i modify the code or i can say example : 'output',
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks a lot for the fantastic VBA-Script. But how to modify it to keep the header row on every split?
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks, for this fantastic VBA-Script. But how to configure it to repeat the header row on every split?