Note: The other languages of the website are Google-translated. Back to English

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

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

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

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

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


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

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

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

doc يحذف الكل باستثناء المحدد 1

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 زر ، انظر لقطة الشاشة:

doc يحذف الكل باستثناء المحدد 2

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

doc يحذف الكل باستثناء المحدد 3


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

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

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

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

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

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

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

doc يحذف الكل باستثناء المحدد 5

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

doc يحذف الكل باستثناء المحدد 6

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

doc يحذف الكل باستثناء المحدد 7

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


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

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

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

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

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

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

doc يحذف الكل باستثناء المحدد 9

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

doc يحذف الكل باستثناء المحدد 10

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

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


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

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

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

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (0)
لا يوجد تقييم. كن أول من يقيم!
لا توجد تعليقات منشورة هنا حتى الآن
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL