كيفية حذف جميع النطاقات ما عدا المحددة في إكسيل؟

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

احذف كل النطاقات ماعدا المحددة برمز VBA

احذف جميع النطاقات باستثناء المحددة باستخدام Select Range Helper of Kutools for Excel

احذف جميع النطاقات باستثناء المحددة باستخدام Copy Ranges of Kutools for Excel

---

احذف كل النطاقات ماعدا المحددة برمز VBA

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

1. الرجاء الضغط على CTRL مفتاح لتحديد الخلايا التي تريد الاحتفاظ بها.

2. صحافة ALT + F11 مفاتيح في نفس الوقت لفتح Microsoft Visual Basic للتطبيق نافذة.

3. في Microsoft Visual Basic للتطبيق مربع حوار النافذة ، انقر فوق إدراج > وحدة، ثم انسخ والصق رمز VBA أدناه في ملف وحدة نافذة.

كود فبا: احذف جميع قيم الخلايا ما عدا النطاقات المحددة

Sub ClearAllExceptSelection()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the ranges want to keep", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In ActiveSheet.UsedRange
        If Intersect(xCell, xRg) Is Nothing Then
            xCell.Clear
        End If
    Next
    Application.ScreenUpdating = xUpdate
End Sub

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

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

---

احذف جميع النطاقات باستثناء المحددة باستخدام Select Range Helper of Kutools for Excel

إذا كنت قد قمت بتثبيت كوتولس ل إكسيل، بما لديها اختيار معكوس سمة من سمات حدد مساعد النطاق الأداة المساعدة ، يمكنك عكس التحديد بسرعة ، ثم حذف التحديدات المعكوسة مرة واحدة.

كوتولس ل إكسيل : مع أكثر من 300 وظيفة إضافية مفيدة في Excel ، يمكنك تجربتها مجانًا دون قيود في أيام 30.

اذهب إلى Download نسخة تجريبية مجانية 30 يومًاشراء PayPal / MyCommerce

بعد تثبيت كوتولس ل إكسيل، يرجى القيام بما يلي: تحميل مجاني Kutools لبرنامج Excel الآن! )

1. حدد نطاقات الخلايا التي تريد الاحتفاظ بها.

2. ثم اضغط كوتولس > اختار > حدد مساعد النطاق، انظر لقطة الشاشة:

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

4. ثم اسحب الماوس لتحديد النطاق الذي تريده لعكس التحديدات. عندما تحرر الماوس ، يتم إلغاء تحديد الخلايا المحددة ويتم تحديد الخلايا غير المحددة مرة واحدة. انظر لقطة الشاشة:

5. ثم أغلق مربع الحوار ، واضغط على حذف مفتاح لحذف التحديدات مرة واحدة. وتم الاحتفاظ بالخلايا التي تريدها فقط ، انظر الصورة:

تحميل مجاني Kutools لبرنامج Excel الآن!

---

احذف جميع النطاقات باستثناء المحددة باستخدام Select Range Helper of Kutools for Excel

فائدة أخرى-نسخ النطاقات of كوتولس ل إكسيل يمكن أن يساعدك أيضًا في إنهاء هذه المهمة ، ما عليك سوى نسخ النطاقات المحددة إلى ورقة عمل جديدة ، ثم حذف ورقة العمل القديمة.

بعد تثبيت كوتولس ل إكسيليرجى اتباع الخطوات التالية: تحميل مجاني Kutools لبرنامج Excel الآن! )

1. معلق CTRL مفتاح لتحديد نطاقات الخلايا التي تريد الاحتفاظ بها.

2. ثم اضغط كوتولس > نسخ النطاقات، انظر لقطة الشاشة:

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

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

5. ثم انقر فوق OK، وقد تم لصق النطاقات المحددة فقط في ورقة العمل الجديدة ، والآن يمكنك حذف ورقة العمل الأصلية حسب حاجتك.

تحميل مجاني Kutools لبرنامج Excel الآن!

---

العرض التوضيحي: احذف جميع النطاقات باستثناء المحددة باستخدام كوتولس فور إكسيل