Как да замените непразните клетки с конкретна стойност в 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 за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!