Hur tar jag bort alla HTML-taggar från sträng i Excel?
Om du har ett kalkylblad som innehåller textsträngar som omges av HTML-taggarna, vill du nu ta bort alla HTML-taggar från strängarna för att göra cellerna tydliga och mer läsbara enligt följande skärmdumpar. Denna artikel kommer jag att presentera några metoder för att hantera denna uppgift i Excel.
Ta bort alla HTML-taggar från textsträngen med kommandot Sök och ersätt
Ta bort alla HTML-taggar från textsträngen med VBA-kod
Ta bort alla HTML-taggar från textsträngen med kommandot Sök och ersätt
I själva verket Sök och ersätt funktion i Excel kan lösa detta problem, gör så här:
1. Markera cellerna som du vill ta bort HTML-taggarna.
2. Håll Ctrl + H nycklar för att öppna Sök och ersätt dialogrutan, i dialogrutan, i Hitta det textrutan, typ <*>och lämna Ersätt med textruta tom, se skärmdump:
3. Klicka sedan Ersätt alla -knappen tas alla HTML-taggar bort samtidigt.
Ta bort alla HTML-taggar från textsträngen med VBA-kod
Följande VBA-kod kan hjälpa dig att ta bort HTML-taggar från ett urval, gör så här:
1. Håll ner Alt + F11 nycklar i Excel, och det öppnar Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande VBA-kod i Modulerna Fönster.
VBA-kod: ta bort alla HTML-taggar från textsträngen
Sub RemoveTags()
'updateby Extendoffice
Dim xRg As Range
Dim xCell As Range
Dim xAddress As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("please select data range", "Kutools for Excel", xAddress, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
xRg.NumberFormat = "@"
With CreateObject("vbscript.regexp")
.Pattern = "\<.*?\>"
.Global = True
For Each xCell In xRg
xCell.Value = .Replace(xCell.Value, "")
Next
End With
End Sub
3. Tryck sedan på F5 nyckel för att köra den här koden, i dialogrutan poppade ut, välj de celler som du vill ta bort HTML-taggarna, se skärmdump:
4. Och klicka sedan på OK, har alla HTML-taggar tagits bort från urvalet på en gång.
Gratis nedladdning Kutools för Excel nu!
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!