كيفية تقسيم عمود كل صف آخر في Excel؟
عند التعامل مع قوائم طويلة في Excel، قد تجد نفسك بحاجة إلى تقسيم عمود واحد إلى عمودين منفصلين، بحيث يحتوي كل منهما على كل صف آخر من القائمة الأصلية. فعلى سبيل المثال، إذا كانت لديك قائمة بجهات الاتصال أو سلسلة من سجلات المعاملات وترغب في توزيع الصفوف بالتناوب لإنشاء قائمتين متوازنتين، فقد يكون تنفيذ هذه المهمة يدويًّا أمرًا شاقًّا—خاصةً عند التعامل مع مجموعات بيانات ضخمة. وتُظهر لقطة الشاشة هذه التحدي المتمثل في تقسيم البيانات من عمود واحد إلى عمودين عبر تناوب الصفوف. ويكفل تنفيذ هذه العملية بكفاءة جعل بياناتك أكثر وضوحًا وتنظيمًا، مما يسهّل تكييفها لأغراض التحليل أو إعداد التقارير لاحقًا.
توجد عدة طرق عملية متاحة لمعالجة هذه المهمة في Excel، وكل منها مناسب لتفضيلات واحتياجات مختلفة:
في الأقسام التالية، ستجد أدلة تفصيلية خطوة بخطوة لاستخدام الصيغ، وتطبيق ماكرو VBA، والاستفادة من أداة Kutools لـ Excel لتحقيق النتيجة المرجوة. كما يشتمل كل قسم على نصائح عملية، وتحذيرات هامة، وإرشادات استكشاف الأخطاء وإصلاحها لمساعدتك على تجنّب الأخطاء الشائعة وضمان سير العملية بسلاسة، مهما كانت الطريقة التي تختارها.
تقسيم عمود كل صف آخر باستخدام الصيغة
يُعد استخدام الصيغ طريقةً مباشرةً لتقسيم عمود واحد إلى عمودين، صفًا بعد آخر. وتبرز فعالية هذه التقنية خصوصًا عندما تحتاج إلى حل ديناميكي يتجدد تلقائيًّا مع أي تغيير في البيانات الأصلية، أو عندما تفضل تجنُّب الاعتماد على الماكروات أو الإضافات.
فيما يلي الخطوات اللازمة لتطبيق الصيغ لتحقيق هذا التقسيم:
1. أدخل الصيغة التالية في خلية فارغة—مثل الخلية C2. تستخرج هذه الصيغة كل صف فردي (الأول، الثالث، الخامس، إلخ) من نطاق البيانات الأصلية الخاص بك (هنا،)$A$2:$A$13):
=INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1)تعمل هذه الصيغة باستخدام دالةROWS لحساب الموقع في القائمة، ثم تضربه في 2 وتطيح منه 1 للحصول على الصفوف ذات الأرقام الفردية فقط.
فعلى سبيل المثال، عند إدخال هذه الصيغة في الخلية C2 وسحبها لأسفل، ستحصل على القيم من A2 وA4 وA6، إلخ.
2. بعد إدخال الصيغة، اسحب مقبض التعبئة لأسفل العمود حتى تظهر قيم أخطاء مثل#REF!. تظهر هذه الأخطاء عندما تحاول الصيغة الرجوع إلى صفوف خارج النطاق المحدد لك، مما يشير إلى أنك وصلت إلى نهاية بياناتك. ننصحك بالتوقف عن السحب فور ظهور آخر قيمة صحيحة، ثم حذف خلايا الخطأ لاحقًا للحصول على نتيجة أنظف.
3. في الخلية D2، أدخل الصيغة التالية لاستخراج كل الصفوف الزوجية (الثانية، الرابعة، السادسة، إلخ) من نطاق المصدر الخاص بك:
=INDEX($A$2:$A$13,ROWS(D$1:D1)*2)اسحب هذه الصيغة لأسفل العمود D بنفس الطريقة، وستُعيد لك الخلايا A3 وA5 وA7، إلخ، تلقائيًا أثناء سحبك للأسفل.
وإذا لزم الأمر، احذف جميع رسائل الخطأ في النهاية لتحسين المظهر.
يُناسب حل الصيغة القوائم المنتظمة ذات عدد زوجي من الصفوف، أو الحالات التي لا تمانع فيها حذف قيم الأخطاء الزائدة. وإذا كانت قائمتك تحتوي على صفوف فارغة، فانتبه إلى أن هذه القيم ستُنقل أيضًا وفقًا لمواقعها؛ لذا تأكد من التحقق من وجود أي فراغات غير مقصودة بعد التقسيم.
نصائح وتحذيرات:تأكد من ضبط مراجع الخلايا لتتوافق مع نطاق البيانات الفعلي الخاص بك. وإذا تغيّر حجم البيانات الأصلية، فراجع صيغك مرة أخرى؛ لأن الأخطاء قد تحدث. كما أنه عند سحب الصيغة، تأكد من عدم تمديدها خارج مجموعة البيانات المقصودة.
- إذا واجهت أخطاء من نوع
#REF!، فهذا يعني أن الصيغة تحاول الإشارة إلى صف يتجاوز نطاق مصدر البيانات الخاص بك. يمكنك إخفاء هذه الأخطاء ببساطة باستخدام دالةIFERRORكغلاف خارجي، على سبيل المثال:=IFERROR(INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1),"")سيؤدي هذا الحل إلى عرض خلايا فارغة بدلاً من رموز الخطأ، مما يُنتج مخرجات أكثر نظافة واحترافية—خاصة عند مشاركة النتائج مع الآخرين. - إذا كنت تستخدم Excel 365 أو Excel 2021 فأحدث، فيمكنك أتمتة عملية التقسيم في الجداول الديناميكية بسلاسة باستخدام الدالتين الجديدتين FILTER وSEQUENCE. كل ما عليك هو إنشاء نطاقين باستخدام صيغ مثل:
=FILTER(A2:A100,MOD(SEQUENCE(ROWS(A2:A100)),2)=1)للصفوف الفردية.=FILTER(A2:A100,MOD(SEQUENCE(ROWS(A2:A100)),2)=0)للصفوف الزوجية.
تقسيم عمود كل صف آخر باستخدام كود VBA
إذا كنت تفضل الأتمتة ولديك مجموعة بيانات كبيرة، أو تقوم بهذه المهمة بانتظام، فيمكن لماكرو VBA تقسيم عمود إلى عمودين بكفاءة عن طريق تناوب الصفوف. يناسب VBA الحالات التي ترغب فيها بمزيد من التحكم أو تحتاج إلى تخصيص العملية لمختلف أحجام البيانات.
اتبع الخطوات التالية لاستخدام حل VBA:
1. في Excel، اضغط مع الاستمرار علىALT + F11 لفتح نافذة محررMicrosoft Visual Basic for Applications.
2. انقر فوقInsert > Module لفتح لوحة برمجة فارغة، ثم انسخ والصق الكود التالي في نافذة الوحدة النمطية:
كود 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 لتنفيذ الماكرو. ستظهر نافذة منبثقة تطلب منك تحديد نطاق البيانات الذي تريد تقسيمه. اختر الخلايا المستهدفة، ثم انقر فوقOK.
4. بعد ذلك، ستظهر لك نافذة منبثقة ثانية لتطلب منك تحديد الخلية الابتدائية التي سيتم وضع نتائج التقسيم فيها. اختر خلية فارغة كبداية لمنطقة القائمة الخاصة بك لتجنب الكتابة فوق أي بيانات موجودة.
5. بعد النقر فوقOK، سيقوم الماكرو بتقسيم عمودك الأصلي إلى عمودين، مع توزيع الصفوف بالتناوب بدءًا من خلية الإخراج التي حددتها. راجع الناتج للتأكد من اكتماله ودقته.
تتضمن مزايا حل VBA هذا السرعة والأتمتة، خاصة للمهام المتكررة أو مجموعات البيانات الكبيرة. ومع ذلك، يجب على المستخدمين حفظ عملهم قبل تشغيل الماكروات، لأن إجراءات VBA قد تكتب فوق البيانات إذا لم يتم اختيار خلية الإخراج بعناية. وإذا واجهت أخطاءً أو نتائج غير متوقعة، فتحقق مجددًا من تحديد النطاق الخاص بك، وراجع ما إذا كانت مدمج أو الصفوف المخفية قد تؤثر على النتيجة.
تلميح:إذا كانت مجموعة البيانات الخاصة بك تحتوي على صيغ أو تنسيقات مخصصة، فانتبه إلى أن الماكرو ينسخ فقط القيمة المعروضة ولا ينقل تنسيق الخلايا. قم بإجراء التعديلات اللازمة بعد التقسيم حسب الحاجة.
تقسيم عمود كل صف آخر باستخدام Kutools لـ Excel
إذا كنت تبحث عن نهج أكثر كفاءة دون استخدام الصيغ أو VBA، فإنKutools لـ Excelتوفر طريقة مريحة لتقسيم عمود كل صف آخر. وتُبسّط أداةتحويل النطاقهذه العملية، مما يجعلها مثالية للمستخدمين الذين يفضلون الواجهات الرسومية ويرغبون في الحصول على نتائج سريعة دون تكوين يدوي.
بمجرد تثبيت Kutools لـ Excel، قم بالخطوات التالية:
1. حدد بيانات العمود في Excel التي تريد تقسيمها إلى عمودين، بحيث يتناوب كل صف آخر. تأكد من عدم وجود خلايا مدمجة أو صفوف مخفية ضمن التحديد للحصول على أفضل النتائج.
2. في الشريط، انتقل إلىKutools > Range > تحويل النطاق. سيؤدي ذلك إلى فتح مربع حوار الأداة.
3. في مربع حوار تحويل النطاق، حددعمود واحد إلى نطاقضمننوع التحويل. وفي قسمRows per record، اخترقيمة ثابتةوأدخل2. يُخبر هذا الإعداد Kutools بتنظيم كل صفين في سجل أفقي واحد (يمكن تفسيره كصف واحد لكل عمود بعد التقسيم).
4. انقر فوق الزرOk. سيتم مطالبتك بتحديد خلية لعرض نتائج التقسيم فيها. اختر خلية مستهدفة فارغة لتجنب الكتابة فوق أي محتوى موجود.
5. انقر فوقOK مرة أخرى. ستقوم الأداة على الفور بتقسيم القائمة المحددة إلى عمودين، بحيث يحتوي كل عمود على صفوف متعاقبة.
انقر لمعرفة المزيد عن أداة تحويل النطاق هذه.
يُعدّ حل Kutools لـ Excel مناسبًا للمستخدمين الذين يرغبون في طريقة خالية من المتاعب ويعالجون بشكل متكرر مهام مثل إعادة تشكيل البيانات أو تحويل الصفوف إلى أعمدة. ويتميز تصميمه بأنه مفيد بشكل خاص لأولئك غير المرتاحين لكتابة الصيغ أو كود VBA.
احتياطات:قبل تأكيد خلية الإخراج، تحقَّق دائمًا من توفر مساحة كافية للنتائج. ففي حال كانت القائمة الأصلية طويلة، فقد يؤدي إخراج تقسيم البيانات فوق الخلايا الموجودة إلى فقدان البيانات.
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
استكشاف الأخطاء واقتراحات الملخص: إذا كانت نتائج التقسيم غير صحيحة، فتحقق مجددًا من نطاقات التحديد ومراجع الصيغ. تأكد أيضًا مما إذا كانت بياناتك الأصلية تحتوي على خلايا فارغة أو مدمجة أو تنسيقات قد تؤثر على عملية التقسيم. واحرص دائمًا على عمل نسخة احتياطية من بياناتك الأصلية قبل تنفيذ أي عمليات VBA أو استخدام إضافات مثل Kutools. وعند استخدام حلول الصيغ، غلّفها بـIFERROR للحصول على مخرجات أنظف. وللقوائم الكبيرة أو المهام المتكررة، فكّر في الأتمتة باستخدام VBA أو استخدم Kutools لتحقيق أقصى قدر من الكفاءة.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل