كيف يمكن تكديس الأعمدة من اليسار إلى اليمين في عمود واحد في Excel؟
بفرض وجود عدة أعمدة، كيف يمكن تكديسها من اليسار إلى اليمين في عمود واحد—كما يظهر في لقطة الشاشة أدناه—بدون اللجوء إلى نقل كل عمود يدويًّا؟
تكديس الأعمدة من اليسار إلى اليمين في عمود واحد باستخدام VBA
تكديس الأعمدة من اليسار إلى اليمين في عمود واحد باستخدام Kutools لـ Excel
تكديس الأعمدة من اليسار إلى اليمين في عمود واحد باستخدام VBA
في Excel، لا توجد دالة مدمجة قادرة على تنفيذ هذه المهمة، لكن يُمكن لرمز VBA أن يساعدك.
1. اضغط علىAlt + F11، ثم في نافذةMicrosoft Visual Basic for Applications، انقر فوقإدراج > وحدة نمطيةلإنشاء وحدة نمطية فارغة جديدة.
2. انسخ والصق الكود أدناه فيالوحدة النمطية.
VBA: تكديس الأعمدة في عمود واحد
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
3. اضغط على مفتاحF5 لتشغيل الكود، وسيظهر مربع حوار يطلب منك تحديد الأعمدة التي تريد تكديسها في عمود واحد.
4. انقر فوقموافق، ثم اختر خلية لإدخال النتيجة فيها.
5. انقر فوقموافقلإنهاء العملية. الآن، تم تكديس الأعمدة المحددة في عمود واحد.
تكديس الأعمدة من اليسار إلى اليمين في عمود واحد باستخدام Kutools لـ Excel
إذا كان لديكKutools لـ Excelمثبَّتًا في Excel، فيمكنك استخدام أداةTransform Range لأداء هذه المهمة.
بعد تثبيتKutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. حدد الأعمدة التي تريد تكديسها، ثم انقر فوقKutools > نطاق > Transform Range.
2. في مربع حوارTransform Range، فعِّل خانة الاختيارRange to single row، ثم انقر فوقموافق.
3. في مربع الحوار الظاهر، حدد الخلية التي تريد وضع النتيجة فيها، ثم انقر فوقموافق.
الآن، تم تحويل الأعمدة إلى صف واحد.
4. حدد الصف المطلوب، ثم اضغط علىCtrl + C لنسخه. بعد ذلك، حدد الخلية التي ترغب في وضع العمود المكدَّس فيها، وانقر بزر الماوس الأيمن لاختيارTranspose(T) من القائمة السياقية.
الآن، تم تحويل الصف الواحد إلى عمود مكدَّس.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل