Odstranite ali odstranite oznake html iz besedilnih nizov

Če obstaja več besedilnih nizov, ki so obdani z oznakami html, če želite odstraniti vse oznake html, vam bodo metode v tem članku morda pomagale.

• Odstranite ali odstranite vse preproste html oznake s formulo
• Odstranite ali odstranite nekaj zapletenih html oznak s kodo VBA

---

Odstranite ali odstranite vse preproste html oznake s formulo

Če so vaši besedilni nizi obdani z nekaj preprostimi oznakami html, vam lahko funkcija MID v Excelu pomaga rešiti to nalogo. Splošna sintaksa je:

• string: besedilni niz ali vrednost celice, iz katere želite odstraniti oznake html.
• text_start: številka položaja prvega znaka, ki ga želite uporabiti.
• tag_len: dolžina oznak html v besedilnem nizu.

Kopirajte ali v prazno celico vnesite naslednjo formulo:

Nato povlecite ročico za polnjenje navzdol do celic, za katere želite uporabiti to formulo, in vse oznake html so bile odstranjene iz celic, kot je prikazano spodaj:

---

Pojasnilo formule:

LEN (A2) -7: Ta funkcija LEN se uporablja za izračun dolžine besedilnega niza v celici A2 in odšteje 7 (število oznak html, tako začetne kot končne oznake) pomeni, da dobite število znakov, ki jih želite izvleči in ki izključujejo oznako html. Vrnjena vrednost bo uporabljena kot argument num_chars v funkciji MID.

SREDNJI (A2,4, LEN (A2) -7): Ta funkcija MID se uporablja za izločanje vseh znakov, ki se začnejo s četrtim znakom, dolžina niza pa je števila, ki jih vrne funkcija LEN.

---

Odstranite ali odstranite nekaj zapletenih html oznak s kodo VBA

Če je v besedilnem nizu več html oznak, kot je prikazano na sliki spodaj, zgornja formula morda ne bo delovala pravilno, v tem primeru vam lahko naslednja koda VBA pomaga pri obravnavi nekaterih zapletenih html oznak v besedilnih nizih.

1. Držite tipko Alt + F11 tipke v Excelu in odpre Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin v okno modula prilepite naslednjo kodo VBA.

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. Nato pritisnite F5 tipko za zagon te kode in izpiše se pozivno polje, izberite celice, v katerih želite odstraniti oznake html, glejte posnetek zaslona:

4. In nato kliknite OK in vse oznake html so bile odstranjene iz izbranih celic, glejte posnetek zaslona:

---

Uporabljene relativne funkcije:

---

Več člankov: