كيف يمكن تحويل جدول مصفوفة إلى جدول قائمة بسرعة في Excel؟
افترض أن لديك جدول مصفوفة/جدول ثنائي الأبعاد، وقد لا يكون تحويل هذا الجدول إلى جدول قائمة مهمة صعبة بالنسبة لك، ويمكنك تحويله بإدخال البيانات واحدة تلو الأخرى. ومع ذلك، إذا كانت هناك عدة جداول مصفوفة تحتاج إلى تحويلها إلى جداول قائمة، فإن الطريقة اليدوية لن تكون حلاً جيدًا بالتأكيد. الآن، يقدم لك هذا البرنامج التعليمي الحيل التي يمكنها تحويل جدول المصفوفة إلى جدول القائمة بسرعة في Excel.
تحويل جدول المصفوفة إلى جدول القائمة باستخدام PivotTable
تحويل جدول المصفوفة إلى جدول القائمة باستخدام VBA
تحويل جدول المصفوفة إلى جدول القائمة باستخدام Kutools لـ Excel 
تحويل جدول المصفوفة إلى جدول القائمة باستخدام PivotTable
يمكنك استخدام PivotTable لتحويل جدول المصفوفة إلى قائمة، ثم نسخه كنطاق.
1. اضغطAlt + D في نفس الوقت، ثم اضغطP لفتح مربع حوارمعالج PivotTable و PivotChart، وحدد الخياريننطاقات توحيد متعددةوPivotTable. انظر لقطة الشاشة:
2. انقر فوق «التالي» للانتقال إلى الخطوة 2أ من المعالج، واختر خيار «سأقوم بإنشاء حقول الصفحة». راجع لقطة الشاشة:
3. انقرالتاليللانتقال إلىالخطوة 2ب من المعالج، ثم حدد نطاق المصفوفة وأضفه إلى قائمةجميع النطاقات. انظر لقطة الشاشة:
4. انقرالتاليللانتقال إلى الخطوة الأخيرة، ثم اختر أحد الخيارات التي تناسب احتياجاتك. انظر لقطة الشاشة:
5. انقرإنهاء، وسيتم إنشاء PivotTable. بعد ذلك، انتقل إلى الخلية التقاطعية لـالمجموع الكلي، وانقر عليها مرتين. سترى أن PivotTable قد تم إنشاؤه على شكل قائمة في ورقة عمل جديدة. انظر لقطات الشاشة:
6. بعد ذلك، حدد جدولPivotTable، ثم انقر بزر الماوس الأيمن واخترتحويل إلى نطاقمن القائمة السياقية. انظر لقطة الشاشة:
لقد تم الآن تحويل جدول المصفوفة إلى جدول قائمة.
تحويل جدول المصفوفة إلى جدول القائمة باستخدام VBA
فيما يلي كود VBA يمكنه مساعدتك في تحويل جدول المصفوفة إلى جدول القائمة، يُرجى اتباع الخطوات التالية:
1. اضغطAlt + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقرإدراج > وحدة نمطية، ثم الصق كود VBA أدناه في نافذةالوحدة النمطيةالجديدة.
VBA: تحويل جدول المصفوفة إلى قائمة
Sub ConvertTableToList()
'UpdatebyEntendOffice20160429
Dim I As Long
Dim xCls As Long
Dim xRg As Range
Dim xSaveToRg As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Select Array Table:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xSaveToRg = Application.InputBox("Select a range(cell) to put the list table", "Kutools for Excel", , , , , , 8)
If xSaveToRg Is Nothing Then Exit Sub
Set xSaveToRg = xSaveToRg.Cells(1)
xCls = xRg.Columns.Count - 1
Application.ScreenUpdating = False
For I = 1 To xRg.Rows.Count
xSaveToRg.Offset((I - 1) * xCls).Value = xRg.Cells(I, 1).Value
xSaveToRg.Offset((I - 1) * xCls, 1).Resize(xCls).Value = _
Application.WorksheetFunction.Transpose(xRg.Cells(I, 2).Resize(1, xCls))
Next
Application.ScreenUpdating = True
End Sub3. اضغطF5 لتشغيل كود VBA، وسيظهر مربع حوار يطلب منك تحديد جدول المصفوفة باستثناء العناوين. انظر لقطة الشاشة:
4. انقرموافقللانتقال إلى مربع الحوار التالي لتحديد الخلية التي تريد إخراج جدول القائمة إليها. انظر لقطة الشاشة:
5. انقرموافق، وسيتم تحويل جدول المصفوفة إلى قائمة.
تلميح:
إذا كنت تريد ملء الخلايا الفارغة بناءً على الخلية الموجودة أعلاها، يمكنك اتباع الخطوات التالية:
1. ثبّتKutools لـ Excel— أداةٌ مفيدة، ثم انقرKutools > إدراج > ملء الخلايا الفارغة. انظر لقطة الشاشة:
2. في مربع حوارملء الخلايا الفارغة، حدد الخيارينبناءً على القيمةولأسفل. انظر لقطة الشاشة:
3. انقرموافقأوتطبيق، وسيتم الآن ملء الخلايا الفارغة تلقائيًا بناءً على القيم الموجودة أعلاها.
انقر هنا لمعرفة المزيد عن كيفية ملء الخلايا الفارغة.
تحويل جدول المصفوفة إلى جدول القائمة باستخدام Kutools لـ Excel
إذا لم تكن الطرق السابقة سهلة بما يكفي لك، فسأقدّم لك أداة مفيدة – Kutools لـ Excel، حيث يمكن لأداةتحويل بُعد الجدولالخاصة بها تحويل جدول المصفوفة إلى جدول القائمة والعكس بسرعة وسهولة.
بعدتثبيتKutools لـ Excel مجانًا، يُرجى اتباع ما يلي:
1. حدد جدول المصفوفة الذي تريد تحويله إلى قائمة، ثم انقرKutools > نطاق > تحويل بُعد الجدول. انظر لقطة الشاشة:
2. بعد ذلك، في مربع حوارتحويل بُعد الجدول، اختر خيار تحويل الجدول ثنائي الأبعاد إلى جدول أحادي البُعد، ثم حدّد النطاق الذي سيُخرَج فيه جدول القائمة. انظر لقطة الشاشة:
3. انقرموافق، وسيتم تحويل جدول المصفوفة الآن إلى جدول قائمة.
انقر هنا لمعرفة المزيد عن تحويل بُعد الجدول.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل