كيفية البحث عن واستبدال جميع الخلايا الفارغة برقم أو نص معين في إكسيل؟
بالنسبة إلى نطاق من الخلايا التي يتم ملؤها ببعض الخلايا الفارغة ، قد تحتاج إلى البحث عن هذه الخلايا الفارغة واستبدالها بمحتوى معين. في هذه المقالة ، نقدم لك ثلاث طرق.
ابحث عن جميع الخلايا الفارغة واستبدلها بوظيفة البحث والاستبدال
ابحث عن واستبدل جميع الخلايا الفارغة برمز VBA
املأ جميع الخلايا الفارغة بسهولة في نطاق باستخدام Kutools for Excel
ابحث عن جميع الخلايا الفارغة واستبدلها بوظيفة البحث والاستبدال
يمكنك استخدام بحث واستبدال وظيفة لاستبدال جميع الخلايا الفارغة بمحتوى معين في Excel. الرجاء القيام بما يلي.
1. حدد النطاق مع الخلايا الفارغة التي تريد استبدالها بمحتوى معين ، ثم اضغط CTRL + H في نفس الوقت لفتح مربع الحوار "بحث واستبدال".
2. في ظهرت بحث واستبدال مربع الحوار ، تحت استبدل علامة التبويب ، احتفظ ب تجد ما مربع فارغ ، أدخل نصًا معينًا تريد استبدال الخلايا الفارغة به استبدال مربع ، وأخيراً انقر فوق استبدال الكل زر. انظر لقطة الشاشة:
3. انقر فوق OK زر في مربع الحوار التالي.
ثم يتم استبدال جميع الخلايا الفارغة في النطاق المحدد بمحتوى معين.
املأ جميع الخلايا الفارغة بسهولة بقيمة معينة في Excel:
كوتولس ل إكسيل's املأ الخلايا الفارغة تساعدك الأداة المساعدة على ملء جميع الخلايا الفارغة في النطاق المحدد بسهولة برقم أو نص معين في Excel كما هو موضح في العرض التوضيحي أدناه.
قم بتنزيله وجربه الآن! (تجربة مجانية لمدة 30 يومًا)
ابحث عن واستبدل جميع الخلايا الفارغة برمز VBA
يمكنك أيضًا تطبيق طريقة VBA لاستبدال جميع الخلايا الفارغة بمحتوى معين في نطاق. الرجاء القيام بما يلي.
1. اضغط على قديم + F11 مفاتيح في نفس الوقت لفتح Microsoft Visual Basic للتطبيق نافذة.
2. في ال Microsoft Visual Basic للتطبيق الإطار، انقر فوق إدراج > وحدة، ثم انسخ والصق رمز فبا أدناه في نافذة الوحدة النمطية.
كود فبا: استبدل الخلايا الفارغة بمحتوى معين
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 مفتاح لتشغيل الكود. في ال كوتولس ل إكسيل في مربع الحوار ، حدد النطاق الذي يحتوي على خلايا فارغة تريد البحث عنها واستبدالها ، ثم انقر فوق OK .
4. في مكان آخر كوتولس ل إكسيل في مربع الحوار ، أدخل محتوى معينًا في مربع النص ، وانقر فوق OK زر. انظر لقطة الشاشة:
ثم يتم استبدال جميع الخلايا الفارغة بنص معين على الفور كما حددت أعلاه.
ملاحظات: إذا كان النطاق المحدد لا يحتوي على خلايا فارغة ، فسوف تحصل على مربع الحوار التالي.
املأ جميع الخلايا الفارغة بسهولة في نطاق باستخدام Kutools for Excel
• املأ الخلايا الفارغة فائدة كوتولس ل إكسيل يساعدك بسهولة على ملء جميع الخلايا الفارغة بمحتوى معين. الرجاء القيام بما يلي.
قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.
1. حدد النطاق مع الخلايا الفارغة التي تريد ملؤها بمحتوى معين ، ثم انقر فوق كوتولس > إدراج > املأ الخلايا الفارغة.
2. في ال املأ الخلايا الفارغة مربع الحوار، والتحقق من قيمة ثابتة الخيار في املأ بـ ، ثم أدخل محتوى معينًا في ملف القيمة المعبأة مربع ، انقر أخيرًا فوق OK .
ثم يتم ملء جميع الخلايا الفارغة في النطاق المحدد بالمحتوى كما هو موضح أدناه.
ملاحظات: باستخدام هذه الأداة المساعدة ، يمكنك أيضًا ملء الخلايا الفارغة بناءً على القيم ، وملء الفراغات بقيم خطية.
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!