Hogyan konvertálhatunk HTML-t szöveggé az cellákban az Excelben?
Amint az alábbi képernyőképen látható, ha a munkalap celláiban létezik html címkék száma, hogyan lehet ezeket konvertálni egyszerű szöveggé az Excelben? Ez a cikk két módszert mutat be az összes html címke eltávolítására az Excel celláiból.
Konvertálja a HTML-t szöveggé a kiválasztott cellákban a Keresés és csere funkcióval
Konvertálja a HTML-t szöveggé az egész munkalapon a VBA segítségével
Html konvertálása szöveggé a cellákban a Keresés és csere funkcióval
Az összes html-t a cellákkal konvertálhatja szövegekké a Keresés és csere funkció az Excelben. Kérjük, tegye a következőket.
1. Jelölje ki az összes html-t szöveggé alakítani kívánt cellát, majd nyomja meg a gombot Ctrl + F billentyűk megnyitásához Keresés és csere párbeszédablak.
2. Ban,-ben Keresés és csere párbeszédpanelen lépjen a Cserélje fülre, lépjen be <*> be a Mit keres mezőben tartsa a Cserélje ki a mező üres, és kattintson a gombra Az összes cseréje gomb. Lásd a képernyőképet:
3. Ezután a Microsoft Excel megjelenik a párbeszédpanel, amelyben megtudhatja, hány html címkét cseréltek le, kattintson a OK gombot, és zárja be a Keresés és csere párbeszédablak.
Ezután láthatja, hogy az összes html címke eltávolításra kerül a kijelölt cellákból, az alábbi képernyőképen.
Konvertálja a HTML-t szöveggé az egész munkalapon a VBA segítségével
Ezenkívül az összes html-t egyszerre konvertálhatja a teljes munkalapon az alábbi VBA-kóddal.
1. Nyissa meg a HTML-t tartalmazó munkalapot, amelyet szöveggé konvertál, majd nyomja meg az más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok, majd másolja a VBA kód alatt a Modul ablakba.
VBA kód: Html konvertálása szöveggé az egész munkalapon
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 Sub3. Még mindig a Microsoft Visual Basic for Applications ablakot, kérjük kattintson Eszközök > Referenciák, ellenőrizd a Microsoft VBScript rendszeres kifejezés 5.5 lehetőség a Referenciák-VBAProject párbeszédpanelt, majd kattintson a gombra OK gombot.
4. megnyomni a F5 vagy kattintson a Futtatás gombra a kód futtatásához.
Ezután az összes html címkét azonnal eltávolítja az egész munkalapról.
Kapcsolódó cikkek:
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!
