كيف يمكن بسهولة وسرعة تحويل النطاق وتكدس البيانات في Excel؟
على سبيل المثال، هناك بعض البيانات المعروضة في مجموعات، والآن أريد تحويل النطاق وتكدس البيانات في كل عمود، كما هو موضح في لقطة الشاشة أدناه. في هذه المقالة، سأقدم الطرق الخاصة بهذه المهمة في Excel.
تحويل وتكدس البيانات باستخدام VBA
تحويل وتكدس البيانات باستخدام أداة تحويل بُعد الجدول من Kutools
تحويل وتكدس البيانات باستخدام VBA
يمكنك تطبيق كود VBA لتحويل وتكدس البيانات.
1. حدد البيانات باستثناء رؤوس الأعمدة، واضغط على مفاتيح Alt + F11 لتمكين نافذة Microsoft Visual Basic for Applications.
2. انقر فوق إدراج > وحدة، والصق الكود أدناه في الوحدة.
VBA: تحويل وتكدس البيانات
Sub ConvertTableToList()
'UpdatebyExtendoffice20161121
Const TEST_COLUMN As String = "A"
Dim i As Long, j As Long
Dim iLastRow As Long
Dim iLastCol As Long
Application.ScreenUpdating = False
With ActiveSheet
iLastRow = .Cells(.Rows.Count, TEST_COLUMN).End(xlUp).Row
For i = iLastRow To 2 Step -1
iLastCol = .Cells(i, .Columns.Count).End(xlToLeft).Column
For j = iLastCol To 3 Step -1
.Rows(i + 1).Insert
.Cells(i + 1, 2).Value = .Cells(i, j).Value
.Cells(i, j).Value = ""
Next j
Next i
.Rows(1).Delete
End With
Application.ScreenUpdating = True
End Sub
3. اضغط F5 مفتاح، وبعد ذلك سيتم تحويل البيانات وتكدسها. انظر لقطة الشاشة:
ملاحظة: في كود VBA، A يشير إلى وضع بيانات التحويل في العمود A من ورقة العمل الحالية واستبدال البيانات الأصلية في العمود A.
تحويل وتكدس البيانات باستخدام أداة تحويل بُعد الجدول من Kutools
إذا كنت تريد بسرعة وسهولة تحويل النطاق وتكدس البيانات بدون كود VBA، يمكنك تطبيق أداة تحويل بُعد الجدول من Kutools لـ Excel.
1. حدد البيانات التي تستخدمها، انقر فوق Kutools > النطاق > تحويل بُعد الجدول. انظر لقطة الشاشة:
2. في مربع الحوار، قم بتحديد تحويل الجدول ثنائي الأبعاد إلى جدول أحادي الأبعاد الخيار، وحدد الخلية التي تريد وضع البيانات المحولة فيها نطاق النتائج (خلية واحدة) مربع النص. انظر لقطة الشاشة:
3. انقر فوق موافق. الآن تم تحويل النطاق وتكدسه في الأعمدة.
Kutools لـ Excel - قم بتعزيز Excel بأكثر من 300 أدوات أساسية. استمتع بميزات ذكاء اصطناعي مجانية بشكل دائم! احصل عليه الآن
عرض: تحويل النطاق وتكدس البيانات باستخدام أداة تحويل بُعد الجدول من Kutools
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد