كيف تدمج أعمدة متعددة في قائمة واحدة في Excel؟
لدمج أعمدة متعددة في قائمة طويلة، يمكنك عادةً نسخ ولصق بيانات كل عمود على حدة في العمود المطلوب. لكنني هنا لأقدّم لك بعض الحيل السريعة التي تُسهّل إنجاز هذه المهمة في Excel!
دمج أعمدة متعددة في قائمة واحدة باستخدام كود VBA
دمج أعمدة متعددة في قائمة واحدة باستخدام Kutools لـ Excel
دمج أعمدة متعددة في قائمة واحدة باستخدام كود VBA
بدون الحاجة إلى تكرار نسخ ولصق بيانات الأعمدة، يُمكن لرمز VBA التالي أن يُنجز هذه المهمة بسرعة وسهولة.
1. اضغط مع الاستمرار على مفتاحَيAlt + F11 في Excel، وستفتح لك نافذةMicrosoft Visual Basic for Applications.
2. انقرإدراج > وحدة نمطية (Module)، ثم الصق ماكرو التالي في نافذةالوحدة النمطية (Module).
كود VBA: دمج أو دمج أعمدة متعددة في قائمة واحدة
Sub CombineColumns1()
'updateby Extendoffice
Dim xRng As Range
Dim i As Integer
Dim xLastRow As Integer
Dim xTxt As String
On Error Resume Next
xTxt = Application.ActiveWindow.RangeSelection.Address
Set xRng = Application.InputBox("please select the data range", "Kutools for Excel", xTxt, , , , , 8)
If xRng Is Nothing Then Exit Sub
xLastRow = xRng.Columns(1).Rows.Count + 1
For i = 2 To xRng.Columns.Count
Range(xRng.Cells(1, i), xRng.Cells(xRng.Columns(i).Rows.Count, i)).Cut
ActiveSheet.Paste Destination:=xRng.Cells(xLastRow, 1)
xLastRow = xLastRow + xRng.Columns(i).Rows.Count
Next
End Sub
3. ثم اضغط على مفتاحF5 لتشغيل هذا الكود، وستظهر نافذة منبثقة لتذكيرك باختيار نطاق البيانات الذي تريد دمجه في عمود واحد فقط. انظر لقطة الشاشة:
4. ثم انقر على زرموافق (OK)، وستُدمج الأعمدة المحددة في عمود واحد فقط كما هو موضح في لقطات الشاشة التالية:
 |  |  |
ملاحظات: بعد تشغيل كود VBA هذا، سيتم مسح البيانات الأصلية للنطاق، لذا ننصحك بنسخها وحفظها في موقع آخر أولاً.
دمج أعمدة متعددة في قائمة واحدة باستخدام Kutools لـ Excel
إذا كنت قد قمت بتثبيتKutools لـ Excel، فإن أداةتحويل النطاقالخاصة بها يمكنها مساعدتك في دمج أعمدة متعددة في عمود واحد أو صف واحد.
بعد تثبيتKutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. حدد بيانات الأعمدة التي ترغب في دمجها في قائمة واحدة.
2. ثم انقر علىKutools > نطاق (Range) > تحويل النطاق، انظر لقطة الشاشة:
3. في مربع الحوارتحويل النطاق، اختر خيارنطاق إلى عمود واحد، ثم انقر على زرموافق (Ok). انظر لقطة الشاشة:
4. في مربع الحوار المنبثق التاليتحويل النطاق، انقر على الخلية التي ترغب في عرض النتيجة فيها. راجع لقطة الشاشة التالية:
5. ثم انقر على زرموافق (OK)، وستُدمج الأعمدة المحددة في عمود واحد بالموقع الذي تحدده. انظر لقطة الشاشة:
حمّل وجرب مجانًاKutools لـ Excel الآن!
عرض توضيحي: دمج أعمدة متعددة في قائمة واحدة باستخدام Kutools لـ Excel
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل