كيفية فرز عدة صفوف أو أعمدة بشكل مستقل دفعة واحدة في Excel؟

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

فرز عدة أعمدة بشكل مستقل دفعة واحدة باستخدام كود VBA

فرز عدة صفوف بشكل مستقل دفعة واحدة باستخدام كود VBA

فرز عدة أعمدة بشكل مستقل دفعة واحدة باستخدام كود VBA

لفرز عدة أعمدة بشكل مستقل بترتيب تصاعدي، قد يساعدك الكود التالي لـ VBA، يرجى القيام بما يلي:

1. اضغط مع الاستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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

كود VBA: فرز عدة أعمدة بشكل مستقل دفعة واحدة:

Sub SortIndividualJR()
'Updateby Extendoffice
    Dim xRg As Range
    Dim yRg As Range
    Dim ws As Worksheet
    Set ws = ActiveSheet
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Range Selection:", _
                                    Title:="Kutools for excel", Type:=8)
    Application.ScreenUpdating = False
    For Each yRg In xRg
        With ws.Sort
            .SortFields.Clear
            .SortFields.Add Key:=yRg, Order:=xlAscending
            .SetRange ws.Range(yRg, yRg.End(xlDown))
            .Header = xlNo
            .MatchCase = False
            .Apply
        End With
    Next yRg
    Application.ScreenUpdating = True
End Sub

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

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

اكتشف سحر Excel مع Kutools AI

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

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

فرز عدة صفوف بشكل مستقل دفعة واحدة باستخدام كود VBA

إذا كنت ترغب في فرز عدة صفوف بشكل مستقل، فإليك أيضًا كود VBA لذلك.

1. حدد البيانات التي تريد فرزها بناءً على كل صف.

2. اضغط مع الاستمرار على مفاتيح ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

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

كود VBA: فرز عدة صفوف بشكل مستقل دفعة واحدة:

Sub SortIndividualR()
'Updateby Extendoffice
    Dim xRg As Range, yRg As Range
    If TypeName(Selection) <> "Range" Then Exit Sub
    Set xRg = Selection
    If xRg.Count = 1 Then
        MsgBox "Select multiple cells!", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
    Application.ScreenUpdating = False
    For Each yRg In xRg.Rows
        yRg.Sort Key1:=yRg.Cells(1, 1), _
        Order1:=xlAscending, _
        Header:=xlNo, _
        Orientation:=xlSortRows
    Next yRg
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
    Application.ScreenUpdating = True
End Sub

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