Come sostituire tutto in Excel VBA

Quando è necessario per automatizzare le attività in Microsoft Excel 2010 , è possibile rivolgersi a Visual Basic for Applications , un linguaggio di programmazione che è incluso in tutte le versioni moderne di programmi di Microsoft Office per Windows ( supporto VBA è stato rimosso per Mac Office in versione 2008, ma sostituito in versione 2011) . VBA consente di eseguire un piccolo programma per un certo numero di celle di Excel , a differenza delle formule di Excel , che funzionano solo sul cellulare che trovi Mentre il programma Excel è dotato di una procedura guidata di ricerca e sostituzione , è possibile utilizzare VBA per trovare e sostituire le cellule contenuto senza richiedere alcun input da parte dell'utente , e si può farlo in tutti i fogli di lavoro nella cartella di lavoro . Istruzioni
1

Aprire la cartella di lavoro di Excel in cui si desidera inserire il codice VBA . Premere il tasto " Alt " e " F11 " per aprire la console di VBA .

2 Fare doppio clic sul modulo in cui si desidera immettere il codice. Se non vi è alcun modulo è possibile fare clic destro su di un foglio di lavoro , spostare il mouse su "Inserisci" e selezionare "Modulo ". Quindi fare doppio clic sul modulo per tirarlo su
3

Copia la formula seguente nel modulo: .

ASostituire Sub ( ) per

Dim sb come manuale

Ogni sb in fogli di lavoro

sb.Cells.Replace What: = " XXX " , Replacement : = " YYY " , LookAt : = xlPart , _

SearchOrder : = xlByRows , MatchCase : = False

Avanti

End Sub

Change " XXX " per il valore che si sta cercando e " YYY " per il valore che si vogliono sostituirlo con . È anche possibile modificare il valore " MatchCase " a " true" se la capitalizzazione è importante. Questa macro trovare e sostituire tutti i valori desiderati su ogni foglio di lavoro nella cartella di lavoro
4

Usa il codice seguente se si desidera solo per sostituire tutti i valori in una data scelta : .

Selection.Replace What: = " XXX " , Replacement : = " YYY " , LookAt : = xlPart , _

SearchOrder : = xlByRows , MatchCase : = False

È possibile utilizzare questo codice all'interno qualsiasi altra macro VBA finchè si accede a questo codice dopo aver definito un'area di selezione nella macro.
5

Clicca sulla "X " in alto a destra della finestra di VBA per chiudere esso . Tutte le modifiche vengono salvate automaticamente .
6

Fare clic sulla scheda " sviluppatori" e premere il pulsante "Macro" . Scegli la tua macro dall'elenco e fare clic su "Esegui" per sostituire tutti i valori mirati nel foglio di lavoro o cartella di lavoro .