הסר או הסר תגי HTML ממחרוזות טקסט

אם ישנן מספר מחרוזות טקסט המכוסות בתגי HTML, כדי להסיר את כל תגי ה-HTML, השיטות במאמר זה עשויות לעזור.

• הסר או הסר את כל תגי ה-HTML הפשוטים באמצעות נוסחה
• הסר או הסר תגי HTML מורכבים עם קוד VBA

הסר או הסר את כל תגי ה-HTML הפשוטים באמצעות נוסחה

אם מחרוזות הטקסט שלך מכוסות בכמה תגי HTML פשוטים, הפונקציה MID ב-Excel יכולה לעזור לך לפתור את המשימה הזו. התחביר הכללי הוא:

• string: מחרוזת הטקסט או ערך התא שממנו ברצונך להסיר את תגי ה-HTML.
• text_start: המספר של המיקום שבו נמצא התו הראשון אותו ברצונך להשתמש.
• tag_len: אורך תגי ה-HTML בתוך מחרוזת הטקסט.

אנא העתק או הזן את הנוסחה הבאה לתא ריק:

לאחר מכן, גרור את ידית המילוי למטה לתאים שברצונך להחיל עליהם נוסחה זו, וכל תגי ה-HTML יוסרו מהخلايا כפי שמוצג בסcreenshot הבא:

הסבר על הנוסחה:

LEN(A2)-7: פונקציית LEN משמשת לחישוב אורך מחרוזת הטקסט בתא A2, ומחסירה 7 (מספר תגי ה-HTML, גם התגים ההתחלתיים והסופיים) כדי לקבל את מספר התווים אותם ברצונך לחלץ שאינם כוללים את תג ה-HTML. הערך המוחזר ישמש כארגומנט num_chars בתוך הפונקציה MID.

MID(A2,4,LEN(A2)-7): פונקציית MID משמשת לחלץ את כל התווים שמתחילים מהתו הרביעי, ואורך המחרוזת הוא num-chars שהוחזר על ידי פונקציית LEN.

הסר או הסר תגי HTML מורכבים עם קוד VBA

אם ישנם מספר תגי HTML בתוך מחרוזת הטקסט כפי שמוצג בסcreenshot הבא, הנוסחה לעיל עשויה שלא לעבוד כראוי, במקרה זה, הקוד VBA הבא יכול לעזור לך להתמודד עם תגי HTML מורכבים במחרוזות טקסט.

1. החזק את המקשים Alt + F11 ב-Excel, וזה יפתח את חלון Microsoft Visual Basic for Applications.

2. לחץ על Insert > Module, והדבק את הקוד VBA הבא בחלון ה-Module.

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. לאחר מכן, לחץ על מקש F5 כדי להריץ את הקוד הזה, ותיבת אזהרה תקפוץ, אנא בחר את התאים שברצונך להסיר מהם את תגי ה-HTML, ראה את הסcreenshot:

4. ואז, לחץ על כפתור OK, וכל תגי ה-HTML יוסרו מהתאים שנבחרו, ראה את הסcreenshot:

פונקציות קשורות:

מאמרים נוספים: