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

كيفية نسخ ولصق الصفوف أو الأعمدة بترتيب عكسي في إكسيل؟

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

انسخ والصق قائمة عمود أو صف بترتيب عكسي مع الصيغة

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

انسخ والصق مجموعة من الأعمدة أو الصفوف بترتيب عكسي باستخدام ميزة رائعة


انسخ والصق قائمة عمود أو صف بترتيب عكسي مع الصيغة

انسخ والصق قائمة الأعمدة بترتيب عكسي رأسيًا

إذا كنت تريد عكس قائمة خلايا الأعمدة ، يمكنك تطبيق الصيغة أدناه:

أدخل أو انسخ الصيغة التالية في خلية فارغة حيث تريد عكس ترتيب الأعمدة:

=OFFSET($A$15,-(ROW(A1)-1),0)

ملاحظات: في الصيغة أعلاه ، A1 هي الخلية الأولى في العمود ، و A15 هي الخلية الأخيرة في العمود.

بعد ذلك ، اسحب مقبض التعبئة لأسفل إلى الخلايا لاستخراج قيم الخلية بترتيب عكسي كما هو موضح أدناه:


انسخ والصق قائمة الصفوف بترتيب عكسي أفقيًا

لنسخ ولصق قائمة الصفوف بترتيب عكسي ، يرجى استخدام الصيغة التالية:

أدخل هذه الصيغة أو انسخها في خلية فارغة:

=OFFSET($A$1,,COUNTA(1:1)-COLUMN(A1),)

ملاحظات: في الصيغة أعلاه ، A1 هي الخلية الأولى في الصف ، و 1:1 هو رقم الصف الذي توجد به بياناتك. إذا كانت بياناتك في الصف 10 ، فيجب عليك تغييرها إلى 10:10.

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


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

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

انسخ والصق قائمة الأعمدة بترتيب عكسي رأسيًا

1. أولاً ، يجب نسخ بياناتك ولصقها في مكان جديد ، ثم اضغط باستمرار على ملف ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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

رمز فبا: انسخ والصق نطاقًا من الخلايا بترتيب عكسي رأسيًا

Sub Flipvertically()
'updateby Extendoffice
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 j = 1 To UBound(Arr, 2)
    k = UBound(Arr, 1)
    For i = 1 To UBound(Arr, 1) / 2
        xTemp = Arr(i, j)
        Arr(i, j) = Arr(k, j)
        Arr(k, j) = xTemp
        k = k - 1
    Next
Next
WorkRng.Formula = Arr
End Sub

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

4. ثم انقر فوق OK زر ، وتم عكس نطاق البيانات عموديًا كما هو موضح أدناه:


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

لعكس نطاق البيانات بترتيب أفقي ، يرجى تطبيق رمز VBA أدناه:

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

Sub Fliphorizontally()
'updateby Extendoffice
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

بعد تشغيل هذا الرمز ، ستحصل على لقطات الشاشة التالية حسب حاجتك:


انسخ والصق مجموعة من الأعمدة أو الصفوف بترتيب عكسي باستخدام ميزة رائعة

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

نصيحة:لتطبيق هذا انعكاس النطاق الرأسي و انعكاس النطاق الأفقي الميزات ، أولاً ، يجب عليك تنزيل ملف كوتولس ل إكسيل، ثم قم بتطبيق الميزة بسرعة وسهولة.

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بذلك على النحو التالي:

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

1. حدد نطاق الخلايا ، ثم انقر فوق كوتولس > الفترة (من ... إلى) > انعكاس النطاق الرأسي > الكل (قلب القيم فقط)، انظر لقطة الشاشة:

2. وبعد ذلك ، تم عكس نطاق قيم الخلايا رأسياً مرة واحدة ، انظر لقطات الشاشة:


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

1. حدد نطاق الخلايا ، ثم انقر فوق كوتولس > الفترة (من ... إلى) > انعكاس النطاق الأفقي > الكل (قلب القيم فقط)، انظر لقطة الشاشة:

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

انقر لتنزيل Kutools for Excel والتجربة المجانية الآن!


نسخ ولصق أكثر نسبيًا من المقالات:

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

  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة وحفظ البيانات. تقسيم محتوى الخلايا ؛ اجمع الصفوف المكررة والمجموع / المتوسط... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • المفضلة وإدراج الصيغ بسرعةوالنطاقات والمخططات والصور ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • تجميع الجدول المحوري حسب رقم الأسبوع واليوم من الأسبوع والمزيد ... إظهار الخلايا غير المؤمنة والمغلقة بألوان مختلفة قم بتمييز الخلايا التي لها صيغة / اسم
علامة تبويب kte 201905
  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
Comments (3)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
OFFSET($A$15,-(ROW(A1)-1),0) and OFFSET($A$1,,COUNTA(1:1)-COLUMN(A1),) do not work when the data is not located in the first row or column.
these functions seem to work better:

Mirror row:
suppose the data is located in G11:K11
OFFSET($G$11,,COUNTA(11:11)-COUNTA($G$11:G11),) ........ OFFSET($G$11,,COUNTA(11:11)-COUNTA($G$11:K11),)

Mirror column:
suppose the data is located in E22:E26
OFFSET($E$22,ROW($E$26)-ROW(E22),0) ........ OFFSET($E$22,ROW($E$26)-ROW(E26),0)
Rated 5 out of 5
This comment was minimized by the moderator on the site
Hello Nasrin,

How are you. I tried your formulas and they work perfectly. Thanks for your share. We will take your advice. Have a great day.

Sincerely,
Mandy
This comment was minimized by the moderator on the site
Me funcionó la opción del código VBA. Muchas gracias!!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations