كيف يمكن تكديس أعمدة متعددة بسرعة في عمود واحد في Excel؟
في Excel، تم تصميم ميزةالنص إلى أعمدةلتقسيم البيانات في عمود واحد إلى أعمدة متعددة باستخدام محدد معين. ولكن ماذا لو كنت بحاجة إلى العكس—دمج أو تكديس القيم من أعمدة متعددة في عمود واحد، كما في المثال أدناه؟ يظهر هذا السيناريو غالبًا عند توحيد مجموعات البيانات، أو إعداد المعلومات للتحليل، أو تنسيق التقارير للمعالجة اللاحقة. وللأسف، لا توجد دالة مضمنة في Excel تقوم بتكديس الأعمدة رأسيًّا مباشرةً، لكن هناك عدة حلول عملية يمكنك استخدامها لتحقيق هذه المهمة بكفاءة.
تكديس أعمدة متعددة في عمود واحد باستخدام صيغة
تكديس أعمدة متعددة في عمود واحد باستخدام VBA
تكديس أعمدة متعددة في عمود واحد باستخدام تحويل النطاق
تكديس أعمدة متعددة في عمود واحد باستخدام Power Query
تكديس أعمدة متعددة في عمود واحد باستخدام صيغة
إذا كنت تفضل عدم استخدام ماكرو أو إضافات، فيمكنك دمج أعمدة متعددة في عمود واحد باستخدام صيغة صفيفية تعتمد على دالةINDEX. يناسب هذا الأسلوب مجموعات البيانات الديناميكية أو الحالات التي ترغب فيها في تجنب العمليات اليدوية. ومن أبرز مزاياه أن الصيغة ستُحدِّث النتائج تلقائيًّا بمجرد تغيُّر البيانات الأصلية، لكن عليك أن تكون دقيقًا في تحديد نطاق اسم الخلية وتجنب إدراج خلايا جديدة أو حذفها ضمن النطاق المرجعي.
1. حدد نطاق البيانات الذي ترغب في تسميته (على سبيل المثال، A1:C4)، ثم انقر فيمربع الاسم (الموجود على يسار شريط الصيغة)، واكتب اسمًا معبرًا مثلMyData، واضغطEnter. سيُعطي ذلك اسمًا لنطاقك لتسهيل الرجوع إليه.
2. انقر على خلية فارغة حيث تريد أن يبدأ العمود المكدَّس—عادةً أسفل بياناتك أو في ورقة عمل أخرى—ثم الصق هذه الصيغة في الخلية المحددة:
=INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1)3. اضغطEnter للتأكيد، ثم اسحب مقبض التعبئة لأسفل حتى يظهر خطأ مثل#REF!، مما يدل على أن جميع البيانات قد تم سردها. احذف خلية الخطأ إذا لزم الأمر.
في هذه الصيغة، يشيرMyData إلى النطاق الذي عرَّفته في الخطوة 1. ويتكيّفCOLUMNS(MyData) تلقائيًّا مع عدد الأعمدة في بياناتك. تأكد من عدم إدراج خلايا إضافية أو حذف أعمدة من داخل MyData بعد إدخال الصيغة، لأن ذلك قد يؤثر على النتائج. إذا كانت بياناتك تحتوي على خلايا فارغة، فسيتم تضمين هذه الفراغات أيضًا—ويمكنك تصفية الخلايا الفارغة لاحقًا إذا لزم الأمر. وبالنسبة للنطاقات الكبيرة، قد يستغرق سحب مقبض التعبئة وقتًا طويلاً؛ لذا فكِّر في النقر المزدوج على مقبض التعبئة إذا كان العمود الموجود على اليسار يحتوي على بيانات حتى نهايته.
إذا كانت نسخة Excel الخاصة بك تدعم المصفوفات الديناميكية (Excel 365 أو Excel 2021 فأحدث)، فيمكنك تجربة:
=TOCOL(MyData,1)هذه الصيغة متاحة فقط في إصدارات Excel الأحدث، وتقوم فورًا بتجميع الأعمدة في عمود واحد.
تكديس أعمدة متعددة في عمود واحد باستخدام VBA
إذا كنت بحاجة متكررة إلى تكديس الأعمدة أو تسعى للحصول على تحكم أكبر، فإن ماكرو VBA يمكنه أتمتة هذه العملية بنقرات قليلة فقط. يُعد VBA الحل المثالي للمستخدمين المتقدمين الذين يعملون مع مجموعات بيانات ضخمة أو مهام متكررة. ومع ذلك، ضع في اعتبارك أن تمكين الماكرو قد يشكّل خطرًا أمنيًّا إذا لم تكن متأكدًا من مصدره. لذا، احفظ ملفك دائمًا قبل التشغيل، وتوخَّ الحذر عند تنفيذ أكواد غير مألوفة.
1. اضغطAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. في نافذة VBA، انقرإدراج > وحدة نمطية. ثم انسخ والصق الكود التالي في الوحدة النمطية الجديدة:
VBA: تكديس الأعمدة في عمود واحد
Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
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
3. لتشغيل الماكرو، اضغطF5 أو انقر زرتشغيل. بعد التشغيل، ستظهر نافذة منبثقة—اختر نطاق البيانات الذي تريد تكديسه، ثم انقرموافق.
4. بعد ذلك، سيتم طلب تحديد خلية الوجهة للنتيجة. انقر مرة أخرى علىموافق. سيتم تكديس الأعمدة في عمود واحد بدءًا من خلية الوجهة.
إذا واجهت خطأً، فتحقق مجددًا من تحديد النطاق وتأكد من أن الأوراق غير محمية وغير مدمجة. ولإجراء تخصيصات أكثر تقدمًا—مثل تخطي الخلايا الفارغة أو تكديس أعمدة محددة فقط—يمكنك تعديل الكود بشكل إضافي. تذكّر دائمًا حفظ عملك قبل تشغيل كود VBA لتجنب فقدان البيانات غير المرغوب فيه.
تكديس أعمدة متعددة في عمود واحد باستخدام تحويل النطاق
إذا كنت تفضّل حلاً سريعًا وسهل الاستخدام دون الحاجة إلى كتابة صيغ أو أكواد، فجرب ميزةتحويل النطاقفيKutools لـ Excel. تُعد هذه الأداة مثالية للمستخدمين الذين يرغبون في معالجة البيانات بسرعة عبر واجهة بديهية—مثل مديري المكاتب أو من يتعاملون بانتظام مع بيانات متعددة الأبعاد. يقلل استخدام Kutools من احتمالية الوقوع في أخطاء الصيغ ويوفّر وقتك الثمين، رغم أنه يتطلب تثبيت الإضافة.
بعدتثبيت النسخة المجانيةKutools لـ Excel، اتبع الخطوات التالية:
1. حدد الأعمدة أو نطاق البيانات الذي تريد تكديسه في عمود واحد، ثم انقرKutools > نطاق > تحويل النطاقلفتح مربع الحوار.
2. في مربع حوارتحويل النطاق، اختر خيارنطاق إلى عمود واحد، ثم انقرموافق. بعد ذلك، حدد الخلية التي ترغب في ظهور النتيجة بها.
3. أخيرًا، انقرموافق. سيتم تكديس الأعمدة المحددة فورًا في عمود واحد في الموقع الذي اخترته.
هذه الطريقة مباشرة وخالية من الأخطاء. تذكّر أنه يمكنك التراجع بسهولة عن أي تغيير (باستخدام Ctrl + Z) إذا بدا لك أن شيئًا ما غير صحيح، أو إعادة تشغيل تحويل النطاق متى احتجتَ إلى ذلك لمجموعات بيانات مختلفة. وإذا كانت بياناتك تحتوي على خلايا مدمجة، فننصحك بإلغاء دمجها أولًا قبل استخدام هذه الميزة لتجنب نتائج غير متوقعة.
تكديس أعمدة متعددة في عمود واحد باستخدام Power Query
يُعد Power Query (المعروف أيضًا باسم «Get & Transform» في بعض إصدارات Excel) وسيلةً فعّالة لدمج أعمدة متعددة في عمود واحد، خاصةً للمستخدمين الذين يتعاملون مع كميات كبيرة من البيانات أو يحتاجون إلى أتمتة مهام تحويل البيانات المتكررة. فهو مدمجٌ في Excel 2016 والإصدارات الأحدث، ويتوفر كإضافة مجانية لـ Excel 2010 و2013. ويُعتبر أداةً قوية جدًّا لإعداد البيانات المتقدم، إذ يُبسّط تنفيذ عمليات إعادة التشكيل المعقدة عبر واجهة مستخدم بديهية وسهلة الاستخدام. ومع ذلك، قد يواجه المستخدمون الجدد منحنى تعلُّم قصير قبل أن يتقنوا استخدامه.
حمّل جدول البيانات المصدر الخاص بك في Power Query! ابدأ بتحديد بياناتك في Excel، ثم انتقل إلىبيانات > من جدول/نطاقلفتح محرر Power Query.
2. حدد جميع الأعمدة في معاينة الاستعلام. انتقل إلى تبويبتحويل، وابحث عن مجموعةجدول، ثم انقرعكس. سيؤدي ذلك إلى عكس الصفوف والأعمدة.
3. مرة أخرى، حدد جميع الأعمدة المعكوسة. في تبويبتحويل، ضمن مجموعةأي عمود، انقر علىفك الربط العمودي للأعمدة.
4. أزل عمود «السمة» إذا لم تكن بحاجة إليه: انقر بزر الماوس الأيمن على رأس عمود «السمة»، ثم اختر «إزالة».
5. انقرإغلاق وتحميللإرسال النتيجة إلى Excel كورقة عمل جديدة أو جدول. في أي وقت، يمكنك تحديث التحويل أو إعادة تطبيقه إذا تغيّرت البيانات الأصلية.
يتيح لك Power Query حفظ عملية التكديس هذه كاستعلام قابل لإعادة الاستخدام، لتحديث النتائج بسرعة فور تغيّر بياناتك في المستقبل.
ملاحظة: قد لا تحتفظ هذه الطريقة بمعلومات رؤوس الأعمدة الأصلية من البيانات المصدرية.
باختصار، لكلٍّ من هذه الطرق مزاياها: فالصيغ مثالية لتحديث البيانات ديناميكيًّا، وVBA رائعة لأتمتة المهام المتكررة، ويُمكِّنك Kutools لـ Excel من تنفيذ العمليات بنقراتٍ قليلة دون الحاجة إلى خبرة تقنية كبيرة، أما Power Query فهو الخيار الأمثل للتحويلات المتقدمة أو المتكررة. تأكد دائمًا من مراجعة بياناتك المكدَّسة بحثًا عن خانات فارغة متبقية، أو خلايا مدمجة، أو أخطاء في التنسيق بعد المعالجة. وإذا ظهرت أخطاء أو نتائج غير متوقعة، فراجع مجددًا النطاقات أو خطوات الاختيار التي حددتها. وسيساعدك الجمع بين هذه الطرق على إدارة بيانات 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل