Hur hittar och ersätter man specifik text i textrutor i Excel?

Verktyget Sök och ersätt är en viktig funktion för att snabbt uppdatera cellinnehåll eller formler i ett kalkylblad. Men att hantera text inom flera textrutor kan vara en utmaning om du är begränsad till manuella uppdateringar. Om du behöver hitta specifik text i textrutor och ersätta den effektivt, kommer den här handledningen att guida dig genom att använda VBA-kod för att hantera den här uppgiften med bara några få steg.

Hitta och ersätt specifik text i flera textrutor

Hitta och ersätt specifik text i flera textrutor

Du kan manuellt hitta och ersätta text en efter en, men den här processen blir tråkig och tidskrävande när du hanterar flera textrutor. Följande VBA-kod ger ett effektivt sätt att slutföra denna uppgift på en gång.

1. Aktivera kalkylbladet och håll ned ALT + F11 nycklar för att öppna Microsoft Visual Basic for Applications-fönstret.

2. Klicka Insert > Modulernaoch klistra in följande kod i Modulfönster.

VBA-kod: Hitta och ersätt specifik text i textrutor i det aktuella kalkylbladet

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. Tryck sedan på F5 -knappen för att köra den här koden och en snabbruta dyker upp för att påminna dig om att du anger din gamla text som du vill ersätta. Se skärmdump:

4. Fortsätt klicka OK, och i den här rutan skriver du det nya textvärde du vill ha, se skärmdump:

5. Och klicka sedan på OK knappen har de gamla värdena ersatts med de nya värdena som du angav i det aktuella kalkylbladet. Se skärmdumpar:

Relaterade artiklar:

Hur hittar jag och ersätter text i diagramtitlar i Excel?

Hur hittar jag och ersätter text i kommentarer i Excel?

Hur ändrar jag flera hyperlänkvägar samtidigt i Excel?