Excel - Βρείτε και αντικαταστήστε ένα εύρος

Θέμα

Θέλω να βρω και να αντικαταστήσω μια σειρά από τιμές στο excel;

Μπορεί κάποιος να με ενημερώσει αν αυτό είναι δυνατό;

Λύση

Έχω αυτό στο έργο μου, αλλά μπορώ να αντικαταστήσω μια σειρά κελιών.

 Sub ChgInfo () Dim WS Ως φύλλο εργασίας Dim Search As String Dim Αντικατάσταση ως String Dim Prompt ως String Dim Τίτλος ως String Dim MatchCase ως Boolean MsgBox "Αυτή η επιλογή επηρεάζει όλο το φύλλο εργασίας.Διαθετείται για να αλλάξει ADM.PERSONNEL, PI / PD NAME ή ΤΙΤΛΟΣ ΕΡΓΟΥ "& vbCrLf &" Για περισσότερες πληροφορίες δείτε: SOP Matrix Informes de Proyectos ", vbExclamation + vbOKOnly, " Διαβάστε πριν "Prompt =" Ποια είναι η αρχική τιμή που θέλετε να αντικαταστήσετε; " Τίτλος = Αναζήτηση "Εισαγωγή τιμής" Αναζήτηση = InputBox (Prompt, Title) Prompt = "Ποια είναι η τιμή αντικατάστασης;" Τίτλος = Αντικατάσταση Αναζήτησης Εισαγωγής Εισαγωγής (InputBox) Για κάθε WS σε φύλλα εργασίας WS.Cells.Replace Τι: = Αναζήτηση, αντικατάσταση: = Αντικατάσταση, _ LookAt: = xlPart, MatchCase: = False Next End Sub