كيفية تقسيم عمود كل صف آخر في Excel؟

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

تقسيم عمود كل صف آخر باستخدام الصيغ

تقسيم عمود كل صف آخر باستخدام كود VBA

تقسيم عمود كل صف آخر باستخدام Kutools لـ Excel

تقسيم عمود كل صف آخر باستخدام الصيغ

قد تساعدك الصيغ التالية على تقسيم عمود بسرعة إلى عمودين لكل صف آخر، يرجى القيام بما يلي:

1. أدخل هذه الصيغة في خلية فارغة، C2، على سبيل المثال، =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1)، انظر لقطة الشاشة:

2. ثم اسحب مقبض التعبئة لأسفل حتى يتم عرض الأخطاء في الخلايا، انظر لقطة الشاشة:

3. ثم أدخل صيغة أخرى في الخلية D2، =INDEX($A$2:$A$13,ROWS(D$1:D1)*2)، واسحب مقبض التعبئة لأسفل إلى الخلايا حتى تظهر القيم الخطأ، وسيتم تقسيم قيم العمود إلى عمودين لكل صف آخر، انظر لقطة الشاشة:

تقسيم عمود كل صف آخر باستخدام كود VBA

إذا كنت مهتمًا بكود VBA، هنا، يمكنني التحدث عن كود لك لحل هذه المشكلة.

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

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

كود VBA: تقسيم عمود إلى عمودين لكل صف آخر

Sub SplitEveryOther()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim index As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
num1 = 1
num2 = 1
For index = 1 To InputRng.Rows.Count
    If index Mod 2 = 1 Then
        OutRng.Cells(num1, 1).Value = InputRng.Cells(index, 1)
        num1 = num1 + 1
    Else
        OutRng.Cells(num2, 2).Value = InputRng.Cells(index, 1)
        num2 = num2 + 1
    End If
Next
End Sub	

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

4. واضغط موافق، سيظهر مربع رسالة آخر ليطلب منك اختيار خلية لوضع النتيجة، انظر لقطة الشاشة:

5. ثم اضغط موافق، وسيتم تقسيم العمود إلى عمودين لكل صف آخر. انظر لقطة الشاشة:

تقسيم عمود كل صف آخر باستخدام Kutools لـ Excel

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

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

1. حدد بيانات العمود التي تريد تقسيمها إلى عمودين لكل صف آخر.

2. ثم انقر فوق Kutools > النطاق > تحويل النطاق، انظر لقطة الشاشة:

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

4. ثم انقر فوق زر موافق، وستظهر مربع رسالة لتذكيرك باختيار خلية حيث تريد إخراج النتيجة، انظر لقطة الشاشة:

5. اضغط موافق، تم تقسيم بيانات القائمة إلى عمودين لكل صف آخر.

انقر لمعرفة المزيد حول أداة تحويل النطاق هذه.