كيفية البحث عن واستبدال جميع الخلايا الفارغة برقم أو نص معين في إكسيل؟

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

ابحث عن جميع الخلايا الفارغة واستبدلها بوظيفة البحث والاستبدال
ابحث عن واستبدل جميع الخلايا الفارغة برمز VBA
املأ جميع الخلايا الفارغة بسهولة في نطاق باستخدام Kutools for Excel

---

ابحث عن جميع الخلايا الفارغة واستبدلها بوظيفة البحث والاستبدال

يمكنك استخدام بحث واستبدال وظيفة لاستبدال جميع الخلايا الفارغة بمحتوى معين في Excel. الرجاء القيام بما يلي.

1. حدد النطاق مع الخلايا الفارغة التي تريد استبدالها بمحتوى معين ، ثم اضغط CTRL + H في نفس الوقت لفتح مربع الحوار "بحث واستبدال".

2. في ظهرت بحث واستبدال مربع الحوار ، تحت استبدل علامة التبويب ، احتفظ ب تجد ما مربع فارغ ، أدخل نصًا معينًا تريد استبدال الخلايا الفارغة به استبدال مربع ، وأخيراً انقر فوق استبدال الكل زر. انظر لقطة الشاشة:

3. انقر فوق OK زر في مربع الحوار التالي.

ثم يتم استبدال جميع الخلايا الفارغة في النطاق المحدد بمحتوى معين.

---

---

ابحث عن واستبدل جميع الخلايا الفارغة برمز 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 .

ثم يتم ملء جميع الخلايا الفارغة في النطاق المحدد بالمحتوى كما هو موضح أدناه.

ملاحظة: باستخدام هذه الأداة المساعدة ، يمكنك أيضًا ملء الخلايا الفارغة بناءً على القيم ، وملء الفراغات بقيم خطية.