כיצד לפצל גיליונות אקסל להפרדת קבצים

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

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

שלב 2: לחיצה על קיצור הדרך ' Alt + F11 ' כדי לפתוח את חלון Microsoft Visual Basic for Applications;

לחלופין, אנא לחץ על ' מפתח 'הכרטיסייה מהסרט ולחץ על' ויז'ואל בייסיק 'כדי לפתוח את החלון.

שלב 3: בחלון החדש, לחץ על ' לְהַכנִיס ' הכרטיסייה מהסרט ולחץ על ' מודול ';

שלב 4: העתק והדבק את הקודים הבאים בחלון המודול;

Sub Splitbook()
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

שלב 5: לחץ על ' הפעל את סאב כפתור ' (או הקש על מקש F5) כדי להפעיל את הקודים;

שלב 6: חזור לתיקיה ותראה את כל הקבצים המופרדים יחד עם חוברת העבודה המקורית בתיקייה.