VBA EXCEL Заменить целую строку, если текст найден в ней?

Question

как я могу решить проблему в VBA

Если строка содержит «SeachText», замените целую строку.

ex.

input:  "Test_1_The_Text_SeachString_Sth" 
input:  "Test_2_The_Text_SeachString_Sth" 
look for:  "SeachrString" 
replace with "New_Text" 

поэтому после выполнения кода

"Test_1_Of_The_Text_SeachString_Sth" Станет "New_Text"

, а также:

"Test_2_Of_The_Text_SeachString_Sth" Станет "New_Text"

Answer 1

Используйте Instr функцию как это:

ip1= "Test_1_The_Text_SeachString_Sth" 
    lookfor="SeachString" 

    If instr(ip1,lookfor)>0 then 
    ip1= "newtext" 
    End if