Skip i'r prif gynnwys

Sut i gael gwared ar yr holl dagiau HTML o linyn yn Excel?

Os oes gennych chi daflen waith sy'n cynnwys tannau testun sydd wedi'u hamgylchynu â'r tagiau HTML, nawr, rydych chi am dynnu pob un o'r tagiau HTML o'r tannau i wneud y celloedd yn glir ac yn fwy darllenadwy fel y sgrinluniau canlynol a ddangosir. Yr erthygl hon, byddaf yn cyflwyno rhai dulliau i ddelio â'r dasg hon yn Excel.

doc tynnu tagiau html 1
1
doc tynnu tagiau html 2

Tynnwch yr holl dagiau HTML o linyn testun gyda gorchymyn Dod o Hyd ac Amnewid

Tynnwch yr holl dagiau HTML o linyn testun gyda chod VBA


swigen dde glas saeth Tynnwch yr holl dagiau HTML o linyn testun gyda gorchymyn Dod o Hyd ac Amnewid

Mewn gwirionedd, mae'r Dod o hyd ac yn ei le gall swyddogaeth yn Excel ddatrys y broblem hon, gwnewch fel a ganlyn:

1. Dewiswch y celloedd rydych chi am gael gwared ar y tagiau HTML.

2. Daliwch Ctrl + H allweddi i agor y Dod o hyd ac yn ei le blwch deialog, yn y dialog, yn y Dewch o hyd i beth blwch testun, math <*>, a gadael y Amnewid gyda blwch testun yn wag, gweler y screenshot:

doc tynnu tagiau html 3

3. Yna cliciwch Amnewid All botwm, mae'r holl dagiau HTML yn cael eu tynnu ar unwaith.


swigen dde glas saeth Tynnwch yr holl dagiau HTML o linyn testun gyda chod VBA

Gall y cod VBA canlynol eich helpu i gael gwared ar y tagiau HTML o ddetholiad, gwnewch fel a ganlyn:

1. Daliwch i lawr y Alt + F11 allweddi yn Excel, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod VBA canlynol yn y Modiwlau Ffenestr.

Cod VBA: tynnwch yr holl dagiau HTML o linyn testun

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. Yna pwyswch F5 allwedd i redeg y cod hwn, yn y dialog popped out, dewiswch y celloedd rydych chi am gael gwared ar y tagiau HTML, gweler y screenshot:

doc tynnu tagiau html 4

4. Ac yna cliciwch OK, mae'r holl dagiau HTML wedi'u tynnu o'r dewis ar unwaith.

Am ddim Lawrlwythwch Kutools ar gyfer Excel Nawr!

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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