Hvordan konverteres html til tekst i celler i Excel?
Som vist nedenstående skærmbillede, hvis antallet af html-tags findes i dine regnearkceller, hvordan kan du konvertere dem til almindelig tekst i Excel? Denne artikel viser dig to metoder til at fjerne alle html-tags fra celler i Excel.
Konverter html til tekst i valgte celler med funktionen Find og erstat
Konverter html til tekst i hele regnearket med VBA
Konverter html til tekst i celler med funktionen Find og erstat
Du kan konvertere al html til tekster i celler med Søg og erstat funktion i Excel. Gør som følger.
1. Vælg de celler, du vil konvertere alle html til tekster, og tryk på Ctrl + F nøgler til at åbne Søg og erstat dialog boks.
2. i Søg og erstat dialogboksen, gå til udskifte fane, indtast <*> ind i Find hvad kasse, hold Erstat med feltet tomt, og klik på Erstat alle knap. Se skærmbillede:
3. Derefter a Microsoft Excel dialogboksen dukker op for at fortælle dig, hvor mange html-tags der er blevet udskiftet, skal du klikke på OK knappen og luk Søg og erstat dialog boks.
Derefter kan du se alle html-tags fjernes fra udvalgte celler som vist nedenstående skærmbillede.
Konverter html til tekst i hele regnearket med VBA
Desuden kan du konvertere al html til tekst i hele regnearket på samme tid med nedenstående VBA-kode.
1. Åbn regnearket indeholder html, du vil konvertere til tekst, og tryk derefter på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, kopier derefter under VBA-koden til modulvinduet.
VBA-kode: Konverter html til tekst i hele regnearket
Sub RemoveHTMLTags()
'Update by Extendoffice 20180703
Dim xRg As Range
Dim xCell As Range
Dim xStr As String
Dim xRegEx As RegExp
Dim xMatch As Match
Dim xMatches As MatchCollection
Set xRegEx = New RegExp
Application.EnableEvents = False
Set xRg = Cells.SpecialCells(xlCellTypeConstants)
With xRegEx
.Global = True
.Pattern = "<(""[^""]*""|'[^']*'|[^'"">])*>"
End With
For Each xCell In xRg
xStr = xCell.Value
Set xMatches = xRegEx.Execute(xCell.Text)
For Each xMatch In xMatches
xStr = Replace(xStr, xMatch.Value, "")
Next
xCell.Value = xStr
Next
Application.EnableEvents = True
End Sub3. Stadig i Microsoft Visual Basic til applikationer vindue, klik venligst Værktøjer > Referencer, Tjek Microsoft VBScript Regular Expression 5.5 valgmulighed i Referencer-VBAProject dialogboksen, og klik derefter på OK .
4. Tryk på F5 eller klik på knappen Kør for at køre koden.
Derefter fjernes alle html-tags straks fra hele regnearket.
Relaterede artikler:
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!
