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

or

כיצד לשלב מספר חוברות עבודה לחוברת עבודה אחת ב- Excel?

האם אי פעם היית תקוע כאשר יש לך לשלב מספר חוברות עבודה לתוך חוברת עבודה אחת ב- Excel? הדבר הנורא ביותר הוא כי חוברת העבודה שאתה צריך לשלב מכיל מספר גליונות עבודה. האם מישהו יכול להציע דרך טובה לטפל בבעיה זו?

שלב חוברות עבודה מרובות לחוברת עבודה אחת עם VBA

שלב מספר חוברות עבודה לחוברת עבודה אחת באמצעות פקודת העברה או העתקה

לשלב בקלות חוברות עבודה מרובות לחוברת עבודה אחת עם Kutools עבור Excel


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

שילוב מספר גליונות עבודה או חוברות עבודה בגליון עבודה אחד או בחוברת עבודה אחת עשוי להיות משימה ענקית בעבודה היומיומית שלך. אבל, אם יש לך Kutools עבור Excel, כלי רב עוצמה שלה - לשלב יכול לעזור לך לשלב במהירות גליונות עבודה מרובים, חוברות עבודה לתוך גליון עבודה אחד או חוברת עבודה. הורד את התכונה המלאה 60 יום חינם שובל של Kutools עבור Excel עכשיו!

Kutools עבור Excel: עם יותר מ 200 שימושי תוספות של Excel, ללא תשלום כדי לנסות ללא הגבלה 60 ימים. הורד ניסיון ללא תשלום עכשיו!


שלב חוברות עבודה מרובות לחוברת עבודה אחת עם VBA

עבור מתכנתים מקצועיים ומיומנים, ניתן להשתמש בסקריפטים של VBA כדי לשלב מספר חוברות עבודה בחוברת עבודה אחת. אתה יכול להתמודד עם זה עם השלבים הבאים:

1. שים את כל חוברות העבודה שברצונך לשלב לתוך אותה ספריה. ראה צילום מסך:

2. הפעל קובץ Excel שברצונך לשלב בו חוברות עבודה אחרות.

3. לחץ מפתח > Visual Basic, חדש Microsoft Visual Basic עבור יישומים החלון יוצג, לחץ על הַבלָעָה > מודול, והזן את הקוד הבא במודול:

Sub GetSheets()
Path = "C:\Users\dt\Desktop\dt kte\"
Filename = Dir(Path & "*.xls")
  Do While Filename <> ""
  Workbooks.Open Filename:=Path & Filename, ReadOnly:=True
     For Each Sheet In ActiveWorkbook.Sheets
     Sheet.Copy After:=ThisWorkbook.Sheets(1)
  Next Sheet
     Workbooks(Filename).Close
     Filename = Dir()
  Loop
End Sub

עצה: בקוד לעיל, ניתן לשנות את הנתיב לזה שבו אתה משתמש.

4. לאחר מכן לחץ על doc-merge-multiple-workbooks-button כדי להפעיל את הקוד, וכל גליונות העבודה (כולל גיליונות העבודה הריקים) בתוך חוברות העבודה מוזגו לחוברת העבודה הראשית.

הערות: קוד VBA זה יכול למזג את כל חוברות העבודה לתוך חוברת העבודה הראשית, אם ברצונך לשלב גליונות עבודה שצוינו בחוברות העבודה, קוד זה לא יעבוד.


שלב מספר חוברות עבודה לחוברת עבודה אחת באמצעות פקודת העברה או העתקה

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

1. פתח את כל חוברות העבודה שברצונך למזג בחוברת עבודה אחת.

2. בחר את כל שמות גליון העבודה של חוברת עבודה בסרגל הכרטיסייה. אתה יכול לבחור מרובים עם החזקת למטה Ctrl מפתח או משמרת מַפְתֵחַ. לחץ באמצעות לחצן העכבר הימני על שם גליון העבודה ולחץ על העבר או העתק מתפריט ההקשר.

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

4. לאחר מכן לחץ על OK. גיליונות העבודה שנבחרו הועברו לחוברת העבודה הראשית.

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


לשלב בקלות חוברות עבודה מרובות לחוברת עבודה אחת עם Kutools עבור Excel

