Как да създадете макро код, за да постигнете намиране и замяна на текст в Excel?
Обикновено използваме вградената функция за намиране и замяна за търсене и замяна на стойности в Excel. Всъщност можете да намерите и замените текст в Excel директно с макро код. В тази статия ще научите как да създадете макро код, за да постигнете намиране и замяна на текст в Excel.
Създайте макро код, за да постигнете намиране и замяна на текст в Excel
Създайте макро код, за да постигнете намиране и замяна на текст в Excel
Моля, направете следното, за да създадете макро код за постигане на намиране и замяна на текст в Excel.
1. Натисни Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули. След това копирайте по-долу 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 Sub3. Натисни 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% и намалява стотици кликвания на мишката за вас всеки ден!
