انتقل إلى المحتوى الرئيسي

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

بافتراض وجود أعمدة متعددة ، تتمثل المهمة في تكديس الأعمدة من اليسار إلى اليمين في عمود واحد كما هو موضح أدناه. باستثناء نقل الأعمدة يدويًا واحدًا تلو الآخر ، هل هناك أي حيل لحل هذا في 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 AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Does anyone know how to replace/hardcode the columns (not bring up the message box for selection)?So, set the XSRg to be something like: Set xSRg = Range("A1").CurrentRegion.Select(which does not work because of type mismatch)thanks
This comment was minimized by the moderator on the site
I will be eternally grateful to you. Thank you so much!
This comment was minimized by the moderator on the site
A Word cheat to do the same:
- copy all your rows and lines in Excel
- paste without into a Word doc
- ctrl + h (find and replace)
- copy a tabulation space between two rows
- paste into search bar
- replace by tabs by line breaks "^l"

All your cells are now in column in your Word doc.
Copy paste them into Excel: done!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations