كيفية تكديس عدة أعمدة بسرعة في عمود واحد في إكسيل؟
في Excel ، يمكن لوظيفة تحويل النص إلى أعمدة تقسيم خلية إلى أعمدة متعددة بناءً على المحدد ، ولكن إذا كانت هناك أي طرق لتكديس أعمدة متعددة في عمود واحد كما هو موضح أدناه؟ في هذه المقالة ، سأقدم بعض الحيل لحل هذه المهمة بسرعة.
تكديس عدة أعمدة في واحد باستخدام الصيغة
تكديس عدة أعمدة في واحد باستخدام VBA
رص أعمدة متعددة في واحد باستخدام نطاق التحويل 
تكديس عدة أعمدة في واحد باستخدام الصيغة
1. حدد النطاق الذي تريد تكديسه ، وانتقل إلى اسم صندوق لمنح هذا النطاق اسمًا ، ثم اضغط على أدخل مفتاح. انظر لقطة الشاشة:
2. ثم حدد خلية فارغة تريد وضع النتائج ، أدخل هذه الصيغة =INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1)، صحافة ENTEr واسحب مقبض التعبئة لأسفل حتى يظهر خطأ. انظر لقطة الشاشة:
تكديس عدة أعمدة في واحد باستخدام VBA
إليك رمز VBA الذي يمكن أن يساعدك أيضًا.
1. صحافة ALT + F11 مفاتيح للعرض ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، الصق الكود أدناه إلى وحدة.
فبا: تكديس الأعمدة في واحد
Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. صحافة F5 مفتاح لتشغيل الكود ، يظهر مربع حوار لتحديد بيانات المصدر ، ثم انقر فوق OK، لتحديد خلية لوضع النتائج. انظر لقطة الشاشة:
4. انقر OK. الآن تم تكديس الأعمدة في عمود واحد.
رص أعمدة متعددة في واحد باستخدام نطاق التحويل
للتقديم كوتولس ل إكسيلالصورة نطاق التحويل يمكن أن تساعدك الأداة أيضًا في حل هذه المشكلة بسرعة.
| كوتولس ل إكسيل, مع أكثر من 300 وظائف يدوية ، تجعل مهامك أكثر سهولة. | ||
بعد تركيب مجاني Kutools for Excel ، يرجى القيام بما يلي:
1. حدد بيانات الأعمدة التي تستخدمها ، ثم انقر فوق كوتولس > الفترة (من ... إلى) > نطاق التحويل. انظر لقطة الشاشة:
2. في ال نطاق التحويل الحوار ، تحقق النطاق لعمود واحد الخيار، وانقر Ok، ثم حدد خلية لوضع النتائج. انظر لقطة الشاشة:
3. انقر OK. الآن تم تكديس الأعمدة في عمود واحد.
تكديس خلايا متعددة في عمود واحد
أفضل أدوات إنتاجية المكتب
Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪
- إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
- سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
- دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
- حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
- نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
- استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
- سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
- اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
- أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
