انتقل إلى المحتوى الرئيسي

كيفية تبديل النطاق وتكديس البيانات بسهولة وبسرعة في Excel؟

على سبيل المثال ، هناك بعض البيانات معروضة في مجموعات ، والآن أريد تبديل النطاق وتكديس البيانات في كل عمود كما هو موضح أدناه. في هذه المقالة ، سأقدم الطرق الخاصة بهذه المهمة في Excel.
نقل المستندات والمكدس 1

نقل البيانات وتكديسها باستخدام VBA

قم بنقل البيانات وتكديسها باستخدام أبعاد جدول التحويل فكرة جيدة 3


نقل البيانات وتكديسها باستخدام 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

نقل المستندات والمكدس 2

3. صحافة F5 مفتاح ، ثم تم نقل البيانات وتكديسها. انظر لقطة الشاشة:
نقل المستندات والمكدس 3

ملحوظة: في التعليمات البرمجية لـ VBA ، يشير A إلى وضع بيانات التحويل في العمود A من الورقة النشطة واستبدال البيانات الأصلية في العمود A.


قم بنقل البيانات وتكديسها باستخدام أبعاد جدول التحويل

إذا كنت تريد تبديل النطاق وتكديس البيانات بسرعة وسهولة بدون رمز VBA ، يمكنك التقديم كوتولس ل إكسيلالصورة نقل أبعاد الجدول خدمة.

كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. 

بعد تثبيت Kutools for Excel ، يرجى القيام بما يلي :(قم بتنزيل Kutools for Excel الآن!)

1. حدد البيانات التي تستخدمها ، انقر فوق كوتولس > الفترة (من ... إلى) > أبعاد الجدول المنقولة. انظر لقطة الشاشة:
نقل المستندات والمكدس 4

2. في مربع الحوار ، حدد عبر الجدول للقائمة الخيار ، وحدد خلية تريد وضع البيانات المنقولة فيها نطاق النتائج (خلية واحدة) مربع الكتابة. انظر لقطة الشاشة:
نقل المستندات والمكدس 5

3. انقر Ok. الآن تم تبديل النطاق وتكديسه في أعمدة.
نقل المستندات والمكدس 6



أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations