تقسيم البيانات إلى أوراق عمل متعددة حسب عدد الصفوف في Excel

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

تقسيم البيانات إلى أوراق عمل متعددة حسب عدد الصفوف باستخدام كود VBA

تقسيم البيانات إلى أوراق عمل متعددة حسب عدد الصفوف باستخدام Kutools لـ Excel

تقسيم البيانات إلى أوراق عمل متعددة حسب عدد الصفوف باستخدام كود VBA

يمكن أن يساعدك الكود التالي من VBA في تقسيم الصفوف إلى أوراق عمل متعددة حسب عدد الصفوف، اتبع الخطوات التالية:

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

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

VBA: تقسيم البيانات إلى أوراق عمل حسب عدد الصفوف في Excel

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 لـ Excel

إذا كنت تعتقد أن كود VBA معقد، فإن Kutools لـ Excel يقدم حلاً سريعًا وبديهيًا لمعالجة مشكلة تقسيم البيانات بكفاءة. تُبسّط ميزة تقسيم البيانات عملية التشغيل، مما يسمح للمستخدمين من أي مستوى مهارة بتقسيم مجموعات البيانات الكبيرة إلى أوراق عمل متعددة دون الحاجة إلى معرفة برمجية عميقة، مما يسهل إدارة البيانات بشكل فعال.

إذا كنت قد قمت بتثبيت Kutools لـ Excel، يرجى القيام بما يلي:

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

3. في مربع الحوار تقسيم البيانات إلى أوراق عمل متعددة:

• حدد القيمة الثابتة من خيار أساس التقسيم، وأدخل عدد الصفوف الذي تريد تقسيمه لكل ورقة عمل.
• إذا كانت بياناتك تحتوي على رؤوس وتريد إدراجها في كل ورقة عمل جديدة مقسمة، يرجى تحديد خيار البيانات تحتوي على رؤوس. (نصيحة: يمكنك إدخال عدد صفوف الرؤوس بناءً على بياناتك).
• ثم يمكنك تحديد أسماء الأوراق المقسمة، ضمن قسم اسم الأوراق الجديدة، حدد قواعد أسماء الأوراق من قائمة القواعد المنسدلة، ويمكنك أيضًا إضافة البادئة أو اللاحقة لأسماء الأوراق.

4. بعد تحديد الإعدادات، انقر فوق موافق، وسيتم تقسيم البيانات المحددة إلى أوراق عمل متعددة في مصنف جديد كل 5 صفوف. كما تم إدراج الرؤوس لكل ورقة عمل جديدة. انظر إلى لقطة الشاشة:

مقالات ذات صلة: