كيفية تقسيم قائمة طويلة إلى مجموعات متساوية في إكسيل؟
إذا كانت لديك قائمة طويلة من البيانات التي يجب تقسيمها إلى مجموعات متساوية متعددة كما هو موضح في لقطة الشاشة التالية ، كيف يمكنك التعامل مع هذه المهمة بسرعة وسهولة في Excel؟
قسّم قائمة طويلة إلى مجموعات متعددة متساوية باستخدام رمز VBA
قسّم قائمة طويلة إلى مجموعات متعددة متساوية باستخدام Kutools for Excel
قسّم قائمة طويلة إلى مجموعات متعددة متساوية باستخدام رمز VBA
باستثناء نسخ البيانات ولصقها واحدًا تلو الآخر ، يمكن لرمز VBA التالي أيضًا أن يقدم لك خدمة ، يرجى اتباع الخطوات التالية:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: قسّم قائمة طويلة إلى مجموعات متعددة متساوية
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. وانقر OK زر ، ثم حدد خلية حيث تريد تحديد النتيجة في مربع المطالبة التالي ، انظر لقطة الشاشة:
5. انقر OK، ويرجى إدخال عدد الخلايا التي تريد تقسيمها لكل عمود في مربع المطالبة ، انظر الصورة:
6. وأخيرا، انقر فوق OK لإنهاء الكود ، وتم تقسيم بيانات القائمة المحددة إلى مجموعات متساوية متعددة حسب حاجتك ، انظر الصورة:
قسّم قائمة طويلة إلى مجموعات متعددة متساوية باستخدام Kutools for Excel
إذا كنت قد قمت بتثبيت كوتولس ل إكسيل، بما لديها نطاق التحويل ميزة ، يمكنك تقسيم قائمة طويلة بسرعة إلى عدة أعمدة وصفوف ، علاوة على ذلك ، يمكنك أيضًا دمج أعمدة متعددة في قائمة واحدة طويلة.
كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. |
بعد تثبيت كوتولس ل إكسيليرجى القيام بما يلي:
1. حدد القائمة الطويلة التي تريد تقسيمها ، ثم انقر فوق كوتولس > الفترة (من ... إلى) > نطاق التحويل، انظر لقطة الشاشة:
2. في نطاق التحويل مربع الحوار، حدد عمود واحد للنطاق تحت نوع التحويل القسم ، ثم تحقق قيمة ثابتة وحدد عدد الخلايا لكل صف في المربع ، انظر لقطة الشاشة:
3. ثم اضغط Ok، وحدد خلية حيث تريد تحديد النتيجة في مربع المطالبة ، انظر لقطة الشاشة:
4. وانقر OK ، تم تقسيم البيانات الموجودة في القائمة إلى مجموعات متعددة متساوية حسب حاجتك.
قم بتنزيل Kutools for Excel والإصدار التجريبي المجاني الآن!
العرض التوضيحي: قم بتقسيم قائمة طويلة إلى مجموعات متعددة متساوية باستخدام Kutools for Excel
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!