كيفية تقسيم عمود كل صف آخر في إكسيل؟
على سبيل المثال ، لدي قائمة طويلة من البيانات ، والآن ، أريد تقسيم العمود إلى قائمتين بالتساوي حسب كل صف آخر كما هو موضح في لقطة الشاشة التالية. هل هناك أي طرق جيدة للتعامل مع هذه المهمة في 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 ، ويفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة او شباك.
كود فبا: قم بتقسيم عمود إلى عمودين كل صف آخر
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. وانقر OK، تم وضع مربع موجه آخر للسماح لك بتحديد خلية لوضع النتيجة ، انظر لقطة الشاشة:
5. ثم اضغط OK، وتم تقسيم العمود إلى عمودين بواسطة كل صف آخر. انظر لقطة الشاشة:
قم بتقسيم عمود كل صف آخر باستخدام Kutools for Excel
إذا كنت تريد معرفة المزيد من الأشياء الجديدة ، يمكنني أن أوصي بأداة قوية -كوتولس ل إكسيل، بما لديها نطاق التحويل يمكنك تحويل صف أو عمود واحد بسرعة إلى نطاق من الخلايا والعكس صحيح.
كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30. |
بعد تثبيت كوتولس ل إكسيل، يرجى القيام بما يلي: تحميل مجاني Kutools لبرنامج Excel الآن )
1. حدد بيانات العمود التي تريد تقسيمها إلى عمودين حسب كل صف آخر.
2. ثم اضغط كوتولس > الفترة (من ... إلى) > نطاق التحويل، انظر لقطة الشاشة:
3. في نطاق التحويل مربع الحوار، حدد عمود واحد للنطاق تحت نوع التحويل، ثم اختر قيمة ثابتة وأدخل 2 في المربع في عدد الصفوف لكل سجل القسم ، انظر لقطة الشاشة:
4. ثم اضغط Ok ، وسيظهر مربع موجه لتذكيرك بتحديد خلية تريد إخراج النتيجة فيها ، انظر لقطة الشاشة:
5. انقر OK، تم تقسيم بيانات القائمة إلى عمودين كل صف آخر.
انقر لمعرفة المزيد حول أداة Transform Range هذه.
تحميل مجاني Kutools لبرنامج Excel الآن
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!