كيفية تبديل / تحويل الأعمدة والصفوف إلى صف واحد؟

كيفية ضم عدة صفوف وأعمدة في صف طويل واحد؟ ربما يبدو الأمر سهلاً بالنسبة لك ، لأنه يمكنك نسخها واحدة تلو الأخرى وضمها في صف يدويًا. ولكن سيكون الأمر مضيعة للوقت ومملة إذا كان هناك مئات الصفوف والأعمدة. هنا سأتحدث عن بعض الحيل السريعة لحلها.

تبديل / تحويل الأعمدة والصفوف إلى صف واحد مع الصيغة

قم بتبديل / تحويل الأعمدة والصفوف إلى صف واحد باستخدام كود VBA

تبديل / تحويل الأعمدة والصفوف إلى صف واحد مع كوتولس ل إكسيل

تبديل / تحويل الأعمدة والصفوف إلى صف واحد مع الصيغة

رائعة حقا! استخدام علامات تبويب فعالة في Excel مثل Chrome و Firefox و Safari!

وفر 50٪ من وقتك ، وقلل آلاف النقرات بالماوس كل يوم!

---

لنفترض أن لديك مجموعة من البيانات كما تظهر لقطة الشاشة التالية ، يمكنك تحويل بيانات النطاق إلى صف واحد في ورقة عمل جديدة بصيغة طويلة.

الرجاء تطبيق الصيغة على النحو التالي:

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، وتم نقل البيانات الموجودة في النطاق إلى صف واحد. انظر لقطات الشاشة:

إذا كنت تريد معرفة المزيد عن هذه الميزة ، يرجى زيارة نطاق التحويل.

مقالات ذات صلة:

كيفية تغيير الصف إلى العمود في إكسيل؟

كيفية تحويل / تحويل عمود واحد إلى أعمدة متعددة في إكسيل؟

كيفية تبديل / تحويل الأعمدة والصفوف إلى عمود واحد؟

---

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

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٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...