למרבה המזל, עבור רוקיס וידיים חדשות של Microsoft Excel, ישנם כמה כלים זמינים כדי לעזור לך לשלב במהירות מאות חוברות עבודה לתוך אחד. הפונקציה לשלב in Kutools עבור Excel עושה את זה הרבה יותר קל לשלב קבצים מרובים של Excel. היישום משמש לשחרור פעולות חוזרות ומיותרות ב- Excel. זה בעצם משחק תפקיד חשוב אם יש לך להתמודד עם כמות גדולה של קובץ Excel בעבודה היומיומית שלך. עכשיו, בואו לראות איך להשיג את העבודה הזו פונקציה בשילוב מספר חוברות עבודה.

Kutools עבור Excel : עם יותר מ 300 שימושי Excel תוספות, חופשי לנסות ללא הגבלה 60 ימים.

1. הפעל את Excel ולחץ על Kutools פלוס > לשלב. לאחר מכן, תיבת דו-שיח תופיע כדי להזכיר לך שכל החוברות המשולבות צריכות להישמר והתכונה אינה ניתנת להחלה על חוברות עבודה מוגנות, לחץ על הלחצן OK לַחְצָן.

2. ב שלב גליונות עבודה אשף, בחר שלב גליונות עבודה מרובים מחוברות עבודה לחוברת עבודה אחת, ולאחר מכן לחץ על הַבָּא לַחְצָן. ראה צילום מסך:

2. לאחר מכן תוכל לראות את כל חוברות העבודה וגליונות העבודה המפורטים ברשימה שלב גליונות עבודה - שלב 2 של 3 תיבת דיאלוג. לחץ על להוסיף > פילה / תיקייה כדי להוסיף קבצי Excel אחרים או תיקיות המכילים את קבצי Excel תוכלו לשלב. לאחר בחירת קבצים, לחץ על הַבָּא כפתור קדימה. ראה צילום מסך:

למזג מספר רב של חוברות עבודה

3. ב שלב גליונות עבודה - שלב 3 של 3 תיבת הדו-שיח, אנא בצע את ההגדרות הבאות:

  • 3.1 ניתן לבצע אי הכללה של כל גליונות העבודה הריקים מהמיזוג על ידי בחירה לדלג מ כאשר נתקלת בגליון עבודה ריק רשימה נפתחת.
  • 3.2 בדוק את השורה הראשונה של כל גליון עבודה (תגובה) אפשרות להוסיף נתוני גליון עבודה של כל גליון עבודה משולב.
  • 3.3 ניתן לשנות את שם גליונות העבודה המשולבים החדשים על - ידי הוספת שמות חוברת העבודה לפני או אחרי שמות גליון העבודה המקוריים, או פשוט לשמור את שמות גליון העבודה המקוריים עם ביטול הסימון על ידי הוספת שם חוברת עבודה אוֹפְּצִיָה.
  • 3.4 לחץ על סיום לַחְצָן.

4. לאחר מכן בחר תיקייה כדי לשמור את חוברת העבודה המשולבת, ופתח אותה ישירות כפי שאתה צריך. עכשיו כל החוברות שצוין משולבים לתוך אחד.

הערות:

1. תישאל אם ברצונך לשמור תרחיש זה. נְקִישָׁה יש כדי לשמור לפי הצורך, ולאחר מכן להזין את שם התרחיש, (ראה את צילומי המסך הבאים). לאחר שמירת התרחיש, עליך רק ללחוץ על הלחצן תַרחִישׁ כדי לבחור את שם התרחיש באשף Step2 כדי להשתמש בו ישירות.

2. גליונות עבודה בחוברות עבודה נבחרות מוזגו לחוברת עבודה חדשה, וגליונות העבודה נקראים על שם חוברת העבודה לפני או אחרי שם הגיליון המקורי, אם בדקתם את על ידי הוספת שם חוברת עבודה אוֹפְּצִיָה. בינתיים, גיליון עבודה חדש בשם Kutools עבור Excel נוצר לפני כל גליונות העבודה, המפרט את חוברות העבודה עם מידע מפורט של כל גליונות עבודה. ראה צילום מסך:

3. אם שם גליון העבודה שלך ארוך מדי, ייתכן שתווי השמות גדולים מ- 31characters, השם המשולב לא יוצג ורק יציג את שם הגיליון המקורי.

עֵצָה.אם אתה רוצה יש ניסיון ללא תשלום של כלי זה, בבקשה ללכת להוריד את התוכנה באופן חופשי תחילה, ולאחר מכן ללכת להחיל את הפעולה על פי השלבים לעיל.


הכרטיסייה 'משרד' - גלישה באמצעות כרטיסיות, עריכה וניהול של חוברות עבודה ב- Excel:

