كيفية تحويل جدول مصفوفة بسرعة إلى جدول قائمة في إكسيل؟
لنفترض أن لديك جدول مصفوفة / جدول عرضي ، وأن تحويل جدول الصفيف هذا إلى جدول قائمة قد لا يكون مهمة صعبة بالنسبة لك ويمكنك تحويله عن طريق إدخال البيانات واحدًا تلو الآخر. ومع ذلك ، إذا كانت هناك جداول صفيف متعددة مطلوبة للتحويل إلى جداول قائمة ، يجب ألا تكون الطريقة اليدوية حلاً جيدًا. الآن ، يقدم هذا البرنامج التعليمي الحيل التي يمكنها تحويل جدول الصفيف بسرعة إلى جدول قائمة في Excel.
تحويل جدول الصفيف إلى جدول قائمة باستخدام PivotTable
تحويل جدول الصفيف إلى جدول قائمة باستخدام VBA
تحويل جدول المصفوفة إلى جدول قائمة مع كوتولس ل إكسيل
تحويل جدول الصفيف إلى جدول قائمة باستخدام PivotTable
يمكنك تطبيق PivotTable لتحويل جدول الصفيف إلى قائمة ثم نسخه كنطاق.
1. صحافة ALT + D في نفس الوقت ، ثم اضغط على P مفتاح لتمكين معالج PivotTable و PivotChart الحوار ، والتحقق نطاقات التوحيد المتعددة و جدول محوري خيارات. انظر لقطة الشاشة:
2. انقر فوق "التالي" للانتقال إلى الخطوة 2 أ من المعالج ، وتحقق من أنني سأقوم بإنشاء خيار حقول الصفحة. انظر لقطة الشاشة:
3. انقر التالى للذهاب إلى الخطوة 2 ب من المعالج، وحدد نطاق المصفوفة وأضفه إلى ملف كل النطاقات قائمة. انظر لقطة الشاشة:
4. انقر التالى للانتقال إلى الخطوة الأخيرة ، حدد خيارًا واحدًا حسب حاجتك. انظر لقطة الشاشة:
5. انقر نهاية ثم تم إنشاء PivotTable ، ثم انتقل إلى خلية التقاطع لـ المجموع الإجمالي، انقر فوقه نقرًا مزدوجًا ، ويمكنك مشاهدة قائمة تم إنشاء PivotTable في ورقة عمل جديدة. انظر لقطات الشاشة:
6. ثم حدد قائمة PivotTable ، وانقر بزر الماوس الأيمن للتحديد طاولة > تحويل إلى المدى من قائمة السياق. انظر لقطة الشاشة:
الآن تم تحويل جدول الصفيف إلى جدول قائمة.
تحويل جدول الصفيف إلى جدول قائمة باستخدام VBA
هنا يمكن أن يساعدك VBA في تحويل جدول المصفوفة إلى جدول قائمة ، يرجى القيام بالخطوات التالية:
1. صحافة ALT + F11 لتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، ولصق رمز 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. انقر OK للانتقال إلى مربع الحوار التالي لتحديد خلية لإخراج جدول القائمة. انظر لقطة الشاشة:
5. انقر OK، وتم تحويل جدول الصفيف إلى قائمة.
تلميح:
إذا كنت تريد ملء الخلايا الفارغة بناءً على الخلية أعلاه ، فيمكنك القيام بما يلي:
1. تثبيت كوتولس ل إكسيل - أداة يدوية ثم انقر فوق كوتولس > إدراج > املأ الخلايا الفارغة. انظر لقطة الشاشة:
2. في ال املأ الخلايا الفارغة الحوار ، تحقق بناء على القيم و إلى أسفل خيارات. انظر لقطة الشاشة:
3. انقر Ok or التقديم، والآن يتم ملء الخلايا الفارغة بناءً على القيم أعلاه.
انقر هنا لمعرفة المزيد عن تعبئة الخلايا الفارغة.
تحويل جدول المصفوفة إلى جدول قائمة مع كوتولس ل إكسيل
إذا لم تكن الأساليب المذكورة أعلاه سهلة بما يكفي بالنسبة لك ، فيمكنني هنا تقديم أداة يدوية - كوتولس ل إكسيل، في أبعاد الجدول المنقولة يمكن تحويل الأداة بسرعة وسهولة بين جدول الصفيف وجدول القائمة.
كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. |
بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:
1. حدد جدول المصفوفة الذي تريد تحويله إلى قائمة ، وانقر فوق كوتولس > الفترة (من ... إلى) > أبعاد الجدول المنقولة. انظر لقطة الشاشة:
2. ثم في أبعاد الجدول المنقولة مربع الحوار ، والتحقق من خيار Cross Table to list ، ثم حدد النطاق الذي ينتج جدول القائمة. انظر لقطة الشاشة:
3. انقر Ok، الآن تم تحويل جدول الصفيف إلى جدول قائمة.
انقر هنا لمعرفة المزيد عن أبعاد الجدول.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!