كيفية تقسيم عمود كل صف آخر في Excel؟
على سبيل المثال، لدي قائمة طويلة من البيانات، والآن أريد تقسيم العمود إلى قائمتين بالتساوي لكل صف آخر كما هو موضح في لقطة الشاشة التالية. هل هناك طرق جيدة للتعامل مع هذه المهمة في 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. اضغط موافق، تم تقسيم بيانات القائمة إلى عمودين لكل صف آخر.
انقر لمعرفة المزيد حول أداة تحويل النطاق هذه.
Kutools لـ Excel - قم بتعزيز Excel بأكثر من 300 أدوات أساسية. استمتع بميزات ذكاء اصطناعي مجانية بشكل دائم! احصل عليه الآن
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في Excel باستخدام Kutools لـ Excel، واختبر كفاءة غير مسبوقة. Kutools لـ Excel يوفر أكثر من300 ميزة متقدمة لزيادة الإنتاجية وتوفير وقت الحفظ. انقر هنا للحصول على الميزة الأكثر أهمية بالنسبة لك...
Office Tab يجلب واجهة التبويب إلى Office ويجعل عملك أسهل بكثير
- تفعيل تحرير وقراءة عبر التبويبات في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
- افتح وأنشئ عدة مستندات في تبويبات جديدة في نفس النافذة، بدلاً من نوافذ مستقلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات اليومية من الفأرة!
جميع إضافات Kutools. مثبت واحد
حزمة Kutools for Office تجمع بين إضافات Excel وWord وOutlook وPowerPoint إضافة إلى Office Tab Pro، وهي مثالية للفرق التي تعمل عبر تطبيقات Office.
- حزمة الكل في واحد — إضافات Excel وWord وOutlook وPowerPoint + Office Tab Pro
- مثبّت واحد، ترخيص واحد — إعداد في دقائق (جاهز لـ MSI)
- الأداء الأفضل معًا — إنتاجية مُبسطة عبر تطبيقات Office
- تجربة كاملة لمدة30 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد