انتقل إلى المحتوى الرئيسي

كيفية نقل كل صف إلى عمود في Excel

هل سبق لك أن حاولت نقل كل صف من بيانات الصفوف الأخرى إلى عمود في Excel ، مثل نقل كل صف فردي إلى عمود واحد ، وكل صف زوجي إلى العمود الآخر ، والذي يظهر في لقطة الشاشة أدناه. أجد هنا بعض الحيل التي يمكنها التعامل مع هذه المشكلة.

doc-كل-صف-إلى-عمود-1

نقل كل صف إلى عمود مع الصيغة

نقل كل صف آخر إلى عمود باستخدام VBA

انقل كل صف إلى عمود باستخدام Kutools for Excel


السهم الأزرق الحق فقاعة نقل كل صف إلى عمود مع الصيغة

بالنسبة لمعظم مستخدمي Excel ، يعد استخدام الصيغة لحل المشكلة في Excel هو أسهل طريقة.

1. حدد خلية بجوار بياناتك ، واكتب هذه الصيغة = IF (ISEVEN (ROW (B2))، B2، "") (يشير B2 إلى البيانات التي تريد الحصول عليها) بداخله ، ثم اضغط أدخل مفتاح ثم اسحب التعبئة التلقائية لملء النطاق الذي تريده باستخدام هذه الصيغة. الآن تم الحصول على كل بيانات الصف الثاني في هذا العمود.

doc-كل-صف-إلى-عمود-2

2. ثم حدد الخلية الأخرى بجوار العمود أعلاه ، واكتب هذه الصيغة = IF (ISODD (ROW (B3))، B3، "") (B3 هي البيانات التي تريد الحصول عليها) بداخلها ، ثم اضغط أدخل مفتاح ثم اسحب التعبئة التلقائية لملء النطاق الذي تريده باستخدام هذه الصيغة. الآن تم الحصول على كل بيانات الصف الثالث في هذا العمود.

doc-كل-صف-إلى-عمود-3


السهم الأزرق الحق فقاعة نقل كل صف آخر إلى عمود باستخدام VBA

يمكن أيضًا لـ VBA التالي نقل كل صف إلى عمود.

1. صحافة F11 + البديل مفاتيح معًا على لوحة المفاتيح لفتح حرف M.icrosoft Visual Basic للتطبيقات نافذة.

2. ثم اضغط إدراج > وحدة لإدراج نافذة وحدة جديدة. ثم انسخ رمز VBA التالي إلى النافذة.

فبا: نقل كل صف إلى عمود.

Sub MoveRange()
'Updateby20140730A
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
    OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
    Set OutRng = OutRng.Offset(1, 0)
Next
End Sub

 

3. انقر يجري زر أو F5 على لوحة المفاتيح ، وينبثق مربع حوار لتحديد نطاق لتحريكه. انظر لقطة الشاشة:

doc-كل-صف-إلى-عمود-4

4. ثم اضغط OK لإظهار مربع الحوار الآخر لتحديد خلية لإخراج النتيجة. انظر لقطة الشاشة:

doc-كل-صف-إلى-عمود-5

5. انقر OK، ويمكنك مشاهدة النتيجة الموضحة أدناه:

doc-كل-صف-إلى-عمود-6


السهم الأزرق الحق فقاعة انقل كل صف إلى عمود باستخدام Kutools for Excel

إلى جانب الصيغ و VBA ، إذا قمت بتثبيت كوتولس ل إكسيل، يمكنك استخدام نطاق التحويل ميزة لنقل كل صف إلى عمود بسرعة.

كوتولس ل إكسيل يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. تجربة مجانية بدون قيود خلال 30 يومًا. احصل عليه الآن

1. حدد النطاق الذي تريد نقله في كل صف آخر ، وانقر فوق كوتولس > محول المدى > نطاق التحويل. انظر لقطة الشاشة:

doc-كل-صف-إلى-عمود-7

2. في ال نطاق التحويل الحوار ، تحقق عمود واحد للنطاق in نوع التحويل القسم والتحقق قيمة ثابتة ثم حدد أو أدخل 2 في القائمة عدد الصفوف لكل سجل الجزء. انظر لقطة الشاشة:

doc-كل-صف-إلى-عمود-8

3. انقر Ok لفتح مربع حوار لتحديد خلية واحدة لإخراج النتيجة ، انظر لقطة الشاشة:

doc-كل-صف-إلى-عمود-9

4. ثم اضغط OK. يمكنك رؤية النتيجة كما هو موضح أدناه:

doc-كل-صف-إلى-عمود-10

لمزيد من المعلومات حول نطاق التحويل.


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

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

الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

علامة تبويب kte 201905


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Perfect, thank you!
This comment was minimized by the moderator on the site
Thank you so much! this worked :)
This comment was minimized by the moderator on the site
What about converting every line in which there are words into columns, and not numbers?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations