كيفية تحويل جدول المصفوفة إلى جدول قائمة بسرعة في Excel؟
لنفترض أن لديك جدول مصفوفة / جدول ثنائي الأبعاد، وتحويل هذا الجدول إلى جدول قائمة قد لا يكون مهمة صعبة بالنسبة لك ويمكنك القيام بذلك بإدخال البيانات واحدة تلو الأخرى. ومع ذلك، إذا كان هناك العديد من جداول المصفوفات التي تحتاج إلى التحويل لجداول القوائم، فإن الطريقة اليدوية ليست حلاً جيدًا. الآن، يقدم هذا الدليل الحيل التي يمكنها تحويل جدول المصفوفة إلى جدول قائمة بسرعة في Excel.
تحويل جدول المصفوفة إلى جدول قائمة باستخدام الجدول المحوري
تحويل جدول المصفوفة إلى جدول قائمة باستخدام VBA
تحويل جدول المصفوفة إلى جدول قائمة باستخدام Kutools لـ Excel
تحويل جدول المصفوفة إلى جدول قائمة باستخدام الجدول المحوري
يمكنك تطبيق الجدول المحوري لتحويل جدول المصفوفة إلى قائمة ثم نسخه كنطاق.
1. اضغط Alt + D معًا، وبعد ذلك اضغط P لتمكين معالج الجدول المحوري والرسم البياني المحوري الحوار، وتحقق من مجالات النطاق المتعددة و الجدول المحوري الخيارات. انظر لقطة الشاشة:
2. انقر على التالي للانتقال إلى الخطوة 2a من المعالج، وتحقق من خيار إنشاء حقول الصفحة. انظر لقطة الشاشة:
3. انقر التالي للذهاب إلى الخطوة 2b من المعالج, وحدد نطاق المصفوفة وأضفه إلى كل النطاقات القائمة. انظر لقطة الشاشة:
4. انقر التالي للانتقال إلى الخطوة الأخيرة، وتحقق من الخيار الذي تحتاجه. انظر لقطة الشاشة:
5. انقر إنهاء ثم يتم إنشاء جدول محوري، بعد ذلك انتقل إلى الخلية المتقاطعة لـ المجموع الكلي, انقر عليها مرتين، وسترى أن جدول محوري بالقائمة تم إنشاؤه في ورقة عمل جديدة. انظر لقطات الشاشة:
6. بعد ذلك، حدد الجدول المحوري للقائمة، وانقر بزر الماوس الأيمن لتحديد جدول > تحويل إلى نطاق من قائمة السياق. انظر لقطة الشاشة:
الآن تم تحويل جدول المصفوفة إلى جدول قائمة.
تحويل جدول المصفوفة إلى جدول قائمة باستخدام 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 Sub
3. واضغط 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.
- افتح وأنشئ عدة مستندات في تبويبات جديدة ضمن نفس النافذة، بدلاً من فتحها في نوافذ منفصلة.
- يزيد إنتاجيتك بنسبة50%، ويقلل مئات النقرات بالماوس يومياً!