Як створити макрокод для пошуку та заміни тексту в Excel?
Зазвичай ми використовуємо вбудовану функцію пошуку та заміни для пошуку та заміни значень у Excel. Насправді ви можете знайти та замінити текст у Excel безпосередньо макрокодом. У цій статті ви дізнаєтеся, як створити макрокод для пошуку та заміни тексту в Excel.
Створіть макрокод для пошуку та заміни тексту в Excel
Створіть макрокод для пошуку та заміни тексту в Excel
Будь ласка, виконайте наступні дії, щоб створити макрокод для пошуку та заміни тексту в Excel.
1 Натисніть кнопку інший + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2 В Microsoft Visual Basic для додатків вікна, натисніть Insert > Модулі. Потім скопіюйте нижче код VBA у вікно коду.
Код VBA: Створіть макрокод для пошуку та заміни тексту в Excel
Sub FindandReplaceText()
'Update by Extendoffice 2018/5/24
Dim xFind As String
Dim xRep As String
Dim xRg As Range
On Error Resume Next
Set xRg =Cells
xFind = Application.InputBox("word to search:", "Kutools for Excel", , , , , 2)
xRep = Application.InputBox("word to replace:", "Kutools for Excel", , , , , 2)
If xFind = "False" Or xRep = "False" Then Exit Sub
xRg.Replace xFind, xRep, xlPart, xlByRows, False, False, False, False
End Sub
3 Натисніть кнопку F5 клавіша для запуску коду.
4. У першій Kutools для Excel діалогове вікно, введіть текст або значення, яке ви шукаєте, а потім натисніть OK кнопку. Дивіться знімок екрана:
5 У другому Kutools для Excel діалогове вікно, введіть текст або значення, яке ви заміните, і натисніть на OK кнопки.
Потім усі зазначені тексти негайно замінюються потрібним текстом.
примітки: Цей код застосовується до активного робочого аркуша.
Статті по темі:
- Як знайти та замінити всі порожні клітинки певним числом або текстом у Excel?
- Як замінити коми новими рядками (Alt + Enter) у клітинках Excel?
- Як знайти та замінити назви вкладки аркуша в Excel?
- Як знайти значення в комірці зі списком, відокремленим комами в Excel?
- Як знайти перетин двох списків стовпців у Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!