Note: The other languages of the website are Google-translated. Back to English

كيفية تكديس الأعمدة من اليسار إلى اليمين في عمود واحد في إكسيل؟

بافتراض وجود أعمدة متعددة ، تتمثل المهمة في تكديس الأعمدة من اليسار إلى اليمين في عمود واحد كما هو موضح أدناه. باستثناء نقل الأعمدة يدويًا واحدًا تلو الآخر ، هل هناك أي حيل لحل هذا في Excel؟
أعمدة مكدس doc من اليسار إلى اليمين 1

تكديس الأعمدة من اليسار إلى اليمين إلى عمود واحد باستخدام VBA

كومة الأعمدة من اليسار إلى اليمين إلى عمود واحد باستخدام Kutools for Excel


تكديس الأعمدة من اليسار إلى اليمين إلى عمود واحد باستخدام VBA

في Excel ، لا توجد وظيفة مضمنة يمكنها التعامل مع هذه المهمة ، ولكن يمكن أن يساعدك رمز VBA.

1. صحافة Alt + F11 مفاتيح ، ثم في ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة لإنشاء وحدة فارغة جديدة.

2. انسخ والصق الكود أدناه إلى وحدة.

فبا: تكديس الأعمدة في واحد

Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select Columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
    Application.ScreenUpdating = True
    Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
    Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
    For xFNumC = 1 To xSRg.Columns.Count
        For xFNumR = 1 To xSRg.Rows.Count
            Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
            xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
            xI = xI + 1
        Next xFNumR
    Next xFNumC
Application.ScreenUpdating = True
End Sub

أعمدة مكدس doc من اليسار إلى اليمين 2

3. صحافة F5 مفتاح لتشغيل الكود ، يظهر لك مربع حوار لتحديد الأعمدة التي سوف تكدسها في واحد.
أعمدة مكدس doc من اليسار إلى اليمين 3

4. انقر OK، حدد خلية لوضع النتيجة.
أعمدة مكدس doc من اليسار إلى اليمين 4

5. انقر OK لانهاء. الآن تم تكديس الأعمدة المحددة في عمود واحد.
أعمدة مكدس doc من اليسار إلى اليمين 5


كومة الأعمدة من اليسار إلى اليمين إلى عمود واحد باستخدام Kutools for Excel

إذا كان لديك كوتولس ل إكسيل مثبتًا في Excel ، يمكنك استخدام ملف Transform Range فائدة للتعامل مع هذه الوظيفة.

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي:(تنزيل مجاني Kutools for Excel الآن!)

1. حدد الأعمدة التي تريد تكديسها ، انقر فوق كوتولس > الفترة (من ... إلى) > Transform Range.
أعمدة مكدس doc من اليسار إلى اليمين 6

2. في ال Transform Range الحوار ، تحقق Range to single row مربع الاختيار ، انقر فوق Ok.
أعمدة مكدس doc من اليسار إلى اليمين 7

3. في مربع الحوار المنبثق ، حدد خلية لوضع النتيجة ، انقر فوق OK.
أعمدة مكدس doc من اليسار إلى اليمين 8

الآن تم تحويل الأعمدة إلى صف واحد.
أعمدة مكدس doc من اليسار إلى اليمين 9

4. حدد صف واحد ، اضغط Ctrl + C لنسخه ، وتحديد خلية أخرى ستضع عمود المكدس ، انقر بزر الماوس الأيمن للتحديد Transpose(T) في قائمة السياق.
أعمدة مكدس doc من اليسار إلى اليمين 10

الآن تم نقل الصف الفردي إلى عمود مكدس.
عمود مكدس doc من اليسار إلى اليمين 11


أفضل أدوات إنتاجية المكتب

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

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

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (3)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
غش كلمة لفعل الشيء نفسه:
- انسخ كل ما تبذلونه من الصفوف والخطوط في Excel
- لصق في مستند Word بدون
- ctrl + h (بحث واستبدال)
- نسخ مسافة جدولة بين صفين
- الصق في شريط البحث
- استبدل بعلامات الجدولة بفواصل الأسطر "^ l"

جميع الخلايا الخاصة بك الآن في عمود في مستند Word الخاص بك.
انسخها والصقها في Excel: تم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
سأكون ممتنا لك إلى الأبد. شكرا جزيلا لك!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هل يعرف أي شخص كيفية استبدال / ترميز الأعمدة (وليس إظهار مربع الرسالة للاختيار)؟ لذا ، قم بتعيين XSRg ليكون شيئًا مثل: Set xSRg = Range ("A1"). CurrentRegion.Select (الذي لا يعمل بسبب من نوع عدم تطابق) شكرا
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL