Skip to main content

Conas gach clib HTML a bhaint as sreang in Excel?

Má tá bileog oibre agat tá teaghráin téacs atá timpeallaithe leis na clibeanna HTML, anois, ba mhaith leat na clibeanna HTML go léir a bhaint de na teaghráin chun na cealla a dhéanamh soiléir agus níos inléite mar na scáileáin scáileáin seo a leanas a thaispeántar. An t-alt seo, tabharfaidh mé roinnt modhanna isteach chun déileáil leis an tasc seo in Excel.

bain clibeanna html 1
1
bain clibeanna html 2

Bain gach clib HTML ón tsreang téacs le hordú Aimsigh agus Ionadaigh

Bain gach clib HTML ón sreangán téacs le cód VBA


mboilgeog cheart gorm saighead Bain gach clib HTML ón tsreang téacs le hordú Aimsigh agus Ionadaigh

Go deimhin, ar an Aimsigh agus Ionadaigh féadfaidh feidhm in Excel an fhadhb seo a réiteach, déan mar a leanas:

1. Roghnaigh na cealla a theastaíonn uait na clibeanna HTML a bhaint.

2. Coinnigh Ctrl + H eochracha a oscailt Aimsigh agus Ionadaigh bosca dialóige, sa dialóg, sa Aimsigh cad bosca téacs, cineál <*>, agus fág an Ionadaigh le bosca téacs bán, féach an pictiúr:

bain clibeanna html 3

3. Ansin cliceáil Ionadaigh uile cnaipe, baintear na clibeanna HTML go léir ag an am céanna.


mboilgeog cheart gorm saighead Bain gach clib HTML ón sreangán téacs le cód VBA

Is féidir leis an gcód VBA seo a leanas cabhrú leat na clibeanna HTML a bhaint as rogha, déan mar a leanas:

1. Coinnigh síos an Alt + F11 eochracha in Excel, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód VBA seo a leanas sa Modúil Fuinneog.

Cód VBA: bain na clibeanna HTML go léir as sreangán téacs

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. Ansin brúigh F5 eochair chun an cód seo a rith, sa dialóg popped out, roghnaigh na cealla a theastaíonn uait na clibeanna HTML a bhaint, féach an scáileán:

bain clibeanna html 4

4. Agus ansin cliceáil OK, baineadh na clibeanna HTML go léir den roghnú ag an am céanna.

Íoslódáil saor in aisce Kutools le haghaidh Excel Anois!

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup    VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle    Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla    Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc


Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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