Excel - Zoek en vervang een bereik
Kwestie
Ik wil een reeks waarden op Excel vinden en vervangen?
Kan iemand me laten weten of dit mogelijk is?
Oplossing
Ik heb dit in mijn project maar ik kan een reeks cellen vervangen.
Sub ChgInfo () Dim WS As Werkblad Dim Search Als String Dim Vervanging als String Dim Prompt As String Dim Title As String Dim MatchCase als Boolean MsgBox "Deze optie is van invloed op het hele werkblad. Is gemaakt om ADM te wijzigen. PERSONEEL, PI / PD NAAM of PROJECT TITLE alleen. "& VbCrLf &" Zie voor meer informatie: SOP Matrix Informeert de Proyectos ", vbExclamation + vBOKOnly, " Read Before "Prompt =" Wat is de oorspronkelijke waarde die u wilt vervangen? " Title = "Search Value Input" Search = InputBox (Prompt, Title) Prompt = "Wat is de vervangingswaarde?" Title = "Search Value Input" Replacement = InputBox (Prompt, Title) Voor elke WS In Worksheets WS.Cells.Replace What: = Search, Replacement: = Replacement, _ LookAt: = xlPart, MatchCase: = False Next End Sub
Notitie
Dank aan Castellano voor deze tip op het forum.