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

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

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

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

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

---

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

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

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

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

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

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

---

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

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

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

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

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

---

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

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

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

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

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

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

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. بعد ذلك، انقر على زرموافق، وسيتم عكس نطاق البيانات رأسيًا كما هو موضح في لقطات الشاشة التالية:

---

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

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

كود 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 المذكورة أعلاه، فنحن نوصيك هنا بأداة سهلة الاستخدام: Kutools لـ Excel. باستخدام ميزتيهاعكس النطاق عموديًاوقلب النطاق أفقيًا، يمكنك عكس نطاق الخلايا رأسيًا وأفقيًا بنقرة واحدة فقط!

بعد تثبيتKutools لـ Excel، يُرجى اتباع ما يلي:

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

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

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

---

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

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

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

انقر لتنزيل Kutools لـ Excel وابدأ تجربتك المجانية الآن!

---

المزيد من المقالات ذات الصلة بالنسخ واللصق: