نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية تقسيم عمود كل صف آخر في إكسيل؟

دوك تقسيم كل صف آخر شنومكس

على سبيل المثال، لدي قائمة طويلة من البيانات، والآن، أريد تقسيم العمود إلى قائمتين بالتساوي من كل صف آخر كما تظهر لقطة الشاشة التالية. هل هناك أي طرق جيدة للتعامل مع هذه المهمة في إكسيل؟

تقسيم عمود كل صف آخر مع الصيغ

تقسيم عمود كل صف آخر مع التعليمات البرمجية فبا

تقسيم عمود كل صف آخر مع كوتولس ل إكسيل


تقسيم عمود واحد إلى كل صف آخر أو نث:

مع كوتولس ل إكسيل's تحويل المدى ، يمكنك تحويل بسرعة صف واحد أو عمود إلى مجموعة من الخلايا أو العكس بالعكس.

دوك تقسيم كل صف آخر شنومكس


السهم الأزرق الفقاعة اليمنى تقسيم عمود كل صف آخر مع الصيغ


قد تساعدك الصيغ التالية على تقسيم عمود بسرعة إلى عمودين في كل صف آخر، يرجى إجراء ما يلي:

1. أدخل هذه الصيغة في خلية فارغة، كسنومكس، على سبيل المثال، =INDEX($A$2:$A$13,ROWS(C$1:C1)*2-1)، انظر الصورة:

دوك تقسيم كل صف آخر شنومكس

2. ثم اسحب مقبض التعبئة لأسفل حتى يتم عرض الأخطاء في الخلايا، انظر الصورة:

دوك تقسيم كل صف آخر شنومكس

3. ثم أدخل صيغة أخرى في الخلية دسنومكس، =INDEX($A$2:$A$13,ROWS(D$1:D1)*2)، واسحب مقبض التعبئة لأسفل إلى الخلايا حتى تظهر قيم الخطأ، وتم تقسيم قيم الأعمدة إلى عمودين كل صف آخر، راجع لقطة شاشة:

دوك تقسيم كل صف آخر شنومكس


السهم الأزرق الفقاعة اليمنى تقسيم عمود كل صف آخر مع التعليمات البرمجية فبا

إذا كنت مهتما في قانون فبا، هنا، أستطيع أن أتحدث عن رمز لك لحل هذه المشكلة.

1. اضغط باستمرار ALT + F11 مفاتيح في إكسيل، ويفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في وحدة نافذة او شباك.

رمز فبا: تقسيم عمود إلى عمودين كل صف آخر

Sub SplitEveryOther()
'Updateby20150813
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، وتم تقسيم العمود إلى عمودين في كل صف آخر. انظر لقطة الشاشة:

دوك تقسيم كل صف آخر شنومكس


السهم الأزرق الفقاعة اليمنى تقسيم عمود كل صف آخر مع كوتولس ل إكسيل

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

كوتولس ل إكسيل : مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومك.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام على النحو التالي :( تحميل مجانا كوتولس ل إكسيل الآن )

1. حدد بيانات العمود التي تريد تقسيمها إلى عمودين حسب كل صف آخر.

2. ثم اضغط Kutools > الفترة (من ... إلى) > تحويل المدى، انظر الصورة:

دوك تقسيم كل صف آخر شنومكس

3. في تحويل المدى مربع الحوار، حدد عمود واحد إلى النطاق تحت تحويل نوع، ثم اختر قيمة ثابتة وأدخل 2 في المربع في الصفوف لكل سجل سيكتيون، سي لقطة الشاشة:

دوك تقسيم كل صف آخر شنومكس

4. ثم اضغط Ok زر، وسوف مربع موجه يخرج لتذكيرك تحديد خلية حيث تريد إخراج النتيجة، انظر قطة:

دوك تقسيم كل صف آخر شنومكس

5. انقر OK، تم تقسيم بيانات القائمة إلى عمودين كل صف آخر.

انقر لمعرفة المزيد حول هذه الأداة المساعدة المدى التحويل.

تحميل مجانا كوتولس ل إكسيل الآن


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jas · 5 months ago
    How to do the opposite of this? Get two column info in one row ?
    • To post as a guest, your comment is unpublished.
      skyyang · 4 months ago
      Hi, Jas,
      To do the opposite of this, to convert two columns data into one single column, you should apply the below VBA code:

      Sub ConvertRangeToColumn()
      Dim Range1 As Range, Range2 As Range, Rng As Range
      Dim rowIndex As Integer
      xTitleId = "KutoolsforExcel"
      Set Range1 = Application.Selection
      Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
      Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
      rowIndex = 0
      Application.ScreenUpdating = False
      For Each Rng In Range1.Rows
      Rng.Copy
      Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
      rowIndex = rowIndex + Rng.Columns.Count
      Next
      Application.CutCopyMode = False
      Application.ScreenUpdating = True
      End Sub

      Please try, hope it can help you!
  • To post as a guest, your comment is unpublished.
    Jeff · 3 years ago
    As a workaround, you can do the following:

    Using the above example,

    1. Type "=a2" in c2 and "=a3" in d3.

    2. Now select c2 through d3.

    3. Drag the fill handle parallel to all the data.

    4. Now delete cell a2 and shift cells up.

    5. Now we need to convert the formula results to the calculated values. That's easily done by copying all the data including the blank rows and pasting the values right on top of itself.

    6. Now you can simply sort any of the column alphabetically to bring all the data up.