Excel - Găsiți și înlocuiți o gamă

Problema

Vreau să găsesc și să înlocuiesc o serie de valori pe Excel?

Poate cineva să-mi spună dacă este posibil?

Soluţie

Am acest lucru în proiectul meu, dar pot înlocui o gamă de celule.

 Sub ChgInfo () Dim WS Ca foaie de lucru Dim Search As String Dim înlocuire ca String Dim Prompt ca String Dim Title As String Dim MatchCase Ca Boolean MsgBox "Aceasta optiune afecteaza toata foaia de lucru este creata pentru a schimba ADM PERSONNEL, PI / PD NAME sau NUMĂRUL PROIECTULUI "& vbCrLf &" Pentru mai multe informații, consultați: SOP Matrix Informes de Proyectos ", vbExclamation + vbOKOnly, " Citiți Înainte "Prompt =" Care este valoarea inițială pe care doriți să o înlocuiți? " Titlu = "Căutați valoarea de intrare" Căutare = InputBox (Prompt, Titlu) Prompt = "Care este valoarea de înlocuire?" Titlu = "Input Value Value" Înlocuire = InputBox (Prompt, Title) Pentru fiecare WS în foile de lucru WS.Cells.Replace Ce: = Căutare, Înlocuire: = Înlocuire, _AtatăAt: = xlPart, MatchCase: = False Next End Sub 

Notă

Mulțumită lui Castellano pentru acest sfat pe forum.