Eliminar o quitar etiquetas HTML de cadenas de texto

Si hay varias cadenas de texto rodeadas de etiquetas HTML, para eliminar todas las etiquetas HTML, los métodos en este artículo pueden ayudarte.

• Eliminar o quitar todas las etiquetas HTML simples con una fórmula
• Eliminar o quitar algunas etiquetas HTML complejas con código VBA

Eliminar o quitar todas las etiquetas HTML simples con una fórmula

Si tus cadenas de texto están rodeadas de algunas etiquetas HTML simples, la función MID en Excel puede ayudarte a resolver este problema. La sintaxis genérica es:

• cadena: la cadena de texto o valor de celda del que deseas eliminar las etiquetas HTML.
• inicio_texto: el número de la posición donde se encuentra el primer carácter que deseas utilizar.
• long_etiqueta: la longitud de las etiquetas HTML dentro de la cadena de texto.

Por favor, copia o introduce la siguiente fórmula en una celda en blanco:

Luego, arrastra el controlador de relleno hacia abajo hasta las celdas donde deseas aplicar esta fórmula, y todas las etiquetas HTML habrán sido eliminadas de las celdas como se muestra en la captura de pantalla a continuación:

Explicación de la fórmula:

LONG(A2)-7: Esta función LONG se utiliza para calcular la longitud de la cadena de texto en la celda A2, y resta 7 (el número de etiquetas HTML, tanto las etiquetas de inicio como las de fin) para obtener el número de caracteres que deseas extraer excluyendo la etiqueta HTML. El valor devuelto se usará como el argumento num_chars dentro de la función MID.

MID(A2,4,LONG(A2)-7): Esta función MID se utiliza para extraer todos los caracteres que comienzan en el cuarto carácter, y la longitud de la cadena es el número de caracteres devueltos por la función LONG.

Eliminar o quitar algunas etiquetas HTML complejas con código VBA

Si hay múltiples etiquetas HTML dentro de la cadena de texto como se muestra en la captura de pantalla a continuación, la fórmula anterior puede no funcionar correctamente; en este caso, el siguiente código VBA puede ayudarte a manejar algunas etiquetas HTML complejas en las cadenas de texto.

1. Mantén presionadas las teclas Alt + F11 en Excel, y se abrirá la ventana Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código VBA en la Ventana del Módulo.

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. Luego, presiona la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo emergente, selecciona las celdas de las que deseas eliminar las etiquetas HTML, ver captura de pantalla:

4. Y luego, haz clic en el botón Aceptar, y todas las etiquetas HTML habrán sido eliminadas de las celdas seleccionadas, ver captura de pantalla:

Funciones relacionadas utilizadas:

Más artículos: