Як замінити непорожні клітинки конкретним значенням у Excel?
У Excel ми можемо швидко та легко замінити або заповнити виділення певним значенням, натиснувши Ctrl + Enter ключі, але, чи знаєте ви, як замінити лише не порожні клітинки певним значенням у вибраному діапазоні, яке містить як порожні комірки, так і комірки значень.
Замініть непорожні клітинки конкретним значенням за допомогою функції Знайти та замінити
Замініть непорожні клітинки конкретним значенням за допомогою коду VBA
Замініть непорожні клітинки конкретним значенням за допомогою функції Знайти та замінити
В Excel функція Знайти та замінити може допомогти нам знайти всі непорожні клітинки, а потім замінити їх заданим значенням, як вам подобається.
1. Виберіть діапазон даних, який потрібно замінити лише клітинками значень.
2. А потім натисніть Ctrl + H, відкрити Знайти і замінити у діалоговому вікні Знайти і замінити діалогове вікно, під заміщати вкладка, введіть * в Знайти те, що і введіть потрібне значення Замінити текстове поле, див. знімок екрана:
3. Потім натисніть замінити всі і вискочить діалогове вікно, щоб повідомити вам кількість клітинок, які потрібно замінити, закрийте діалогові вікна, після чого всі значення у вибраному діапазоні замінено вказаними даними, див. скріншоти:
Замініть непорожні клітинки конкретним значенням за допомогою коду VBA
Використовуючи наступний код VBA, ви також можете одночасно замінити всі комірки даних на потрібні вам значення. Будь ласка, зробіть так:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.
2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.
Код 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 для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!