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