كيفية تحويل جدول محوري إلى قائمة في Excel؟
في العمل اليومي على Excel، قد تقوم بإنشاء جدول محوري شامل لتحليل أو تلخيص أو تصور كميات كبيرة من البيانات. ومع ذلك، هناك سيناريوهات تحتاج فيها إلى "تسطيح" أو تحويل الجدول المحوري المُنظّم إلى قائمة عادية أو تنسيق جدول قياسي - ربما لمعالجة البيانات بشكل أكبر، مشاركتها مع الآخرين، أو استيرادها إلى تطبيق آخر. يتناول هذا الدليل عدة طرق عملية لتحويل الجدول المحوري إلى قائمة في Excel، وهي مناسبة لمجموعات البيانات الصغيرة والكبيرة.
تحويل الجدول المحوري إلى قائمة
كود VBA: تحويل الجدول المحوري إلى قائمة تلقائيًا
تحويل الجدول المحوري إلى قائمة
قبل تحويل الجدول المحوري الخاص بك إلى قائمة قياسية، تأكد من أن تخطيط الجدول المحوري قد تم الانتهاء منه حسب الحاجة. على سبيل المثال، لنفترض أنك صممت الجدول المحوري التالي والذي تريد إعادته إلى هيكل قائمة مسطحة:
1. حدّد أي خلية ضمن جدول المحوري الخاص بك. انتقل إلى علامة التبويب تصميم على الشريط، واختر المجاميع الفرعية، ثم حدد عدم عرض المجاميع الفرعية. هذه الخطوة تزيل أي صفوف فرعية أو مجاميع فرعية يمكن أن تتدخل في تنسيق القائمة المسطحة التي تريدها.
2. لا تزال تحت علامة التبويب تصميم، انقر فوق المجاميع الإجمالية واختر إيقاف لصفوف وأعمدة. إيقاف تشغيل المجاميع الإجمالية يضمن بقاء بياناتك الفعلية فقط، مما يمنع ظهور صفوف أو أعمدة ملخص في النتيجة.
3. داخل علامة التبويب تصميم، انقر فوق تخطيط التقرير وحدد تكرار جميع تسميات العناصر. هذه الخطوة مهمة لتسطيح تسميات الصفوف متعددة المستويات، بحيث ستظهر كل صف في القائمة النهائية بالسياق الصحيح بغض النظر عن مجموعته أو فئته.
4. انقر مرة أخرى على تخطيط التقرير، ثم اختر عرض في شكل جدولي. الشكل الجدولي يعرض جميع البيانات في تخطيط عمودي حقيقي، وهو أقرب إلى قائمة أو جدول قياسي.
في هذه المرحلة، سيشبه الجدول المحوري الخاص بك جدولًا تقليديًا، مما يجعل من السهل تصديره كقائمة:
5. للحصول على نتائج أكثر سلاسة، انتقل إلى علامة التبويب الخيارات (أو تحليل، حسب إصدار Excel الخاص بك). ضمن مجموعة العرض، قم بإلغاء تحديد الأزرار وتسميات الحقول. إزالة هذه العناصر يساعد في تنظيف بياناتك لتحويلها إلى قائمة ويجعل النتيجة أكثر تنظيمًا.
سيبدو الجدول المحوري الآن أكثر وضوحًا، مع وجود حقول بيانات ذات صلة فقط:
6. إذا كانت هناك خلايا فارغة تفضل عرضها كأصفار، انقر بزر الماوس الأيمن على أي خلية في الجدول المحوري واختر خيارات الجدول المحوري. في النافذة المنبثقة، تحت علامة التبويب التخطيط والتنسيق، قم بإلغاء تحديد لأجل الخلايا الفارغة أظهر. ثم انقر فوق موافق. هذه الخطوة تضمن أن القائمة المصدرة لن تحتوي على فراغات حيث تتوقع قيمًا، مما قد يكون مهمًا عند المعالجة الإضافية أو الاستيراد إلى أنظمة أخرى.
7. حدد نطاق الجدول المحوري بأكمله الذي ترغب في تحويله. اضغط Ctrl + C للنسخ، ثم انتقل بمؤشرك إلى الموقع الخلوي المطلوب في ورقة العمل حيث تريد عرض القائمة. انقر بزر الماوس الأيمن، اختر لصق خاص، ثم حدد القيم (V). يتم في هذه العملية لصق النتائج فقط كقيم ثابتة، دون أي بنية أو تفاعلية في الجدول المحوري.
ملاحظة: في Excel 2007 أو الإصدارات السابقة، استخدم الصفحة الرئيسية > لصق > لصق القيم لهذه الخطوة.
بعد اللصق، يتم عرض بياناتك الآن بتنسيق قائمة قياسي، جاهزة للمزيد من التحليل، المشاركة، أو التصدير:
هذه الطريقة مباشرة وتعمل بشكل جيد للجداول المحورية صغيرة إلى متوسطة الحجم التي لا تتطلب تحديثات متكررة. ومع ذلك، إذا كان لديك جدول محوري ديناميكي أو يتغير بشكل متكرر، ففكر في أتمتة عملية التحويل هذه أو استخدام أداة تحويل بيانات مضمنة لتحقيق الكفاءة والدقة. أيضًا، لاحظ أن الجداول المحورية المعقدة مع الحقول المحسوبة أو العناصر المجمعة قد تتطلب تعديلات إضافية بعد التحويل.
كود VBA: تحويل الجدول المحوري إلى قائمة تلقائيًا
إذا كنت بحاجة إلى تحويل الجداول المحورية بشكل متكرر إلى قائمة قياسية أو إذا كانت الجداول المحورية الخاصة بك كبيرة بشكل خاص، فإن أتمتة هذه العملية يمكن أن توفر الكثير من الوقت والجهد. باستخدام VBA (Visual Basic for Applications)، يمكنك تسطيح جدول محوري إلى قائمة بأقل عدد من الخطوات اليدوية. هذا الحل مناسب للمستخدمين المتقدمين، المعالجة الدفعية، أو عند التعامل مع العشرات أو المئات من الجداول المحورية.
المزايا: سريع للمهام المتكررة، يتعامل مع مجموعات بيانات كبيرة، يقلل من فرص الأخطاء اليدوية.
العيوب: يتطلب تمكين الماكرو وبعض الفهم لـ VBA. يُوصى بعمل نسخة احتياطية قبل تشغيل الكود لأول مرة.
1. انقر أدوات التطوير > Visual Basic لفتح محرر VBA. في المحرر، انقر إدراج > وحدة، والصق الكود التالي في نافذة الوحدة الجديدة:
Sub ConvertPivotTableToList()
Dim pt As PivotTable
Dim wsPivot As Worksheet
Dim rngTable As Range
Dim wsNew As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set wsPivot = Application.ActiveSheet
Set pt = wsPivot.PivotTables(1)
If pt Is Nothing Then
MsgBox "No PivotTable found on the current sheet.", vbExclamation, xTitleId
Exit Sub
End If
Set rngTable = pt.TableRange2
Set wsNew = Worksheets.Add
rngTable.Copy
wsNew.Range("A1").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
MsgBox "Converted PivotTable to static list on new sheet: " & wsNew.Name, vbInformation, xTitleId
End Sub
2. عد إلى ورقة العمل وحدد الجدول المحوري الذي تريد تحويله إلى قائمة. اضغط Alt + F8، حدد ConvertPivotTableToList من قائمة الماكرو، وانقر تشغيل. هذا ينشئ ورقة عمل جديدة مع الجدول المحوري المنسوخ كقائمة ثابتة.
إذا ظهرت رسالة خطأ، تحقق من أنك قد حددت الورقة الصحيحة التي تحتوي على الجدول المحوري قبل تشغيل الماكرو. أيضًا، تأكد من تمكين الماكرو في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد