كيفية تبديل / تحويل الأعمدة والصفوف إلى صف واحد؟
كيفية ضم عدة صفوف وأعمدة في صف طويل واحد؟ ربما يبدو الأمر سهلاً بالنسبة لك ، لأنه يمكنك نسخها واحدة تلو الأخرى وضمها في صف يدويًا. ولكن سيكون الأمر مضيعة للوقت ومملة إذا كان هناك مئات الصفوف والأعمدة. هنا سأتحدث عن بعض الحيل السريعة لحلها.
تبديل / تحويل الأعمدة والصفوف إلى صف واحد مع الصيغة
قم بتبديل / تحويل الأعمدة والصفوف إلى صف واحد باستخدام كود VBA
تبديل / تحويل الأعمدة والصفوف إلى صف واحد مع كوتولس ل إكسيل
تبديل / تحويل الأعمدة والصفوف إلى صف واحد مع الصيغة
لنفترض أن لديك مجموعة من البيانات كما تظهر لقطة الشاشة التالية ، يمكنك تحويل بيانات النطاق إلى صف واحد في ورقة عمل جديدة بصيغة طويلة.
الرجاء تطبيق الصيغة على النحو التالي:
1. في ورقة عمل جديدة من المصنف النشط ، انقر فوق الخلية A1 ، وانسخ والصق هذه الصيغة: =OFFSET(Sheet1!$A$1,((ROW()-1)*5)+(FLOOR(COLUMN()-1,4)/4),(COLUMN()-1)-(FLOOR(COLUMN()-1,4)))
ملاحظات: الورقة 1! $ A $ 1 هي ورقة العمل ومراجع النطاق التي تريد استخدامها.
ROW () - 1) * 5 في الصيغة أعلاه ، 5 لتقف على رقم الصف. و عمود () - 1,4،4) / XNUMXأطلقت حملة 4 لتقف على رقم العمود. يمكنك تغييرها حسب حاجتك.
2. ثم اسحب مقبض التعبئة إلى اليمين حتى يظهر الرقم 0. في هذه الحالة ، تم نقل جميع البيانات الموجودة في النطاق إلى صف واحد في ورقة عمل جديدة. انظر لقطة الشاشة:
قم بتبديل / تحويل الأعمدة والصفوف إلى صف واحد باستخدام كود VBA
يمكن أن يساعدك رمز VBA التالي أيضًا في تحويل نطاق من البيانات إلى صف واحد.
1. اضغط باستمرار ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق الكود التالي في ملف وحدة نافذة.
Sub TransformOneRow()
'Updateby20131120
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Ranges to be transform :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Paste to (single cell):", xTitleId, Type:=8)
Application.ScreenUpdating = False
xRows = InputRng.Rows.Count
xCols = InputRng.Columns.Count
For i = 1 To xRows
InputRng.Rows(i).Copy OutRng
Set OutRng = OutRng.Offset(0, xCols + 0)
Next
Application.ScreenUpdating = True
End Sub
3. ثم اضغط F5 مفتاح لتشغيل الكود ، يظهر لك مربع حوار لتحديد مجموعة من المحتويات التي تريد تحويلها إلى صف ، ثم انقر فوق Ok، مربع حوار منبثق آخر مخصص لك لتحديد خلية واحدة لإخراج النتيجة. انظر لقطات الشاشة:
ثم اضغط Ok، يتم تحويل المحتويات في النطاق المحدد إلى صف. انظر لقطة الشاشة:
ملاحظات: في تعيين OutRng = OutRng.Offset (0 ، xCols + 0)، يمكنك تغيير 0 إلى أي رقم لتلبية احتياجاتك.
بالنسبة إلى exampel ، إذا كنت تريد فصل النتائج المتراكمة إلى الصفوف الأصلية بواسطة عمود واحد ، فيمكنك تغيير تعيين OutRng = OutRng.Offset (0 ، xCols + 0) إلى تعيين OutRng = OutRng.Offset (0 ، xCols + 1)تظهر النتائج على النحو التالي:
تبديل / تحويل الأعمدة والصفوف إلى صف واحد مع كوتولس ل إكسيل
يبدو أن الطريقتين المذكورتين أعلاه صعبتان إلى حد ما بالنسبة لنا كمبتدئين في برنامج Excel ، وهنا سأتحدث عن أداة مفيدة - Kutools for Excel.
كوتولس ل إكسيل يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. تجربة مجانية بدون قيود خلال 30 يومًا. احصل عليه الآن
مع فائدة نطاق التحويل of كوتولس ل إكسيل، يمكنك تحويل النطاق بسرعة إلى صف واحد ، يرجى القيام بما يلي:
1. حدد النطاق الذي تريد تغيير موضعه.
2. انقر كوتولس > محول المدى > نطاق التحويل، انظر لقطة الشاشة:
3. في ال نطاق التحويل مربع الحوار، حدد النطاق لصف واحد الخيار ، انظر لقطة الشاشة:
4. ثم اضغط OK، وانقر فوق خلية لوضع النتيجة من المربع المنبثق.
5. انقر OK، وتم نقل البيانات الموجودة في النطاق إلى صف واحد. انظر لقطات الشاشة:
إذا كنت تريد معرفة المزيد عن هذه الميزة ، يرجى زيارة نطاق التحويل.
مقالات ذات صلة:
كيفية تغيير الصف إلى العمود في إكسيل؟
كيفية تحويل / تحويل عمود واحد إلى أعمدة متعددة في إكسيل؟
كيفية تبديل / تحويل الأعمدة والصفوف إلى عمود واحد؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!