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!
De bedste Office-produktivitetsværktøjer
Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%
- Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
- Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
- Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
- Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
- Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
- Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
- Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
- Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
- Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
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!
