كيفية تكديس عدة أعمدة بسرعة في عمود واحد في إكسيل؟
في 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. الآن تم تكديس الأعمدة في عمود واحد.
تكديس خلايا متعددة في عمود واحد
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!