טיפ: שפות אחרות הן Google-Translated. אתה יכול לבקר את English גרסה של קישור זה.
התחבר
x
or
x
x
הירשם
x

or

כיצד לפצל נתונים לגליונות עבודה מרובים על ידי שורות לספור ב- Excel?

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


doc-split-data-by-rows1


-2



doc-split-data-by-rows2
doc-split-data-by-rows3
doc-split-data-by-rows4
doc-split-data-by-rows5

נתוני פיצול לגליונות עבודה מרובים בשורות ספורים עם קוד VBA

פיצול נתונים לגליונות עבודה מרובים לפי שורות לספור עם Kutools עבור Excel


חץ כחול בועה ימין נתוני פיצול לגליונות עבודה מרובים בשורות ספורים עם קוד VBA


קוד ה- VBA הבא יכול לעזור לך לפצל את השורות למספר גליונות עבודה לפי ספירת שורות, בצע את הפעולות הבאות:

1. החזק את ALT + F11 מפתח כדי לפתוח את Microsoft Visual Basic עבור יישומים חלון.

2. לחץ הַבלָעָה > מודול, והדבק את הקוד הבא בחלון המודול.

VBA: פיצול נתונים לתוך גיליונות לפי שורות לספור ב- Excel.

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, והטווח מחולק למספר גיליונות לפי ספירת השורות.

הערות: גליונות העבודה המפוצלים ממוקמים בחלק האחורי של גליון העבודה הראשי.


חץ כחול בועה ימין פיצול נתונים לגליונות עבודה מרובים לפי שורות לספור עם Kutools עבור Excel

הקוד הנ"ל יכול לפצל את הנתונים רק לפי הספירה של השורות שצוין, והוא לא יוסיף את הכותרת עבור כל גליון גליון עבודה אם הנתונים שלך מכילים את הכותרת.

אבל עם Kutools עבור Excel"S פיצול נתונים, אתה לא רק יכול להכניס את הכותרות עבור כל הנתונים גליון עבודה, אבל גם יכול לציין את השורות גיליון עבודה חדשה לפצל.

Kutools עבור Excel כולל יותר מ 300 כלי Excel שימושי. חינם ללא הגבלה ב- 30 ימים. קבל את זה עכשיו

אם התקנת את Kutools עבור Excel, בצע את הפעולות הבאות:

1. בחר את טווח הנתונים שברצונך לפצל.

2. לחץ מִפְעָל > כלי גליון עבודה > פיצול נתונים (אוֹ מִפְעָל > פיצול נתונים ), ראה צילום מסך:

doc-split-data-by-rows6

3. ב פיצול נתונים לגליונות עבודה מרובים תיבת דיאלוג:

  • בחר שורות קבועות מ פיצול מבוסס על , והזן את מספר שורות הספירה שברצונך לפצל עבור כל גליונות עבודה. (אם הנתונים שלך יש כותרות ואתה רוצה להכניס אותם לתוך כל גיליון עבודה חדש לפצל, אנא בדוק הנתונים שלי מכילים כותרות אוֹפְּצִיָה.)
  • לאחר מכן תוכל לציין את שמות גליון העבודה המפוצלים, תחת שם גליונות עבודה חדשים סעיף, בחר את שמות הגליון שמות הכללים חוקי הרשימה הנפתחת, אתה יכול להוסיף את קידומת or סִיוֹמֶת עבור שמות הסדין גם כן. ראה צילום מסך:

doc-split-data-by-rows7

4. לאחר ציון ההגדרות, לחץ על אישור OK, והנתונים שנבחרו פוצלו לגליונות עבודה מרובים של חוברת עבודה חדשה על ידי כל שורות 5. ואת הכותרות מוכנסים עבור כל גליון עבודה חדש. ראה צילום מסך:

doc-split-data-by-rows8

לחץ כדי לדעת עוד על התכונה 'פיצול נתונים'.

כתבות קשורות:

כיצד לפצל נתונים לגליונות עבודה מרובים המבוססים על עמודה ב- Excel?



כלי פרודוקטיביות מומלצים

הכרטיסייה 'משרד'

כוכב זהב תביא כרטיסיות שימושיות ל- Excel ולתוכנות Office אחרות, בדיוק כמו Chrome, Firefox ו- Internet Explorer החדש.

Kutools עבור Excel

כוכב זהב מדהים! הגדל את הפרודוקטיביות שלך ב- 5 דקות. לא צריך שום כישורים מיוחדים, לשמור שעתיים כל יום!

כוכב זהב 300 תכונות חדשות עבור Excel, להפוך את Excel הרבה יותר קל ורב עוצמה:

  • מיזוג תאים / שורות / עמודות מבלי לאבד נתונים.
  • שלב ולאחד מספר גיליונות וחוברות עבודה.
  • השווה טווחים, העתק טווחים מרובים, המרת טקסט עד תאריך, יחידת המרת מטבע.
  • ספירה לפי צבעים, סכימות החלפה, מתקדם מיון ו סופר מסנן,
  • עוד בחר / הוסף / מחק / טקסט / עיצוב / קישור / תגובה / חוברות עבודה / גליונות עבודה ...

צילום מסך של Kutools עבור 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.
    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?