Come trovare e sostituire un testo specifico nelle caselle di testo?
Trova e sostituisci è uno strumento utile per trovare e sostituire il contenuto delle celle o le formule in modo rapido e conveniente in un foglio di lavoro. Ma ora, ho più caselle di testo nel mio foglio di lavoro e voglio trovare il testo specifico e sostituirlo con un altro valore solo in queste caselle di testo. Hai qualche buon modo per affrontare questo problema?
Trova e sostituisci testo specifico in più caselle di testo
Trova e sostituisci testo specifico in più caselle di testo
Puoi trovare e sostituire manualmente il testo di cui hai bisogno uno per uno, ma se ci sono più caselle di testo, questo sarà noioso e stanco. Quindi il seguente codice VBA può aiutarti a finirlo in una volta.
1. Attiva il foglio di lavoro e tieni premuto il tasto ALT + F11 chiavi per aprire il Finestra di Microsoft Visual Basic, Applications Edition.
2. Clic inserire > Modulie incolla il codice seguente nel file Finestra del modulo.
Codice VBA: trova e sostituisci testo specifico nelle caselle di testo del foglio di lavoro corrente
Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim shp As Shape
Dim xFindStr As String
Dim xReplace As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace with:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For Each shp In xWs.Shapes
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
End Sub
3. Quindi premere F5 tasto per eseguire questo codice e verrà visualizzata una finestra di messaggio per ricordarti di inserire il tuo vecchio testo che desideri sostituire. Vedi screenshot:
4. Continua a fare clic OKe in questa finestra di messaggio, digita il nuovo valore di testo che desideri, vedi screenshot:
5. E poi clicca OK pulsante, i vecchi valori sono stati sostituiti con i nuovi valori immessi nel foglio di lavoro corrente. Vedi screenshot:
Articoli correlati:
Come trovare e sostituire il testo nei titoli dei grafici in Excel?
Come trovare e sostituire il testo all'interno dei commenti in Excel?
Come modificare più percorsi di collegamento ipertestuale contemporaneamente in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!