Как да намерите и замените няколко стойности наведнъж в Excel?
Както всички знаем, можем да използваме функцията Find and Replace, за да намерим няколко еднакви клетки и да ги заменим със стойност, от която се нуждаете. Но понякога трябва да приложите замяна много към много едновременно. Например, имам набор от данни и сега искам да заменя всички ябълки с червени ябълки, портокали със зелени портокали, банани с жълти банани и т.н., както са показани следните екранни снимки, имате ли добри идеи за решаване на тази задача в Excel?
Намерете и заменете няколко стойности наведнъж с VBA код
Ако ви е писнало да намирате и заменяте стойностите отново и отново, следният VBA код може да ви помогне да замените няколко стойности с необходимите ви текстове наведнъж.
1. Моля, създайте вашите условия, които искате да използвате, които съдържат оригиналните и новите стойности. Вижте екранна снимка:
2. След това задръжте натиснат ALT + F11 за да отворите Прозорец на Microsoft Visual Basic за приложения.
3. Щракнете Поставете > Модулии поставете следния код в прозореца на модула.
VBA код: Намерете и заменете няколко стойности наведнъж
Sub MultiFindNReplace()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, ReplaceRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Original Range ", xTitleId, InputRng.Address, Type:=8)
Set ReplaceRng = Application.InputBox("Replace Range :", xTitleId, Type:=8)
Application.ScreenUpdating = False
For Each Rng In ReplaceRng.Columns(1).Cells
InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value
Next
Application.ScreenUpdating = True
End Sub
4. След това натиснете F5 за да стартирате този код, в изскачащото поле за подкана, моля, посочете диапазона от данни, чиито стойности искате да бъдат заменени с нови стойности.
5. Щракнете OKи друго поле за подкана се показва, за да ви напомни да изберете критериите, които сте създали в стъпка 1. Вижте екранна снимка:
6, След това кликнете OK, всички конкретни стойности са заменени с новите стойности, от които се нуждаете незабавно.
Още по темата:
Как да намерите и замените определен текст в текстови полета?
Как да намеря и заменя текст в заглавията на диаграмата в Excel?
Как да намерите и замените текст в коментари в Excel?
Как да променя няколко пътя на хипервръзка наведнъж в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!