كيف تحدّد الخلايا غير الفارغة ضمن نطاق معين في Excel؟
لنفترض أن هناك العديد من الخلايا الفارغة غير المتتالية ضمن نطاق معين، وتحتاج الآن إلى تحديد جميع الخلايا التي تحتوي على محتوى. كيف يمكنك بسهولة تحديد كل الخلايا غير الفارغة في Excel؟ توجد عدة طرق فعّالة لتحقيق ذلك.
- تحديد الخلايا غير الفارغة في نطاق باستخدام ميزة الانتقال إلى خاص
- تحديد الخلايا غير الفارغة في نطاق باستخدام VBA
- تحديد الخلايا غير الفارغة في نطاق باستخدام Kutools لـ Excel(خطوة واحدة فقط)
تحديد الخلايا غير الفارغة في نطاق باستخدام ميزة الانتقال إلى خاص
يمكنك استخدام ميزة «الانتقال إلى خاص» لتحديد الخلايا غير الفارغة في النطاق باتباع الخطوات التالية.
1. حدد النطاق الذي تريد تحديد جميع الخلايا غير الفارغة منه، ثم اضغط علىF5لفتح مربع حوار «الانتقال إلى». بعد ذلك، انقر على زرخاصلفتح مربع حوار «الانتقال إلى خاص».
ملاحظة: يمكنك أيضًا فتح مربع حوارالانتقال إلى خاصمباشرةً بالنقر علىالصفحة الرئيسية > بحث وتحديد > الانتقال إلى خاص.
2. في مربع حوار الانتقال إلى خاص، حدد خياراتثوابتوأرقامونصومنطقيوأخطاء، ثم انقر على زرموافق.
الآن سترى أن الخلايا المحددة في النطاق المحدود هي فقط تلك التي تحتوي على محتوى (أي غير الفارغة). راجع لقطات الشاشة أدناه:
نقرة واحدة لتحديد جميع الخلايا غير الفارغة في نطاق في Excel
تتيح لك أداةتحديد الخلايا غير الفارغةفي Kutools لـ Excel تحديد جميع الخلايا غير الفارغة ضمن النطاق المحدد بنقرة واحدة فقط!

تحديد الخلايا غير الفارغة في نطاق باستخدام VBA
نقدّم لك هنا ماكرو VBA لتحديد جميع الخلايا غير الفارغة ضمن نطاق معيّن. يُرجى اتباع الخطوات التالية:
1. اضغط على مفاتيحAlt + F11 لفتح نافذة Microsoft Visual Basic for Applications.
2. انقر علىإدراج > وحدة، ثم الصق كود VBA التالي في نافذة الوحدة المفتوحة.
VBA: تحديد الخلايا غير الفارغة من نطاق
Sub SelectNonBlankCells()
Dim Rng As Range
Dim OutRng As Range
Dim InputRng As Range
Dim xTitle As String
On Error Resume Next
xTitle = Application.ActiveWindow.RangeSelection.Address
Set InputRng = Application.InputBox("Range :", "KutoolsforExcel", xTitle, Type:=8)
Set InputRng = Application.Intersect(InputRng, Application.ActiveSheet.UsedRange)
For Each Rng In InputRng
If Not Rng.Value = "" Then
If OutRng Is Nothing Then
Set OutRng = Rng
Else
Set OutRng = Application.Union(OutRng, Rng)
End If
End If
Next
If Not (OutRng Is Nothing) Then
OutRng.Select
End If
End Sub 3. اضغط على مفتاحF5 أو انقر على زرتشغيللتشغيل هذا الكود.
4. في مربع الحوار المفتوح، حدد النطاق الذي تريد تحديد الخلايا غير الفارغة منه فقط، ثم انقر على زرموافق.
الآن تم تحديد جميع الخلايا غير الفارغة في النطاق المحدد فورًا.
تحديد الخلايا غير الفارغة في نطاق باستخدام Kutools لـ Excel
تتيح لك أداةتحديد الخلايا غير الفارغةفي Kutools لـ Excel تحديد جميع الخلايا غير الفارغة ضمن نطاق معيّن بنقرة واحدة فقط.
حدد النطاق الذي تريد اختيار الخلايا غير الفارغة منه فقط، ثم انقر علىKutools > تحديد > تحديد الخلايا غير الفارغة.
الآن تم تحديد جميع الخلايا غير الفارغة دفعة واحدة ضمن النطاق المحدد.
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
عرض توضيحي: تحديد الخلايا غير الفارغة في نطاق في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل