كيفية تقسيم قائمة طويلة إلى مجموعات متساوية في Excel؟

إذا كنت تمتلك قائمة طويلة من البيانات تحتاج إلى تقسيمها إلى عدة مجموعات متساوية كما هو موضح في لقطة الشاشة التالية، كيف يمكنك التعامل مع هذه المهمة بسرعة وسهولة في Excel؟

تقسيم قائمة طويلة إلى مجموعات متساوية باستخدام كود VBA

تقسيم قائمة طويلة إلى مجموعات متساوية باستخدام Kutools لـ Excel

تقسيم قائمة طويلة إلى مجموعات متساوية باستخدام كود VBA

باستثناء نسخ البيانات ولصقها واحدة تلو الأخرى، يمكن أيضًا لشفرة VBA التالية مساعدتك، يرجى اتباع الخطوات التالية:

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

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

كود VBA: تقسيم قائمة طويلة إلى مجموعات متساوية

Sub SplitIntoCellsPerColumn()
'updateby Extendoffice
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xOutArr As Variant
    Dim I As Long, K As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
Sel:
    Set xRg = Nothing
    Set xRg = Application.InputBox("please select data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "does not support multiple columns,please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    Set xOutRg = Application.InputBox("please select a cell to put the result:", "Kutools for Excel", , , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    I = Application.InputBox("the number of cell per column:", "Kutools for Excel", , , , , , 1)
    If I < 1 Then
        MsgBox "incorrect enter", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    ReDim xOutArr(1 To I, 1 To Int(xRg.Rows.Count / I) + 1)
    For K = 0 To xRg.Rows.Count - 1
      xOutArr(1 + (K Mod I), 1 + Int(K / I)) = xRg.Cells(K + 1)
    Next
    xOutRg.Range("A1").Resize(I, UBound(xOutArr, 2)) = xOutArr
End Sub

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

4. واضغط على زر موافق، ثم حدد خلية حيث تريد وضع النتيجة في مربع الحوار التالي، انظر لقطة الشاشة:

5. اضغط على موافق، ثم أدخل عدد الخلايا التي تريد تقسيمها لكل عمود في مربع الحوار، انظر لقطة الشاشة:

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

تقسيم قائمة طويلة إلى مجموعات متساوية باستخدام Kutools لـ Excel

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

بعد تثبيت Kutools لـ Excel، يرجى القيام بما يلي:

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

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

3. ثم انقر فوق موافق، وحدد خلية حيث تريد وضع النتيجة في مربع الحوار، انظر لقطة الشاشة:

4. واضغط على زر موافق، سيتم تقسيم البيانات في القائمة إلى مجموعات متساوية كما تحتاج.

قم بتنزيل وتجربة Kutools لـ Excel الآن مجانًا!