كيفية تكديس عدة أعمدة بسرعة في عمود واحد في 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 يشير إلى النطاق الذي قمت بتحديده في الخطوة الأولى. COLUMNS(MyData) يقوم تلقائيًا بضبط عدد الأعمدة في بياناتك. تأكد من عدم إدخال أو حذف الأعمدة داخل MyData بعد إدخال الصيغة، لأن ذلك يمكن أن يؤثر على النتائج. إذا كانت بياناتك تحتوي على خلايا فارغة، فسيتم أيضًا تكديس تلك الفراغات - يمكنك تصفيتها فيما بعد إذا لزم الأمر. بالنسبة للنطاقات الكبيرة، قد يستغرق سحب مقبض التعبئة وقتًا؛ فكر في النقر المزدوج على مقبض التعبئة إذا كان العمود المجاور يحتوي على بيانات طوال الطريق لأعلى.
إذا كانت إصدار Excel لديك يدعم المصفوفات الديناميكية (Excel365 أو Excel2021 وما بعدها)، يمكنك تجربة:
=TOCOL(MyData,1)هذه الصيغة متوفرة فقط في إصدارات Excel الأحدث وتقوم بتكديس الأعمدة في عمود واحد على الفور.
تكديس عدة أعمدة في واحدة باستخدام VBA
إذا كنت بحاجة بشكل متكرر إلى تكديس الأعمدة أو ترغب في الحصول على تحكم أكبر، يمكن لماكرو VBA أتمتة هذه العملية بنقرات قليلة. VBA مثالي للمستخدمين المتقدمين الذين يتعاملون مع مجموعات بيانات كبيرة أو مهام متكررة. ضع في اعتبارك، مع ذلك، أن تفعيل الماكرو يمكن أن يشكل خطرًا أمنيًا إذا لم تكن متأكدًا من مصدر الماكرو. قم دائمًا بحفظ ملفك مسبقًا وكن حذرًا عند تشغيل التعليمات البرمجية غير المألوفة.
1. اضغط Alt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. في نافذة VBA، انقر فوق Insert > Module. انسخ والصق الكود التالي في الوحدة الجديدة:
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، أو انقر فوق زر Run. بعد التشغيل، ستظهر رسالة - حدد نطاق البيانات الذي تريد تكديسه وانقر OK.
4. سيتم بعد ذلك مطالبتك باختيار خلية وجهة للنتيجة. انقر OK مرة أخرى. سيتم تكديس الأعمدة في عمود واحد بدءًا من خلية الوجهة.
إذا واجهت خطأ، قم بمراجعة النطاق المحدد وتأكد من عدم وجود أوراق محمية أو خلايا مدمجة. للحصول على تخصيص متقدم أكثر، مثل تخطي الفراغات أو تكديس أعمدة معينة فقط، يمكن تعديل الكود بشكل أكبر. تذكر دائمًا حفظ عملك قبل تشغيل كود VBA لمنع فقدان البيانات غير المرغوب فيه.
تكديس عدة أعمدة في واحدة باستخدام تحويل النطاق
إذا كنت تفضل حل سريع وسهل الاستخدام دون الحاجة إلى كتابة الصيغ أو التعليمات البرمجية، يمكنك استخدام ميزة تحويل النطاق من Kutools لـ Excel. هذه الأداة مفيدة جدًا للمستخدمين الذين يرغبون في معالجة البيانات بسرعة عبر واجهة مستخدم سهلة الاستخدام، مثل مديري المكاتب أو أولئك الذين يعالجون البيانات متعددة الأبعاد بشكل روتيني. باستخدام Kutools، يتم تقليل خطر أخطاء الصيغة ويتم توفير الكثير من الوقت، رغم أنه يتطلب تثبيت الوحدة الإضافية.
بعد تثبيت Kutools لـ Excel مجانًا، تابع كالآتي:
1. حدد الأعمدة أو نطاق البيانات الذي تريد تكديسه في عمود واحد. ثم انقر فوق Kutools > النطاق > تحويل النطاق لفتح النافذة الحوارية.
2. في نافذة تحويل النطاق اختر الخيار النطاق إلى عمود واحد وانقر فوق OK. بعد ذلك، حدد الخلية التي تريد ظهور النتيجة فيها.
3. أخيرًا، انقر فوق OK. سيتم تكديس الأعمدة المحددة فورًا في عمود واحد في الموقع الذي اخترته.
هذه الطريقة مباشرة وخالية من الأخطاء. تذكر أنه يمكنك التراجع عن التغيير بسهولة (Ctrl + Z) إذا لم يكن شيء يبدو صحيحًا، أو إعادة تشغيل تحويل النطاق حسب الحاجة لمجموعات بيانات مختلفة. إذا كانت بياناتك تحتوي على خلايا مدمجة، فمن الأفضل فك دمجها قبل استخدام هذه الميزة لتجنب النتائج غير المتوقعة.
تكديس عدة أعمدة في واحدة باستخدام Power Query
Power Query (يُطلق عليه أيضًا Get & Transform في بعض إصدارات Excel) هو طريقة عملية أخرى لتكديس عدة أعمدة في واحدة، خاصةً للمستخدمين الذين يتعاملون مع كميات كبيرة من البيانات أو الذين يحتاجون إلى أتمتة عمليات تحويل البيانات المتكررة. تم دمج Power Query في Excel 2016 وما بعده، وهو متوفر كوحدة إضافية مجانية لـ Excel 2010 و2013. إنه الأكثر فائدة لإعداد البيانات المتقدمة ويمكنه التعامل بسهولة مع عمليات إعادة التشكيل المعقدة باستخدام واجهة مستخدم بسيطة. ومع ذلك، هناك منحنى تعليمي قصير للمستخدمين لأول مرة.
قم بتحميل جدول المصدر الخاص بك إلى Power Query. حدد بياناتك في Excel. انتقل إلى Data > From Table/Range لفتح محرر Power Query.
2. حدد جميع الأعمدة في معاينة الاستعلام. انتقل إلى علامة التبويب Transform، وجد مجموعة الجداول، وانقر Transpose. هذا يقلب الصفوف والأعمدة.
3. مرة أخرى، حدد جميع الأعمدة المحولة. في علامة التبويب Transform، ضمن مجموعة أي عمود، انقر Unpivot Columns.
4. قم بإزالة عمود "Attribute" إذا لم يكن مطلوبًا. انقر بزر الماوس الأيمن فوق رأس عمود "Attribute" > حدد Remove.
5. انقر على Close & Load لإرسال النتيجة إلى Excel كورقة عمل جديدة أو جدول. في أي وقت، يمكنك تحديث أو إعادة تطبيق التحويل إذا تغيرت بيانات المصدر الخاصة بك.
يتيح لك Power Query حفظ عملية التكديس هذه كاستعلام قابل لإعادة الاستخدام وتحديث النتائج بسرعة إذا تغيرت بياناتك في المستقبل.
ملاحظة: قد لا تحافظ هذه الطريقة على معلومات رؤوس الأعمدة الأصلية من بيانات المصدر.
باختصار، لكل من هذه الطرق نقاط قوتها: الصيغ مناسبة لتحديث البيانات ديناميكيًا، VBA ممتازة لأتمتة المهام المتكررة، Kutools for 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد