Excel - Suchen und Ersetzen eines Bereichs

Problem

Ich möchte eine Reihe von Werten auf Excel finden und ersetzen.

Kann mir jemand mitteilen, ob dies möglich ist?

Lösung

Ich habe dieses in meinem Projekt, aber ich kann eine Strecke der Zelle ersetzen.

 Sub ChgInfo () Dim WS As Worksheet Dim Suche As String Dim Ersetzung As String Dim Eingabeaufforderung As String Dim Titel As String Dim MatchCase As Boolean MsgBox "Diese Option wirkt sich auf das gesamte Arbeitsblatt aus. Wird erstellt, um ADM zu ändern. PERSONNEL, PI / PD NAME oder Nur PROJECT TITLE. "& VbCrLf &" Weitere Informationen finden Sie unter: SOP Matrix Informes de Proyectos ", vbExclamation + vbOKOnly, " Read Before "Prompt =" Was ist der ursprüngliche Wert, den Sie ersetzen möchten? " Title = "Eingabe des Suchwerts" Search = InputBox (Eingabeaufforderung, Titel) Prompt = "Was ist der Ersatzwert?" Title = "Search Value Input" Ersetzung = InputBox (Eingabeaufforderung, Titel) für jedes WS in Arbeitsblättern WS.Cells.Replace What: = Suche, Ersetzung: = Ersetzung, _ LookAt: = xlPart, MatchCase: = False Next End Sub 

Hinweis

Danke an Castellano für diesen Tipp im Forum.

Vorherige Artikel Nächster Artikel

Top-Tipps