كيف يمكنك حذف كل شيء في ورقة العمل ما عدا النطاق المحدد في Excel؟
في Excel، يمكنك حذف نطاق محدد بسرعة وسهولة، ولكن هل جرّبت من قبل حذف محتويات جميع الخلايا باستثناء النطاق المحدد؟ في هذه المقالة، سأعرض لك بعض الحيل الذكية التي تساعدك على إنجاز هذه المهمة في Excel بسرعة وسلاسة.
حذف كل شيء ما عدا تحديد النطاق باستخدام كود VBA
حذف كل شيء ما عدا تحديد النطاق باستخدام مساعد النطاق من Kutools لـ Excel
حذف كل شيء ما عدا تحديد النطاق باستخدام نسخ المجموعات من Kutools لـ Excel
حذف كل شيء ما عدا تحديد النطاق باستخدام كود VBA
لا توجد طريقة مباشرة لحذف قيم الخلايا غير المحددة دفعةً واحدة، لكن الكود التالي من VBA قد يساعدك. يُرجى اتباع الخطوات التالية:
1. يُرجى الضغط باستمرار على مفتاحCtrl لتحديد الخلايا التي ترغب في الاحتفاظ بها.
2. اضغط على مفاتيحAlt + F11 في آنٍ واحد لفتح نافذةMicrosoft Visual Basic for Applications.
3. في مربع الحوارMicrosoft Visual Basic for Applications، انقر فوقإدراج > وحدة نمطية (Module)، ثم انسخ والصق كود VBA أدناه في نافذةالوحدة النمطية (Module).
كود 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، فانقر فوقموافق؛ وإذا لم تكن قد فعلت ذلك، يمكنك تحديد الخلايا المطلوبة في النافذة المنبثقة، واستخدم الفواصل لفصل النطاقات المتعددة، ثم انقر فوق زرموافق. انظر لقطة الشاشة:
5. بعد النقر فوقموافق، سيتم حذف جميع قيم الخلايا الأخرى مع الاحتفاظ فقط بنطاق التحديد. انظر لقطة الشاشة:
حذف كل شيء ما عدا تحديد النطاق باستخدام مساعد النطاق من Kutools لـ Excel
إذا كنت قد ثبّتَKutools لـ Excel، فيمكنك استخدام ميزةعكس التحديدالخاصة بـمساعد النطاقلعكس التحديد بسرعة، ثم حذف العناصر المحددة المعكوسة دفعة واحدة.
بعد تثبيتKutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. حدد نطاقات الخلايا التي تريد الاحتفاظ بها.
2. بعد ذلك، انقر فوقKutools > تحديد > مساعد النطاق. انظر لقطة الشاشة:
3. في مربع الحوارمساعد النطاق، حدد الخيارعكس التحديد. انظر لقطة الشاشة:
4. بعد ذلك، اسحب مؤشر الماوس لتحديد النطاق الذي تريد عكس التحديد فيه. عند إطلاق زر الماوس، سيتم إلغاء تحديد الخلايا المحددة مسبقًا، وتحديد الخلايا غير المحددة دفعة واحدة. انظر لقطة الشاشة:
5. بعد ذلك، أغلق مربع الحوار واضغط على مفتاحDelete لحذف العناصر المحددة دفعة واحدة. وهكذا، سيتم الاحتفاظ فقط بالخلايا التي تريدها. انظر لقطة الشاشة:
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
حذف كل شيء ما عدا تحديد النطاق باستخدام مساعد النطاق من Kutools لـ Excel
أداة أخرى وهينسخ المجموعاتمنKutools لـ Excelيمكنها أيضًا مساعدتك في إنجاز هذه المهمة. كل ما عليك فعله هو نسخ نطاق التحديد إلى ورقة عمل جديدة، ثم حذف ورقة العمل الأصلية.
بعد تثبيتKutools لـ Excel، يُرجى اتباع الخطوات التالية:
1. اضغط باستمرار على مفتاحCtrl لتحديد نطاقات الخلايا التي ترغب في الاحتفاظ بها.
2. بعد ذلك، انقر فوقKutools > نسخ المجموعات. انظر لقطة الشاشة:
3. في مربع الحوارنسخ مجموعات متعددة، اختر خيارالكلضمنلصق خاص، وفعّل خيارَيتضمين ارتفاع الصفوتضمين عرض العمودإذا كنت ترغب في الاحتفاظ بارتفاع الصف وعرض العمود المطلوبين. انظر لقطة الشاشة:
4. بعد ذلك، انقر فوق زرموافق، وستظهر نافذة منبثقة أخرى لتذكيرك بتحديد خلية لوضع الخلايا المنقولة فيها. يُرجى تحديد خلية في ورقة عمل جديدة، كما هو موضح في لقطة الشاشة:
5. بعد ذلك، انقر فوقموافق، وسيتم لصق نطاق التحديد الخاص بك في ورقة عمل جديدة، ويمكنك الآن حذف ورقة العمل الأصلية حسب حاجتك.
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
عرض توضيحي: حذف كل شيء ما عدا تحديد النطاق باستخدام Kutools لـ Excel
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل