كيفية تقسيم جدول كبير إلى جداول صغيرة متعددة في إكسيل؟

إذا كان لديك جدول Excel كبير يحتوي على عدة أعمدة ومئات أو آلاف الصفوف، فقد ترغب في تقسيمه إلى جداول أصغر وأكثر قابلية للإدارة. على سبيل المثال، قد تحتاج إلى فصل البيانات بناءً على قيم أعمدة معينة أو تقسيمها إلى أجزاء من عدد ثابت من الصفوف. يوفر هذا البرنامج التعليمي طرقًا خطوة بخطوة لإنجاز هذه المهمة بكفاءة.

الجدول الرئيسي		تقسيم الجدول إلى جداول متعددة حسب قيمة العمود	تقسيم الجدول إلى جداول متعددة حسب عدد الصفوف

قسّم جدولًا كبيرًا إلى جداول متعددة بناءً على قيمة العمود برمز VBA

قم بتقسيم جدول كبير إلى جداول متعددة بناءً على عدد محدد من الصفوف برمز VBA

تقسيم جدول كبير إلى جداول متعددة بناءً على قيمة العمود أو عدد الصفوف باستخدام Kutools for Excel

قسّم جدولًا كبيرًا إلى جداول متعددة بناءً على قيمة العمود برمز VBA

لتقسيم هذا الجدول الكبير إلى جداول متعددة بناءً على قيمة عمود معينة ، يمكن أن تقدم لك التعليمات البرمجية VBA التالية خدمة. يرجى القيام بذلك على النحو التالي:

1. اضغط باستمرار على مفتاحي "ALT" + "F11" لفتح نافذة "Microsoft Visual Basic for Applications".

2. انقر فوق "إدراج" > "وحدة"، ثم قم بلصق الكود التالي في نافذة "الوحدة".

كود فبا: تقسيم جدول كبير إلى جداول متعددة حسب العمود الرئيسي:

Sub Splitdatabycol()
'by Extendoffice
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub

3. بعد لصق الكود، اضغط على مفتاح "F5" لتشغيل هذا الكود، وسيظهر مربع مطالبة، يرجى تحديد صف الرأس من بياناتك، انظر لقطة الشاشة:

4. ثم انقر على "موافق"، وسيظهر مربع حوار آخر، يُرجى تحديد بيانات العمود التي تريد تقسيم الجدول بناءً عليها، انظر لقطة الشاشة:

٥. انقر على "موافق". تم الآن تقسيم الجدول الكبير إلى عدة أوراق عمل بناءً على قيم الأعمدة، مع وضع أوراق العمل الجديدة بعد الورقة الرئيسية. وتم تسمية أوراق العمل الجديدة بناءً على قيمة العمود. انظر لقطة الشاشة:

قم بتقسيم جدول كبير إلى جداول متعددة بناءً على عدد محدد من الصفوف برمز VBA

إذا كنت بحاجة إلى تقسيم الجدول إلى جداول متعددة بناءً على عدد الصفوف ، فيمكن أن تساعدك التعليمات البرمجية لـ VBA التالية.

1. اضغط باستمرار على مفتاحي "ALT" + "F11" لفتح نافذة "Microsoft Visual Basic for Applications".

2. انقر فوق "إدراج" > "وحدة"، ثم قم بلصق الكود التالي في نافذة "الوحدة".

كود فبا: تقسيم جدول كبير إلى جداول متعددة حسب عدد الصفوف:

Sub Splitdatabyrows()
'Updated by Extendoffice 
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (xIER - xRow.Row + 1) < SplitRow Then
        resizeCount = (xIER - xRow.Row + 1)
    End If
    xRow.Resize(resizeCount).Copy
    Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
    If xIER > (xRow.Row + SplitRow - 1) Then
        xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
    ElseIf xIER = xRow.Row Then
        xWs.Name = xRow.Row
    Else
        xWs.Name = xRow.Row & " - " & xIER
    End If
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xNTRg = Application.ActiveSheet.Range("A1")
    xTRg.Copy
    xNTRg.Insert
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3. ثم اضغط على مفتاح "F5"، في مربع الحوار المنبثق، حدد صف الرأس، انظر لقطة الشاشة:

4. ثم انقر فوق "موافق"، وفي مربع المطالبة الثاني، حدد نطاق البيانات الذي تريد تقسيمه حسب عدد الصفوف، انظر لقطة الشاشة:

5. ثم، انقر على زر "موافق"، وفي المربع الثالث، أدخل عدد الصفوف التي تريد تقسيمها، انظر لقطة الشاشة:

6. ثم انقر على زر "موافق"، وسيتم تقسيم الجدول الرئيسي إلى أوراق عمل متعددة بناءً على عدد الصفوف كما هو موضح في لقطة الشاشة أدناه:

تقسيم جدول كبير إلى جداول متعددة بناءً على قيمة العمود أو عدد الصفوف باستخدام Kutools for Excel

قد يصعب على معظم المستخدمين فهم الرموز المذكورة أعلاه، لكن سأقدم لكم هنا ميزة رائعة - "تقسيم البيانات" في "Kutools for Excel". باستخدام هذه الأداة، يمكنك تقسيم جدول كبير إلى عدة جداول حسب عدد الأعمدة أو الصفوف بسرعة وسهولة.

1. حدد نطاق البيانات الذي تريد تقسيمه، ثم انقر فوق "Kutools Plus" > "تقسيم البيانات"، انظر لقطة الشاشة:

2. في مربع الحوار "تقسيم البيانات إلى أوراق عمل متعددة"، حدد الإعدادات التي تناسب احتياجاتك:

(1.) حدد "عمود محدد" أو "صفوف ثابتة" من قسم "تقسيم بناءً على" حسب الحاجة؛

(2) حدد اسم أوراق العمل الجديدة من القائمة المنسدلة "القواعد"، ويمكنك أيضًا إضافة "البادئة" أو "اللاحقة" إلى أسماء الأوراق.

٣. ثم انقر على زر "موافق"، وهكذا تم تقسيم الجدول الكبير إلى عدة جداول صغيرة في مصنف جديد. شاهد لقطات الشاشة:

تقسيم الجدول إلى جداول متعددة حسب قيمة العمود	تقسيم الجدول إلى جداول متعددة حسب عدد الصفوف

المزيد من المقالات ذات الصلة: