Як знайти та замінити відразу кілька значень у Excel?
Як ми всі знаємо, ми можемо використовувати функцію "Знайти і замінити", щоб знайти кілька однакових комірок і замінити їх на значення, яке вам потрібно. Але іноді потрібно одночасно застосовувати заміну багато-до-багатьох. Наприклад, у мене є ряд даних, і тепер я хочу замінити всі Яблука на Червоні яблука, Апельсини на Зелені апельсини, Банани на Жовті банани тощо, як показано на наступних скріншотах, чи є у вас якісь ідеї для вирішення цього завдання в Excel?
Знайдіть і замініть відразу кілька значень кодом VBA
Якщо ви втомилися раз за разом знаходити та замінювати значення, наведений нижче код VBA може допомогти вам замінити кілька значень потрібними текстами одночасно.
1. Будь ласка, створіть свої умови, які ви хочете використовувати, які містять вихідні та нові значення. Дивіться знімок екрана:
2. Потім утримуйте клавішу ALT + F11 ключі, щоб відкрити Вікно Microsoft Visual Basic для програм.
3. Клацання Insert > Модуліта вставте наступний код у вікно Модуль.
Код 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% та зменшує сотні клацань миші для вас щодня!