كيف يمكن نقل كل صف آخر إلى أعمدة في Excel؟
عند العمل مع البيانات في Excel، خاصةً تلك التي تم استيرادها أو التي تفتقر إلى التنظيم، ستجد غالبًا أن الأسماء والقيم المرتبطة بها مُرتَّبة رأسيًّا في عمود واحد. ولجعل هذه البيانات أكثر وضوحًا وسهولة في الاستخدام، يُعد تحويلها إلى تنسيق جدولي — أي نقل كل صف آخر إلى أعمدة منفصلة — خطوة ضرورية في أغلب الأحيان.
نقل كل صف آخر إلى عمود باستخدام الصيغ
هذه طريقة مباشرة تستخدم دالة INDEX في Excel لاستخراج الصفوف المتبادلة وعرضها كأعمدة. إذا كنت ترغب في تحويل الأسماء إلى عمود واحد والعمر إلى العمود التالي، يُرجى تطبيق الصيغ التالية:
1. في الخلية C2، أدخل الصيغة التالية في خلية فارغة، ثم اسحبها لأسفل حسب الحاجة. تقوم هذه الصيغة باستخراج القيمة من كل صف ثاني بدءًا من الصف 2 (الأسماء).
=INDEX($A:$A, (ROW(A1)-1)*2 + 2)
2. في الخلية D2، أدخل الصيغة التالية لاستخراج البيانات البديلة، ثم اسحبها لأسفل لملء الخلايا.
=INDEX($A:$A, (ROW(A1)-1)*2 + 3)
- INDEX($A:$A, ...): يبحث في العمود A ويعيد القيمة من صف معيّن.
- ROW(A1): تُرجع رقم الصف الحالي. ففي الخلية A1، تُرجع القيمة 1، وعند سحب الصيغة لأسفل، تصبح A2 (الصف 2)، ثم A3 (الصف 3)، وهكذا دواليك.
- (ROW(A1)-1)*2 + 2: يحسب هذا التعبير رقم الصف الذي سيتم سحب القيمة منه من العمود A.
وبالتالي، تسحب الصيغة القيم من الخلايا A2 وA4 وA6 وA8...، أي من كل صف ثانٍ بدءًا من الصف 2.
نقل كل صف آخر إلى عمود باستخدام Kutools لـ Excel
إذا كنت تفضّل حلاً أكثر سهولة ولا يعتمد على الصيغ، فإن Kutools لـ Excel يوفّر ميزة تتيح لك تحويل الصفوف إلى أعمدة بسلاسة تامة.
بعد تثبيت Kutools لـ Excel، يُرجى اتباع الخطوات التالية:
- انقر على Kutools > Range > تحويل النطاق.
- في مربع حوار تحويل النطاق، قم بتعيين الإعدادات التالية:
- حدد النطاق الذي تريد نقل كل صف آخر منه
- فعّل خيار عمود واحد إلى نطاق في قسم نوع التحويل،
- ثم بعد ذلك، فعّل خيار «قيمة ثابتة»، ثم اختر أو أدخل 2 من القائمة في قسم «الصفوف لكل سجل».
- وأخيرًا، انقر على زر «موافق».
- في مربع الحوار التالي، اختر خلية واحدة لوضع النتيجة فيها، كما في لقطة الشاشة:
- انقر على «موافق»، وسيقوم Kutools تلقائيًا بنقل كل صف آخر إلى أعمدة منفصلة.
نقل كل صف آخر إلى عمود باستخدام كود VBA
إذا كنت بحاجة إلى تنفيذ هذه المهمة غالبًا، فيمكن لماكرو VBA أتمتة العملية لجعلها أسرع وأكثر كفاءة.
1. اضغط معًا على مفتاحَي Alt وF11 في لوحة المفاتيح لفتح نافذة Microsoft Visual Basic for Applications.
2. ثم انقر على Insert > Module لإدراج نافذة وحدة جديدة، وبعد ذلك انسخ كود VBA التالي إلى تلك النافذة.
VBA: نقل كل صف آخر إلى عمود.
Sub MoveRange()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range, OutRng As Range
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 InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
Set OutRng = OutRng.Offset(1, 0)
Next
End Sub
3. انقر على زر التشغيل (Run) أو اضغط مفتاح F5 في لوحة المفاتيح، وستظهر نافذة حوار تطلب منك تحديد نطاق النقل. راجع لقطة الشاشة التالية:
4. ثم انقر على «موافق» لعرض نافذة حوارية أخرى تتيح لك اختيار الخلية التي ستُعرض فيها النتيجة. انظر لقطة الشاشة:
5. انقر على «موافق» لترى النتيجة كما هو موضح أدناه:
🎯 الخلاصة:
كل طريقة لنقل كل صف آخر إلى أعمدة في Excel لها مزاياها الخاصة، وذلك حسب احتياجاتك:
- طريقة الصيغ: الأنسب للمهام السريعة ذات الاستخدام الواحد مع مجموعات بيانات صغيرة. ولا تتطلب أدوات إضافية، لكنها قد تؤثر في الأداء عند التعامل مع ملفات النطاقات الكبيرة.
- Kutools لـ Excel: الحل المثالي للمستخدمين الذين يفضلون أداء المهام بنقرات بسيطة دون الحاجة إلى صيغ معقدة أو برمجة. ويقدّم Kutools واجهة سهلة الاستخدام تتيح إجراء تحويلات سريعة بكل يسر.
- ماكرو VBA: الخيار الأمثل لأتمتة المهام المتكررة، خصوصًا عند التعامل مع مجموعات البيانات الكبيرة. فهو يتطلب معرفة أساسية بالبرمجة، لكنه يوفّر أعلى درجات المرونة.
اختر الطريقة الأنسب لاحتياجاتك، سواء كنت تعمل مع مجموعة صغيرة من البيانات أو تحتاج إلى حلٍّ قابل للتوسّع لمجموعات بيانات أكبر. وإذا كنت مهتمًّا باستكشاف المزيد من نصائح وحيل Excel،فإن موقعنا يوفّر آلاف الدروس التعليمية لمساعدتك على إتقان Excel.
مقالات ذات صلة:
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل