Come trovare e sostituire testo specifico nelle caselle di testo in Excel?

Lo strumento Trova e sostituisci è una funzionalità essenziale per aggiornare rapidamente i contenuti delle celle o le formule all'interno di un foglio di lavoro. Tuttavia, gestire il testo all'interno di più caselle di testo può essere una sfida se si è limitati agli aggiornamenti manuali. Se si ha bisogno di trovare testo specifico nelle caselle di testo e sostituirlo in modo efficiente, questo tutorial vi guiderà nell'utilizzo del codice VBA per gestire questa attività in pochi passaggi.

Trova e sostituisci testo specifico in più caselle di testo

Trova e sostituisci testo specifico in più caselle di testo

È possibile trovare e sostituire manualmente il testo uno per uno, ma questo processo diventa noioso e richiede molto tempo quando si ha a che fare con più caselle di testo. Il seguente codice VBA fornisce un modo efficiente per completare questa attività tutta 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?