Excel - Finn og erstatt et utvalg
Utgave
Jeg vil finne og erstatte en rekke verdier på Excel?
Kan noen fortelle meg om dette er mulig?
Løsning
Jeg har dette i prosjektet mitt, men jeg kan erstatte en rekke celler.
Sub ChgInfo () Dim WS som regneark Dim søk som streng dim erstatning som streng dim prompt som streng dimtittel som String Dim MatchCase som boolsk MsgBox "Dette alternativet påvirker alt regnearket. Er opprettet for å endre ADM. PERSONAL, PI / PD NAME eller PROJECT TITLE only. "& VbCrLf &" For mer info se: SOP Matrix Informes de Proyectos ", vbExclamation + vbOKOnly, " Read Before "Prompt =" Hva er den opprinnelige verdien du vil erstatte? " Tittel = "Search Value Input" Søk = InputBox (Prompt, Title) Prompt = "Hva er erstatningsverdien?" Tittel = "Søk verdiinngang" Erstatning = InputBox (Prompt, Tittel) For hver WS I regneark WS.Cells.Replace Hva: = Søk, Erstatning: = Erstatning, _ LookAt: = xlPart, MatchCase: = False Next End Sub
Merk
Takk til Castellano for dette tipset på forumet.