Как заменить непустые ячейки на определенное значение в Excel?

В Excel мы можем быстро и легко заменить или заполнить выделенную область определенным значением, нажав клавиши Ctrl + Enter, но знаете ли вы, как заменить только непустые ячейки определенным значением в выбранном диапазоне, который содержит как пустые, так и заполненные ячейки.

Замена непустых ячеек определенным значением с помощью функции «Найти и заменить»

Замена непустых ячеек определенным значением с использованием кода VBA

Замена непустых ячеек определенным значением с помощью функции «Найти и заменить»

В Excel функция «Найти и заменить» может помочь найти все непустые ячейки, а затем заменить их указанным значением по вашему желанию.

1. Выберите диапазон данных, в котором вы хотите заменить только ячейки со значениями.

2. Затем нажмите Ctrl + H, чтобы открыть диалоговое окно «Найти и заменить». В диалоговом окне «Найти и заменить», на вкладке «Заменить», введите * в поле «Найти», и укажите нужное значение в поле «Заменить на», см. скриншот:

3. Затем нажмите кнопку «Заменить все», и появится диалоговое окно, информирующее вас о количестве замененных ячеек. Закройте диалоговые окна, и все значения в выбранном диапазоне будут заменены указанными данными, см. скриншоты:

Замена непустых ячеек определенным значением с использованием кода VBA

Используя следующий код VBA, вы также можете заменить все ячейки с данными на нужные значения сразу. Пожалуйста, сделайте следующее:

1. Удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Нажмите «Вставить» > « Модуль» и вставьте следующий код в окно модуля.

Код VBA: Замена непустых ячеек определенным значением

Sub ReplaceNumbers()
'Update 20141111
    Dim SRg As Range
    Dim Rg As Range
    Dim Str As Variant
    On Error Resume Next
    Set SRg = Application.Selection
    Set SRg = Application.InputBox("select range:", "Kutools for Excel", SRg.Address, , , , , 8)
    If Err <> 0 Then Exit Sub
    Str = Application.InputBox("replace with:", "Kutools for Excel", Str)
    If Str = False Then Exit Sub
    For Each Rg In SRg
        If Rg <> "" Then Rg = Str
    Next
End Sub

3. Затем нажмите клавишу F5, чтобы запустить этот код, и появится всплывающее окно, напоминающее вам выбрать диапазон, в котором вы хотите заменить данные, см. скриншот:

4. Затем нажмите «ОК» и введите свое конкретное значение в следующее всплывающее окно, см. скриншот:

5. Затем нажмите «ОК», и все значения в выбранном диапазоне будут заменены указанными данными сразу.