הכרטיסייה 'משרד' מביאה את הממשק עם לשוניות כמו בדפדפני אינטרנט כגון Google Chrome, גרסאות חדשות של Internet Explorer ו- Firefox ל- Microsoft Excel. זה יהיה כלי חסכון בזמן ו חסר תחליף בעבודה שלך. ראה להלן הדגמה:

לחץ על ניסיון ללא תשלום של הכרטיסייה Office!

הכרטיסייה Office עבור Excel

הדגמה: לשלב בקלות חוברות עבודה מרובות לחוברת עבודה אחת עם Kutools עבור 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.
    Dezignext Technologies · 4 days ago
    I like using this technique better than using traditional "3D Formula" techniques in Excel.
  • To post as a guest, your comment is unpublished.
    Jonel · 1 months ago
    Note: This VBA code can merge the entire workbooks into the master workbook, if you want to combine specified worksheets of the workbooks, this code will not work.

    Can we have the module for VBA that above scene will work,
    • To post as a guest, your comment is unpublished.
      crystal · 3 days ago
      Hi Jonel,
      The following code can help you solve the problem. You need to replace folder path and "Sheet1, Sheet3" with the specified folder path and worksheets as you need.

      Sub MergeSheets2()
      Dim xStrPath As String
      Dim xStrFName As String
      Dim xWS As Worksheet
      Dim xMWS As Worksheet
      Dim xTWB As Workbook
      Dim xStrAWBName As String
      Dim xI As Integer
      On Error Resume Next

      xStrPath = " C:\Users\DT168\Desktop\KTE\"
      xStrName = "Sheet1,Sheet3"

      xArr = Split(xStrName, ",")

      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
      Set xTWB = ThisWorkbook
      xStrFName = Dir(xStrPath & "*.xlsx")
      Do While Len(xStrFName) > 0
      Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
      xStrAWBName = ActiveWorkbook.Name
      For Each xWS In ActiveWorkbook.Sheets
      For xI = 0 To UBound(xArr)
      If xWS.Name = xArr(xI) Then
      xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.count)
      Set xMWS = xTWB.Sheets(xTWB.Sheets.count)
      xMWS.Name = xStrAWBName & "(" & xArr(xI) & ")"
      Exit For
      End If
      Next xI
      Next xWS
      Workbooks(xStrAWBName).Close
      xStrFName = Dir()
      Loop
      Application.ScreenUpdating = True
      Application.DisplayAlerts = True

      End Sub
  • To post as a guest, your comment is unpublished.
    Chris · 2 months ago
    When I run this, each sheet in the new workbook is being named based off of the sheet names of the original document rather than the filenames. Any idea what I might be doing wrong?
    • To post as a guest, your comment is unpublished.
      crystal · 3 days ago
      Hi Chris,
      If you want to distinguish which worksheets in the master workbook came from where after merging, please apply the below VBA code to solve the problem.

      Sub MergeWorkbooks()
      Dim xStrPath As String
      Dim xStrFName As String
      Dim xWS As Worksheet
      Dim xMWS As Worksheet
      Dim xTWB As Workbook
      Dim xStrAWBName As String
      On Error Resume Next
      xStrPath = "C:\Users\DT168\Desktop\KTE\"
      xStrFName = Dir(xStrPath & "*.xlsx")
      Application.ScreenUpdating = False
      Application.DisplayAlerts = False
      Set xTWB = ThisWorkbook
      Do While Len(xStrFName) > 0
      Workbooks.Open Filename:=xStrPath & xStrFName, ReadOnly:=True
      xStrAWBName = ActiveWorkbook.Name
      For Each xWS In ActiveWorkbook.Sheets
      xWS.Copy After:=xTWB.Sheets(xTWB.Sheets.Count)
      Set xMWS = xTWB.Sheets(xTWB.Sheets.Count)
      xMWS.Name = xStrAWBName & "(" & xMWS.Name & ")"
      Next xWS
      Workbooks(xStrAWBName).Close
      xStrFName = Dir()
      Loop
      Application.ScreenUpdating = True
      Application.DisplayAlerts = True
      End Sub
  • To post as a guest, your comment is unpublished.
    Owen · 5 months ago
    It didnt work for me then I realized my files are .xlsx, so added the missing "x" to the Filename line.
  • To post as a guest, your comment is unpublished.
    Justin · 8 months ago
    This worked for me but I had to make sure I have to put "\" at the end of my path. Initially, I didn't have it and it wouldn't work.