Hvordan fjernes alle HTML-tags fra streng i Excel?
Hvis du har et regneark, der indeholder tekststrenge, der er omgivet af HTML-tags, vil du nu fjerne alle HTML-tags fra strengene for at gøre cellerne tydelige og mere læsbare som følgende skærmbilleder vist. Denne artikel vil jeg introducere nogle metoder til at håndtere denne opgave i Excel.
Fjern alle HTML-tags fra tekststrengen med kommandoen Find og erstat
Fjern alle HTML-tags fra tekststreng med VBA-kode
Fjern alle HTML-tags fra tekststrengen med kommandoen Find og erstat
Faktisk den Søg og erstat funktion i Excel kan løse dette problem, skal du gøre som følger:
1. Vælg de celler, som du vil fjerne HTML-tags.
2. Holde Ctrl + H nøgler til at åbne Søg og erstat i dialogboksen i dialogboksen Find hvad tekstboks, skriv <*>, og lad den Erstat med tekstfelt tomt, se skærmbillede:
3. Klik derefter på Erstat alle knappen, fjernes alle HTML-tags på én gang.
Fjern alle HTML-tags fra tekststreng med VBA-kode
Følgende VBA-kode kan hjælpe dig med at fjerne HTML-tags fra et valg, gør du som følger:
1. Hold nede Alt + F11 nøgler i Excel, og det åbner Microsoft Visual Basic til applikationer vindue.
2. Klik indsatte > Moduler, og indsæt følgende VBA-kode i Moduler Vindue.
VBA-kode: fjern alle HTML-tags fra tekststrengen
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. Tryk derefter på F5 nøgle til at køre denne kode, i dialogboksen poppet ud skal du vælge de celler, du vil fjerne HTML-tags, se skærmbillede:
4. Og klik derefter på OK, alle HTML-tags er fjernet fra markeringen på én gang.
Gratis download Kutools til Excel nu!
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!