Как заменить непустые ячейки определенным значением в Excel?
В Excel мы можем быстро и легко заменить или заполнить выделение определенным значением, нажав Ctrl + Enter ключи, но знаете ли вы, как заменить непустые ячейки определенным значением в выбранном диапазоне, который содержит как пустые ячейки, так и ячейки значений.
Замените непустые ячейки определенным значением с помощью функции поиска и замены
Замените непустые ячейки определенным значением с помощью кода VBA
Замените непустые ячейки определенным значением с помощью функции поиска и замены
В Excel функция «Найти и заменить» может помочь нам найти все непустые ячейки и затем заменить их указанным значением по своему усмотрению.
1. Выберите диапазон данных, который вы хотите заменить только ячейками значений.
2, Затем нажмите Ctrl + H для открытия Найти и заменить диалоговое окно в Найти и заменить диалога под Замените вкладка, тип * в Найти то, что поле и введите нужное значение в Заменить текстовое поле, см. снимок экрана:
3. Затем нажмите Заменить все , и появилось диалоговое окно с сообщением о количестве заменяемых ячеек, закройте диалоговые окна, затем все значения в выбранном диапазоне были заменены указанными вами данными, см. снимки экрана:
 |
 |
 |
Замените непустые ячейки определенным значением с помощью кода VBA
Используя следующий код VBA, вы также можете сразу заменить все ячейки данных на нужные вам значения. Пожалуйста, сделайте так:
1. Удерживайте ALT + F11 , чтобы открыть Окно Microsoft Visual Basic для приложений.
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. Затем нажмите OK, и введите ваше конкретное значение в следующее окно подсказки, см. снимок экрана:
5, Затем нажмите OK, все значения в выбранном диапазоне были заменены определенными данными сразу.
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
