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

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

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

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

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

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

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

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

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

العثور على استبدال جميع الخلايا الفارغة باستخدام كود 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. في مربع الحوار ملء الخلايا الفارغة، حدد خيار القيمة الثابتة في قسم طريقة الملء، ثم أدخل المحتوى المحدد في مربع قيمة الملء، وأخيرًا انقر فوق زر موافق.

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

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