Note: The other languages of the website are Google-translated. Back to English
Log på  \/ 
x
or
x
Tilmeld  \/ 
x

or

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 Sub

3. Stadig i Microsoft Visual Basic til applikationer vindue, klik venligst Værktøj > 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:


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-2019 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.
kte-fane 201905

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!
officetab bund
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    ghyslain · 3 months ago
    compile error: User defined type not defined
  • To post as a guest, your comment is unpublished.
    Brian M · 2 years ago
    Thanks for that sub routine - just the job!