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

كيفية قلب / عكس صف من ترتيب البيانات في Excel بسرعة؟

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

قلب / عكس ترتيب البيانات أفقيًا في صفوف باستخدام VBA

قلب / عكس ترتيب البيانات أفقيا في صفوف مع كوتولس ل إكسيل



السهم الأزرق الحق فقاعة قلب / عكس ترتيب البيانات أفقيًا في صفوف باستخدام VBA

هنا يمكن أن يساعدك ماكرو VBA الأنيق في قلب / عكس ترتيب البيانات بسرعة في الصفوف أفقيًا.

الخطوة1: اضغط باستمرار على قديم + F11 في Excel ، ويفتح ملف ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

الخطوة2: انقر إدراج > وحدة، ولصق الماكرو التالي في ملف وحدةنافذة.

Sub FlipRows()
'Updateby20131126
Dim Rng As Range
Dim WorkRng As Range
Dim Arr As Variant
Dim i As Integer, j As Integer, k As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Arr = WorkRng.Formula
For i = 1 To UBound(Arr, 1)
    k = UBound(Arr, 2)
    For j = 1 To UBound(Arr, 2) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(i, k)
        Arr(i, k) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

الخطوة3: اضغط على F5 مفتاح لتشغيل هذا الماكرو ، ويتم عرض مربع حوار لتحديد نطاق للعمل معه ، انظر لقطة الشاشة:

ترتيب عكسي doc8

خطوة 4 صحافة OK، يمكنك مشاهدة النتيجة كما هو موضح أدناه:


السهم الأزرق الحق فقاعة قلب / عكس ترتيب البيانات أفقيا في صفوف مع كوتولس ل إكسيل

بدافع كوتولس ل إكسيلالصورة انعكاس النطاق الأفقي أداة ، يمكنك قلب / عكس ترتيب البيانات أفقيًا في الصفوف المحددة بسرعة.

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

الخطوة1: حدد الصف الذي ستقلب فيه البيانات.

الخطوة2: انقر على كوتولس > محول المدى > انعكاس النطاق الأفقي، انظر لقطة الشاشة:

ترتيب الصف العكسي doc3

ثم سترى تم عكس كل ترتيب البيانات في الصفوف المحددة.

ترتيب الصف العكسي doc4
-1
ترتيب الصف العكسي doc5

انقر انعكاس النطاق الأفقي لمعرفة المزيد عن هذه الميزة.


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

كيفية قلب / عكس عمود ترتيب البيانات عموديًا في Excel؟

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

🤖 مساعد 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٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
In response to Rodrigo, Fbkil:

The error occurs because when you cut and paste the macro text into the Excel VBA editor, there are non-printing characters hidden in the area where the macro rows are indented. Delete them and it will work.

Note: Solved by someone else, not me. Was tricky, as it looked like it should work, but didn't.
This comment was minimized by the moderator on the site
When I try to run this macro, I get the message "syntax error" with the command line "For j = 1 To UBound(Arr, 2) / 2" highlighted in red. Does anyone know how to fix it?
This comment was minimized by the moderator on the site
got the same error. update needed
This comment was minimized by the moderator on the site
Great tool, thanks so much for VBA - I transposed a column to rows first and then used your VBA for reversing - saved tons of time!
This comment was minimized by the moderator on the site
You flipped the column order not the row order as per the title.
This comment was minimized by the moderator on the site
Copy paste (transpose) the row to column. Add 1 to x on the column beside. Filter from largest to smallest and expand. Then copy paste result and transpose to row again
This comment was minimized by the moderator on the site
A quicker way would be be to copy your selection. Right click, choose paste special. Check the transpose button, hit ok and the rows and columns will be transposed. http://office.microsoft.com/en-us/excel-help/switch-transpose-columns-and-rows-HP010224502.aspx
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations