Як знайти та замінити всі порожні клітинки певним числом або текстом у Excel?

Для ряду комірок, які заповнені деякими порожніми клітинками, вам може знадобитися знайти ці порожні комірки та замінити їх певним вмістом. У цій статті ми пропонуємо для вас три методи.

Знайдіть і замініть усі порожні клітинки функцією Знайти та Замінити
Знайдіть і замініть усі порожні клітинки кодом VBA
Легко заповніть усі порожні клітинки в діапазоні за допомогою Kutools для Excel

Знайдіть і замініть усі порожні клітинки функцією Знайти та Замінити

Ви можете використовувати Знайти і замінити функція для заміни всіх порожніх комірок певним вмістом у Excel. Будь ласка, виконайте наступне.

1. Виберіть діапазон із порожніми клітинками, які потрібно замінити певним вмістом, а потім натисніть Ctrl + H одночасно, щоб відкрити діалогове вікно Знайти та замінити.

2. У спливаючому Знайти і замінити у діалоговому вікні під заміщати вкладку, збережіть Знайти те, що Порожнє поле, введіть певний текст, який ви хочете замінити порожні клітинки в Замінити і нарешті клацніть на замінити всі кнопку. Дивіться знімок екрана:

3. Натисніть OK у наступному діалоговому вікні.

Потім усі порожні клітинки у вибраному діапазоні замінюються певним вмістом.

Знайдіть і замініть усі порожні клітинки кодом VBA

Ви також можете застосувати метод VBA, щоб замінити всі порожні клітинки певним вмістом у діапазоні. Будь ласка, виконайте наступне.

1 Натисніть кнопку інший + F11 клавіші одночасно, щоб відкрити Microsoft Visual Basic для програми вікна.

2 В Microsoft Visual Basic для програми вікна, натисніть Insert > Модулі, а потім скопіюйте та вставте нижче коду 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 діалоговому вікні, виберіть діапазон із порожніми клітинками, які потрібно знайти та замінити, а потім клацніть на OK кнопки.

4. В іншому Kutools для Excel діалогове вікно, введіть певний вміст у текстове поле та клацніть на OK кнопку. Дивіться знімок екрана:

Потім усі порожні комірки негайно замінюються певним текстом, як ви вказали вище.

примітки: Якщо вибраний діапазон не містить порожніх комірок, ви отримаєте таке діалогове вікно.

Легко заповніть усі порожні клітинки в діапазоні за допомогою Kutools для Excel

Команда Заповніть порожні клітинки корисність Kutools для Excel допомагає легко заповнити всі порожні клітинки певним вмістом. Будь ласка, виконайте наступне.

1. Виберіть діапазон із порожніми клітинками, які потрібно заповнити певним вмістом, а потім клацніть Кутулс > Insert > Заповніть порожні клітинки.

2 В Заповніть порожні клітинки діалогове вікно, перевірте Фіксована вартість опція в Заповнювати чимось , а потім введіть певний вміст у Заповнене значення , нарешті клацніть на OK кнопки.

Потім усі порожні клітинки у вибраному діапазоні заповнюються вмістом, як показано нижче.

примітки: За допомогою цієї утиліти ви також можете заповнювати порожні клітинки на основі значень та заповнювати пробіли лінійними значеннями.