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

or

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

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

  1. שפּאַלטן אַ וואָרקבאָאָק צו באַזונדער עקססעל טעקעס מיט קאַפּיינג און פּאַסטינג
  2. ספּליט אַ וואָרקבאָאָק צו באַזונדער עקססעל פילעס מיט מאַך אָדער קאָפּי שטריך
  3. שפּאַלטן אַ וואָרקבאָאָק צו באַזונדער עקססעל טעקעס מיט וובאַ קאָד
  4. שפּאַלטן אַ וואָרקבאָאָק צו באַזונדער עקססעל / פּדף / קסוו / טקסט טעקעס מיט קוטאָאָלס פֿאַר עקססעל לייכט

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

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

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


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


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

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


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

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

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

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

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

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


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

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

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

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

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

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

Sub Splitbook()
'Updateby20140612
Dim xPath As String
xPath = Application.ActiveWorkbook.Path
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For Each xWs In ThisWorkbook.Sheets
    xWs.Copy
    Application.ActiveWorkbook.SaveAs Filename:=xPath & "\" & xWs.Name & ".xlsx"
    Application.ActiveWorkbook.Close False
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

4. דרוק די F5 שליסל צו לויפן דעם קאָד. און די אַרבעטבוך איז שפּאַלטן צו באַזונדער עקססעל טעקעס אין דער זעלביקער טעקע מיט די אָריגינעל וואָרקבאָאָק. זען סקרעענשאָט:

טאָן: אויב איינער פון די שיץ האט די זעלבע נאָמען מיט די וואָרקבאָאָק, דעם וובאַ קען נישט אַרבעטן.


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

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

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

1. נאָך ינסטאָלינג קוטאָאָלס פֿאַר עקססעל, גיט Kutools More > שפּאַלטן וואָרקבאָאָק , זען סקרעענשאָט:

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

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

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

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

קוטאָאָלס פֿאַר עקססעל's שפּאַלטן וואָרקבאָאָק געצייַג מאכט עס גרינג צו ספּליט אַקטיוו וואָרקבאָאָק אין יחיד עקססעל טעקעס (איין טעקע כּולל איינער ווערקשיט), קסוו טעקעס, טקסט טעקעס, אָדער PDF טעקעס ווי איר דאַרפֿן. איר קענען באַשטימען צו אַלע די ליידיק און פאַרבאָרגן ווערקשיץ. האָבן אַ פֿרייַ פּראָצעס!


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

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


ענליכע ארטיקלען:



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

אָפיס טאַב

גאָלד סטאַרקסנומקס ברענגען האַנטיק טאַבס צו עקססעל און אנדערע אָפפיסע ווייכווארג, נאָר ווי קראָום, פירעפאָקס און נייַ 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.
    KP · 4 years ago
    I am having an issue adding code to save the split files as ReadOnly. Why does this not work or how do I do this?


    Sub Splitbook()
    MyPath = ThisWorkbook.Path
    For Each sht In ThisWorkbook.Sheets
    sht.Copy
    ActiveSheet.Cells.Copy
    ActiveSheet.Cells.PasteSpecial Paste:=xlPasteValues
    ActiveSheet.Cells.PasteSpecial Paste:=xlPasteFormats
    ActiveWorkbook.SaveAs _
    Filename:=MyPath & "\" & sht.Name & ".xls",
    Password:="",
    WriteResPassword:="",
    ReadOnlyRecommended:=False,
    ActiveWorkbook.Close savechanges:=False
    Next sht
    End Sub
  • To post as a guest, your comment is unpublished.
    terp · 4 years ago
    Awesome code - saved the day for me. Thank you for posting.
  • To post as a guest, your comment is unpublished.
    Chandrasekar T · 5 years ago
    Column A IP Address
    Column B IP Name
    Column C IP Pinging Rate True (That is command Pinging Status)
    Column D IP Pinging Rate False (That is command Pinging Status)
    This ip and ip name list to excel format & status is same excel format(that is true or false Status)
  • To post as a guest, your comment is unpublished.
    Daniel · 5 years ago
    The code worked like a charm!
    Yes, not all formatting were kept.
    No problem, though. For me, all the merged cells in a table became un-merged. It was a simple thing to select the original table, format painter, highlight the copied table, and voila, good as new.

    Thanks!
  • To post as a guest, your comment is unpublished.
    Rebecca · 5 years ago
    When I "Split a workbook to separate Excel files with VBA code" it works a dream but does not keep formatting such as merged cells and cell alignment in the new spreadsheets.
    Is there something I can add so the formatting is kept the same as the originals?