كيفية نقل كل صف بديل إلى أعمدة في Excel؟

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

• نقل كل صف بديل إلى عمود باستخدام الصيغ
• نقل كل صف بديل إلى عمود باستخدام Kutools لـ Excel
• نقل كل صف بديل إلى عمود باستخدام VBA

نقل كل صف بديل إلى عمود باستخدام الصيغ

هذه طريقة مباشرة تستخدم دالة INDEX في Excel لاستخراج الصفوف المتبادلة وعرضها كأعمدة. إذا كنت تريد تحويل الأسماء إلى عمود واحد والسنوات إلى العمود التالي، يرجى تطبيق الصيغ التالية:

1. في الخلية C2، أدخل الصيغة التالية في خلية فارغة، ثم اسحب الصيغة لأسفل حسب الحاجة. تقوم هذه الصيغة باسترجاع القيمة من كل صف ثاني بدءًا من الصف 2 (الأسماء).

=INDEX($A:$A, (ROW(A1)-1)*2 + 2)

2. في الخلية D2، أدخل الصيغة أدناه لاستخراج البيانات البديلة، واسحب الصيغة لأسفل لملء الخلايا.

 =INDEX($A:$A, (ROW(A1)-1)*2 + 3)

نقل كل صف بديل إلى عمود باستخدام Kutools لـ Excel

إذا كنت تفضل حلًا أكثر سهولة في الاستخدام ولا يتطلب صيغًا، فإن Kutools لـ Excel يقدم ميزة تتيح لك نقل الصفوف إلى الأعمدة بسهولة.

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

1. انقر فوق Kutools > النطاق > تحويل النطاق.
   
2. في مربع حوار تحويل النطاق، قم بتعيين العمليات التالية:
   • حدد النطاق الذي تريد نقل كل صف بديل منه.
   • حدد عمود واحد إلى نطاق في قسم نوع التحويل.
   • ثم حدد قيمة ثابتة واختر أو أدخل 2 في القائمة في قسم عدد الصفوف لكل سجل.
   • أخيرًا، انقر فوق زر موافق.
     
3. في مربع الحوار المنبثق التالي، حدد خلية واحدة لوضع النتيجة، انظر إلى لقطة الشاشة:
   
4. انقر فوق موافق، وسيقوم Kutools تلقائيًا بنقل كل صف بديل إلى أعمدة منفصلة.
   

نقل كل صف بديل إلى عمود باستخدام كود VBA

إذا كنت بحاجة إلى تنفيذ هذه المهمة بشكل متكرر، يمكن أن يؤدي استخدام ماكرو VBA إلى أتمتة العملية، مما يجعلها أسرع وأكثر كفاءة.

1. اضغط معًا على مفتاحي F11 + Alt على لوحة المفاتيح لفتح نافذة Microsoft Visual Basic for Applications.

2. ثم انقر فوق إدراج > وحدة لإدراج نافذة وحدة جديدة. وبعد ذلك، انسخ الكود التالي لـ 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. انقر فوق زر التشغيل أو مفتاح F5 على لوحة المفاتيح، وسيظهر مربع حوار يطلب منك تحديد نطاق للنقل. انظر إلى لقطة الشاشة:

4. ثم انقر فوق موافق لعرض مربع الحوار الآخر لتحديد خلية لإخراج النتيجة. انظر إلى لقطة الشاشة:

5. انقر فوق موافق، ويمكنك رؤية النتيجة كما هو موضح أدناه:

🎯 الخاتمة:

كل طريقة لنقل كل صف بديل إلى أعمدة في Excel لها مزاياها الخاصة، حسب احتياجاتك:

• طريقة الصيغ: الأفضل للمهام السريعة ذات المجموعات الصغيرة من البيانات. لا تتطلب أدوات إضافية ولكن قد تبطئ مع نطاقات بيانات كبيرة.
• Kutools لـ Excel: مثالي للمستخدمين الذين يفضلون حلولًا بسيطة تعتمد على النقر دون صيغ أو ترميز معقد. يوفر Kutools واجهة مستخدم سهلة لتحويلات سريعة.
• ماكرو VBA: الخيار الأفضل للأتمتة والمهمات المتكررة، خاصةً مع المجموعات الكبيرة من البيانات. يتطلب معرفة أساسية بالترميز ولكنه يقدم أقصى درجات المرونة.

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

مقالات ذات صلة:

• تحديد كل صف زوجي في Excel
• نسخ كل صف بديل