كيف يمكن تحويل جدول PivotTable إلى قائمة في Excel؟
في العمل اليومي على Excel، قد تنشئ جدول PivotTable شاملًا لتحليل أو تلخيص أو تصور كميات كبيرة من البيانات. لكن في بعض السيناريوهات، قد تحتاج إلى «تسطيح» هذا الجدول المنظَّم وتحويله مرة أخرى إلى قائمة عادية أو تنسيق جدول قياسي—سواءً لمعالجة البيانات بشكل إضافي، أو مشاركتها مع الآخرين، أو استيرادها إلى تطبيق آخر. ويستعرض هذا البرنامج التعليمي عدة طرق عملية لتحويل جدول PivotTable إلى قائمة في Excel، وهي مناسبة لمجموعات البيانات الصغيرة والكبيرة على حدٍّ سواء.
تحويل جدول بيانات محوري إلى قائمة
كود VBA: تحويل جدول PivotTable إلى قائمة تلقائيًا
تحويل جدول بيانات محوري إلى قائمة
قبل تحويل جدول PivotTable الخاص بك إلى قائمة قياسية، تأكد من أن تنسيقه قد اكتمل وفقًا لاحتياجاتك. على سبيل المثال، تخيل أنك صمّمت جدول PivotTable التالي الذي ترغب في تحويله مجددًا إلى هيكل قائمة مسطّح:
1. حدد أي خلية داخل جدول PivotTable الخاص بك. انتقل إلى علامة التبويبالتصميمفي الشريط، ثم اخترالمجاميع الفرعية، وحددعدم إظهار المجاميع الفرعية. سيؤدي هذا الإجراء إلى إزالة أي صفوف تجميع فرعي أو مجاميع فرعية قد تتعارض مع التنسيق المسطّح الذي تريده.
2. لا تزال ضمن علامة التبويبالتصميم، انقر فوقالمجاميع الإجماليةواخترإيقاف تشغيلها للصفوف والأعمدة. يؤدي إيقاف المجاميع الإجمالية إلى التأكد من بقاء بياناتك الفعلية فقط، ومنع ظهور أي صفوف أو أعمدة ملخصة في الناتج.
3. ضمن علامة التبويبالتصميم، انقر فوقتخطيط التقريرواخترتكرار جميع تسميات العناصر. هذه الخطوة ضرورية لتسطيح تسميات الصفوف متعددة المستويات، لضمان ظهور السياق الصحيح لكل صف في القائمة النهائية بغض النظر عن مجموعته أو فئته.
4. انقر فوقتخطيط التقريرمرة أخرى، ثم اخترإظهار بالشكل الجدولي. يعرض الشكل الجدولي جميع البيانات بتنسيق عمودي حقيقي، وهو أقرب إلى القائمة أو الجدول القياسي.
في هذه المرحلة، سيصبح جدول PivotTable مشابهًا للجدول التقليدي، مما يجعل تصديره كقائمة أكثر سهولة بكثير:
5. لتبسيط الناتج أكثر، انتقل إلى علامة التبويبالخيارات(أو)تحليل، حسب إصدار Excel الخاص بك). في مجموعةإظهار، قم بإلغاء تحديد كلٍّ منالأزرارورؤوس الحقول. يساعدك إزالة هذه العناصر على تنظيف بياناتك وتحويلها إلى قائمة أكثر نظافة واحترافية.
سيظهر جدول PivotTable الآن بشكل أوضح، مع وجود حقول البيانات ذات الصلة فقط:
6. إذا كنت تفضل عرض الخلايا الفارغة كأصفار، فانقر بزر الماوس الأيمن على أي خلية في جدول PivotTable واخترخيارات جدول PivotTable. في مربع الحوار المنبثق، ضمن علامة التبويبالتنسيق والتخطيط، قم بإلغاء تحديدلـ خلايا فارغة إظهار. بعد ذلك، انقر فوقموافق. تضمن هذه الخطوة أن القائمة المصدرة لن تحتوي على خلايا فارغة في المواضع التي تتوقع فيها قيمًا، وهو أمرٌ بالغ الأهمية عند المعالجة الإضافية أو الاستيراد إلى أنظمة أخرى.
7. حدد نطاق جدول PivotTable بالكامل الذي ترغب في تحويله. اضغط علىCtrl + C للنسخ، ثم حرّك المؤشر إلى الخلية المطلوبة في ورقة العمل حيث تريد عرض القائمة. انقر بزر الماوس الأيمن، واخترلصق خاص، ثم اخترالقيم (V). تقوم هذه العملية بلصق النتائج كقيم ثابتة فقط، دون أي هيكل لجدول PivotTable أو تفاعل معه.
ملاحظة: في Excel 2007 أو الإصدارات السابقة، استخدمالصفحة الرئيسية > لصق > لصق القيملهذه الخطوة.
بعد اللصق، يتم الآن عرض بياناتك بتنسيق قائمة قياسي، وجاهزة للتحليل الإضافي أو المشاركة أو التصدير:
هذه الطريقة مباشرة وتناسب جداول PivotTable الصغيرة إلى المتوسطة الحجم التي لا تتطلب تحديثات متكررة. ومع ذلك، إذا كان جدول PivotTable الخاص بك ديناميكيًا أو يخضع لتغييرات متكررة، ففكّر في أتمتة عملية التحويل أو استخدام أداة تحويل بيانات مدمجة لضمان الكفاءة والدقة. كما يجدر التنبيه إلى أن جداول PivotTable المعقدة التي تتضمّن حقولًا محسوبة أو عناصر مجمّعة قد تحتاج إلى تعديلات إضافية بعد التحويل.
كود VBA: تحويل جدول PivotTable إلى قائمة تلقائيًا
إذا كنت بحاجة إلى تحويل جداول PivotTable إلى قائمة قياسية بشكل متكرر، أو كانت جداول PivotTable الخاصة بك كبيرة جدًّا، فإن أتمتة هذه العملية باستخدام VBA (Visual Basic for Applications) توفر لك وقتًا وجهدًا كبيرين. وببضع خطوات يدوية فقط، يمكنك تسطيح جدول PivotTable إلى قائمة بسهولة وفعالية. ويُعد هذا الحل مثاليًا للمستخدمين المتقدمين، أو للعمليات الدفعية، أو عند التعامل مع عشرات أو حتى مئات جداول PivotTable.
المزايا: سريعٌ في تنفيذ المهام المتكررة، ويُدير مجموعات البيانات الكبيرة بسلاسة، ويقلل من احتمالية الوقوع في أخطاء يدوية.
العيوب: يتطلب تمكين وحدات الماكرو وفهمًا أوليًّا لـ 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 Sub2. ارجع إلى ورقة العمل وحدد جدول PivotTable الذي تريد تحويله إلى قائمة. اضغط علىAlt + F8، ثم اخترConvertPivotTableToList من قائمة وحدات الماكرو، وانقر فوقتشغيل. وسيتم إنشاء ورقة عمل جديدة تحتوي على نسخة من جدول PivotTable كقائمة ثابتة.
إذا ظهرت رسالة خطأ، فتأكد أولًا من أنك حددت الورقة الصحيحة التي تحتوي على جدول PivotTable قبل تشغيل وحدة الماكرو، وتحقق أيضًا من أن وحدات الماكرو مُمكَّنة في Excel. وفي حال احتوى ملفك على أكثر من جدول PivotTable واحد، سيقوم هذا الكود تلقائيًا بمعالجة أول جدول PivotTable يتم العثور عليه في ورقة العمل النشطة.
تلميح: يمكنك تعديل الكود لاحقًا لمعالجة جميع جداول PivotTable في المصنف أو لتحديد جدول PivotTable المطلوب تحويله.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل