Com es pot trobar i reemplaçar text específic en quadres de text?

Find and Replace és una eina útil per a nosaltres trobar i reemplaçar els continguts o fórmules de les cel·les de forma ràpida i còmoda en un full de càlcul. Però ara, tinc diversos quadres de text al meu full de càlcul i vull trobar el text específic i substituir-lo per un altre valor només en aquests quadres de text. Teniu bones maneres de fer front a aquest problema?

Cerqueu i reemplaça text específic en diversos quadres de text

Cerqueu i reemplaça text específic en diversos quadres de text

Increïble! Ús de fitxes eficients a Excel com Chrome, Firefox i Safari.

Podeu trobar i reemplaçar el text que necessiteu manualment un per un, però si hi ha diversos quadres de text, això serà avorrit i cansat. Així, el següent codi VBA us pot ajudar a finalitzar-lo alhora.

1. Activeu el vostre full de càlcul i mantingueu premut el ALT + F11 claus per obrir el Finestra de Microsoft Visual Basic per a aplicacions.

2. Clic Insereix > Mòduls, i enganxeu el següent codi al Finestra de mòduls.

Codi VBA: cerqueu i reemplaceu el text específic en quadres de text del full de càlcul actual

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:", 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. A continuació, premeu F5 la clau per executar aquest codi i apareixerà una caixa ràpida per recordar-vos que introduïu el text antic que voleu reemplaçar. Mostra la captura de pantalla:

4. Continua fent clic OK, i en aquest quadre de llista ràpida, escriviu el valor de text nou que voleu, vegeu la captura de pantalla:

5. A continuació, feu clic a OK , els valors antics s'han substituït amb els nous valors que heu introduït al full de càlcul actual. Veure captures de pantalla:

Articles relacionats:

Com es pot trobar i substituir text en títols de gràfics d'Excel?

Com es pot trobar i reemplaçar el text dels comentaris a Excel?

Com es canvien diverses rutes d'hipervincles alhora a Excel?

Eines de productivitat recomanades

Pestanya d'Office

Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel