Hogyan lehet eltávolítani az összes HTML-címkét az Excel karakterláncából?
Ha van egy munkalapja szöveges karakterláncokat, amelyeket HTML-címkék vesznek körül, akkor most el kell távolítania az összes HTML-címkét a karakterláncokból, hogy a cellák világosan és olvashatóbban legyenek, ahogy a következő képernyőképek láthatók. Ebben a cikkben bemutatok néhány módszert a feladat kezelésére az Excel programban.
Távolítsa el az összes HTML-címkét a szöveges karakterláncból a Keresés és csere paranccsal
Távolítsa el az összes HTML-címkét a VBA kóddal ellátott szöveges karakterláncokból
Távolítsa el az összes HTML-címkét a szöveges karakterláncból a Keresés és csere paranccsal
Tény, hogy a Keresés és csere Az Excel funkció megoldhatja ezt a problémát, kérjük, tegye a következőket:
1. Jelölje ki azokat a cellákat, amelyekből el szeretné távolítani a HTML-címkéket.
2. Tart Ctrl + H billentyűk megnyitásához Keresés és csere párbeszédpanel párbeszédpanelében a Mit keres szövegmezőbe írja be <*>, és hagyja el a Cserélje ki szövegdoboz üres, lásd a képernyőképet:
3. Ezután kattintson Az összes cseréje gombra kattintva az összes HTML-címkét egyszerre eltávolítja.
Távolítsa el az összes HTML-címkét a VBA kóddal ellátott szöveges karakterláncokból
A következő VBA-kód segíthet eltávolítani a HTML-címkéket a kiválasztásból, kérjük, tegye a következőket:
1. Tartsa lenyomva a Alt + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő VBA kódot a Modulok Ablak.
VBA-kód: távolítson el minden HTML-címkét a szöveges karakterláncból
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. Ezután nyomja meg a gombot F5 kulcs a kód futtatásához, a felbukkanó párbeszédpanelen válassza ki azokat a cellákat, amelyekkel el szeretné távolítani a HTML-címkéket, lásd a képernyőképet:
4. Kattintson a gombra OK, az összes HTML-címkét egyszerre eltávolítottuk a kijelölésből.
Ingyenesen töltse le a Kutools for Excel programot most!
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!