¿Cómo convertir html a texto en celdas en Excel?
Como se muestra a continuación en la captura de pantalla, si existen números de etiquetas html en las celdas de su hoja de trabajo, ¿cómo podría convertirlas a texto sin formato en Excel? Este artículo le mostrará dos métodos para eliminar todas las etiquetas html de las celdas en Excel.
Convierta html a texto en las celdas seleccionadas con la función Buscar y reemplazar
Convierta html a texto en toda la hoja de trabajo con VBA
Convierta html a texto en celdas con la función Buscar y reemplazar
Puede convertir todo HTML a texto en celdas con el Buscar y reemplazar función en Excel. Haz lo siguiente.
1. Seleccione las celdas en las que convertirá todos los html a textos y presione el Ctrl + F teclas para abrir el Buscar y reemplazar caja de diálogo.
2. En el Buscar y reemplazar cuadro de diálogo, vaya al Reemplaza pestaña, entrar <*> en el Encuentra lo que caja, mantenga la Reemplazar con cuadro vacío y haga clic en el reemplazar todo botón. Ver captura de pantalla:
3. Entonces un Microsoft Excel aparece el cuadro de diálogo para indicarle cuántas etiquetas html se han reemplazado, haga clic en el OK botón y cierre el Buscar y reemplazar caja de diálogo.
Luego puede ver que todas las etiquetas html se eliminan de las celdas seleccionadas como se muestra a continuación.
Convierta html a texto en toda la hoja de trabajo con VBA
Además, puede convertir todo html a texto en toda la hoja de trabajo al mismo tiempo con el siguiente código VBA.
1. Abra la hoja de trabajo que contiene html que convertirá a texto, luego presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo, luego copie el código de VBA a continuación en la ventana del Módulo.
Código VBA: convierta html en texto en toda la hoja de trabajo
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 Sub
3. Todavía en el Microsoft Visual Basic para aplicaciones ventana, haga clic en Herramientas > Referencias, comprueba la Expresión regular 5.5 de Microsoft VBScript opción en el Referencias-VBAProject cuadro de diálogo y luego haga clic en el OK del botón.
4. presione el F5 o haga clic en el botón Ejecutar para ejecutar el código.
Luego, todas las etiquetas html se eliminan de toda la hoja de trabajo inmediatamente.
Artículos relacionados:
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!