Hur hittar jag och ersätter specifik text i textrutor?
Hitta och ersätt är ett användbart verktyg för oss att snabbt och bekvämt hitta och ersätta cellinnehåll eller formler i ett kalkylblad. Men nu har jag flera textrutor i mitt kalkylblad, och jag vill bara hitta den specifika texten och ersätta den med annat värde i dessa textrutor. Har du några bra sätt att hantera detta problem?
Hitta och ersätt specifik text i flera textrutor
Hitta och ersätt specifik text i flera textrutor
Du kan hitta och ersätta den text du behöver manuellt en efter en, men om det finns flera textrutor blir det tråkigt och trött. Så följande VBA-kod kan hjälpa dig att avsluta den 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?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!