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

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

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

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

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

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

مدهش! استخدام علامات التبويب الفعالة في Excel مثل Chrome وEdge و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 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!

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