كيفية العثور على جميع الخلايا الفارغة واستبدالها برقم أو نص معين في Excel؟
بالنسبة إلى نطاق من الخلايا التي تحتوي على بعض الخلايا الفارغة، قد تحتاج إلى العثور على هذه الخلايا الفارغة واستبدالها بمحتوى معين. في هذه المقالة، نقدم لك ثلاث طرق.
العثور على استبدال جميع الخلايا الفارغة باستخدام وظيفة البحث والاستبدال
العثور على استبدال جميع الخلايا الفارغة باستخدام كود VBA
املأ بسهولة جميع الخلايا الفارغة في نطاق باستخدام Kutools لـ Excel
العثور على استبدال جميع الخلايا الفارغة باستخدام وظيفة البحث والاستبدال
يمكنك استخدام وظيفة البحث والاستبدال لاستبدال جميع الخلايا الفارغة بمحتوى معين في Excel. يرجى القيام بما يلي.
1. حدد النطاق الذي يحتوي على خلايا فارغة تحتاج إلى استبدالها بمحتوى معين، ثم اضغط على مفتاحي Ctrl + H معًا لفتح مربع الحوار البحث والاستبدال.
2. في مربع الحوار البحث والاستبدال المنبثق، ضمن علامة التبويب استبدال، اترك مربع البحث عن فارغًا، وأدخل النص المحدد الذي تريد استبدال الخلايا الفارغة به في مربع الاستبدال بـ، وأخيرًا انقر فوق زر استبدال الكل. انظر لقطة الشاشة:
3. انقر فوق زر موافق في مربع الحوار التالي.
ثم يتم استبدال جميع الخلايا الفارغة في النطاق المحدد بمحتوى معين.
املأ بسهولة جميع الخلايا الفارغة بقيمة معينة في Excel:
Kutools لـ Excel's ملء الخلايا الفارغة الأداة تساعدك بسهولة على ملء جميع الخلايا الفارغة في النطاق المحدد برقم أو نص معين في Excel كما هو موضح في العرض التوضيحي أدناه.
قم بتنزيله وتجربته الآن! (30- يوم تجربة مجانية)
العثور على استبدال جميع الخلايا الفارغة باستخدام كود VBA
يمكنك أيضًا تطبيق طريقة VBA لاستبدال جميع الخلايا الفارغة بمحتوى معين في نطاق. يرجى القيام بما يلي.
1. اضغط على مفتاحي Alt + F11 معًا لفتح نافذة Microsoft Visual Basic for Application.
2. في نافذة Microsoft Visual Basic for Application، انقر فوق إدراج > وحدة، ثم قم بنسخ ولصق الكود التالي VBA في نافذة الوحدة.
كود VBA: استبدال الخلايا الفارغة بمحتوى معين
Sub Replace_Blanks()
Dim xStr As String
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 a range", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = xRg.SpecialCells(xlBlanks)
If (Err <> 0) Or (xRg Is Nothing) Then
MsgBox "No blank cells found", , "Kutools for Excel"
Exit Sub
End If
xStr = Application.InputBox("Replace blank cells with what?", "Kutools for Excel")
xUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For Each xCell In xRg
xCell.Formula = xStr
Next
Application.ScreenUpdating = xUpdate
End Sub
3. اضغط على مفتاح F5 لتشغيل الكود. في مربع الحوار Kutools لـ Excel، حدد النطاق الذي يحتوي على الخلايا الفارغة التي تحتاج إلى العثور عليها واستبدالها، ثم انقر فوق زر موافق.
4. في مربع الحوار الآخر الخاص بـ Kutools لـ Excel، أدخل المحتوى المحدد في مربع النص، وانقر فوق زر موافق. انظر لقطة الشاشة:
ثم يتم استبدال جميع الخلايا الفارغة بنص معين فورًا كما هو محدد أعلاه.
ملاحظة: إذا لم يحتوِ النطاق المحدد على خلايا فارغة، ستحصل على مربع الحوار التالي.
املأ بسهولة جميع الخلايا الفارغة في نطاق باستخدام Kutools لـ Excel
تساعدك أداة ملء الخلايا الفارغة الخاصة بـ Kutools لـ Excel على ملء جميع الخلايا الفارغة بسهولة بمحتوى معين. يرجى القيام بما يلي.
1. حدد النطاق الذي يحتوي على الخلايا الفارغة التي تحتاج إلى ملئها بمحتوى معين، ثم انقر فوق Kutools > إدراج > ملء الخلايا الفارغة.
2. في مربع الحوار ملء الخلايا الفارغة، حدد خيار القيمة الثابتة في قسم طريقة الملء، ثم أدخل المحتوى المحدد في مربع قيمة الملء، وأخيرًا انقر فوق زر موافق.
ثم يتم ملء جميع الخلايا الفارغة في النطاق المحدد بالمحتوى كما هو موضح في لقطة الشاشة أدناه.
ملاحظة: باستخدام هذه الأداة، يمكنك أيضًا ملء الخلايا الفارغة بناءً على القيم، وملء الفراغات بسلسلة خطية.
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يوم) من هذه الأداة، يرجى النقر لتنزيلها، ثم الانتقال لتطبيق العملية وفقًا للخطوات المذكورة أعلاه.
أفضل أدوات الإنتاجية لمكتب العمل
عزز مهاراتك في 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 يومًا — بدون تسجيل، بدون بطاقة ائتمان
- قيمة رائعة — وفر مقارنة بشراء الإضافات بشكل منفرد