Hoppa till huvudinnehåll

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.

doc ta bort html-taggar 1
1
doc ta bort html-taggar 2

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


pil blå höger bubbla 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:

doc ta bort html-taggar 3

3. Klicka sedan Ersätt alla -knappen tas alla HTML-taggar bort samtidigt.


pil blå höger bubbla 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:

doc ta bort html-taggar 4

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

Populära funktioner: Hitta, markera eller identifiera dubbletter   |  Ta bort tomma rader   |  Kombinera kolumner eller celler utan att förlora data   |   Rund utan formel ...
Superuppslag: Flera kriterier VLookup    VLookup med flera värden  |   VSök över flera ark   |   Fuzzy Lookup ....
Avancerad rullgardinslista: Skapa snabbt en rullgardinslista   |  Beroende rullgardinslista   |  Flervals-rullgardinslista ....
Kolumnhanterare: Lägg till ett specifikt antal kolumner  |  Flytta kolumner  |  Växla synlighetsstatus för dolda kolumner  |  Jämför intervall och kolumner ...
Utvalda funktioner: Rutnätsfokus   |  Designvy   |   Stor formelbar    Arbetsbok & Bladhanterare   |  Resursbibliotek (Automatisk text)   |  Datumväljare   |  Kombinera arbetsblad   |  Kryptera/Dekryptera celler    Skicka e-postmeddelanden efter lista   |  Superfilter   |   Specialfilter (filtrera fet/kursiv/genomstruken...) ...
Topp 15 verktygssatser12 text verktyg (lägga till text, Ta bort tecken, ...)   |   50 + Diagram Typer (Gantt Chart, ...)   |   40+ Praktiskt Formler (Beräkna ålder baserat på födelsedag, ...)   |   19 Införande verktyg (Infoga QR-kod, Infoga bild från sökväg, ...)   |   12 Konvertering verktyg (Siffror till ord, Valutaväxling, ...)   |   7 Slå ihop och dela verktyg (Avancerade kombinera rader, Dela celler, ...)   |   ... och mer

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...

kte-flik 201905


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!
Comments (7)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Formatting is also removed, as it is with the Find and Replace.

Thanks for the code and tips.
This comment was minimized by the moderator on the site
Вариант с <*> просто великолепен.
Спасибо Вам
This comment was minimized by the moderator on the site
I have some text that is in bullet points, when i run this program it strips this out. how can i select which html tags to remove and which to keep?
This comment was minimized by the moderator on the site
xAddress is never used
This comment was minimized by the moderator on the site
Thank you .. The VBA instructions worked!
This comment was minimized by the moderator on the site
Thank you! I was able to clean up a large excel file with VBA with your simple instructions
This comment was minimized by the moderator on the site
Thank you for the code to remove all HTML tags from text string using VBA. I am going to pass your site along to my co-workers.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations