¿Cómo eliminar o borrar todos los textos o caracteres tachados de las celdas en Excel?

Este artículo trata sobre la eliminación de todos los textos o caracteres tachados de múltiples celdas en Excel.

Eliminar todos los textos tachados de las celdas con código VBA

Eliminar todos los textos tachados de las celdas con código VBA

El siguiente código VBA puede ayudarte a eliminar todos los textos en las celdas que han sido marcados con tachado. Por favor, sigue los siguientes pasos.

1. En la hoja de trabajo que contiene los textos tachados que necesitas eliminar, presiona simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. En la ventana de Microsoft Visual Basic para Aplicaciones, haz clic en Insertar > Módulo. Luego copia y pega el siguiente código VBA en la ventana de Código.

Código VBA: Eliminar todos los textos tachados de las celdas

Sub DelStrikethroughText()
    Dim xRg As Range, xCell As Range
    Dim xStr As String
    Dim I As Long
    On Error Resume Next
    Set xRg = Application.InputBox("Please select range：", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = Fase
        For Each xCell In xRg
            If IsNumeric(xCell.Value) And xCell.Font.Strikethrough Then
                xCell.Value = ""
            ElseIf Not IsNumeric(xCell.Value) Then
                For I = 1 To Len(xCell)
                    With xCell.Characters(I, 1)
                        If Not .Font.Strikethrough Then
                            xStr = xStr & .Text
                        End If
                    End With
                Next
                xCell.Value = xStr
                xStr = ""
            End If
        Next
    Application.ScreenUpdating = True
End Sub

3. Presiona la tecla F5 o haz clic en el botón Ejecutar para ejecutar el código. En el cuadro de diálogo emergente de Kutools para Excel, selecciona el rango que contiene los textos tachados que deseas eliminar y luego haz clic en el botón Aceptar. Ver captura de pantalla:

Luego, todos los textos marcados con un tachado se eliminan inmediatamente de las celdas como se muestra en la siguiente captura de pantalla.

Descubre la Magia de Excel con Kutools AI

• Ejecución Inteligente: Realiza operaciones en celdas, analiza datos y crea gráficos, todo impulsado por comandos simples.
• Fórmulas Personalizadas: Genera fórmulas adaptadas para optimizar tus flujos de trabajo.
• Codificación VBA: Escribe e implementa código VBA sin esfuerzo.
• Interpretación de Fórmulas: Comprende fórmulas complejas con facilidad.
• Traducción de Texto: Supera las barreras del idioma dentro de tus hojas de cálculo.

Potencia tus capacidades de Excel con herramientas impulsadas por IA. ¡Descarga Ahora y experimenta una eficiencia como nunca antes!

Artículos relacionados:

• ¿Cómo eliminar texto antes o después de un carácter específico en Excel?
• ¿Cómo eliminar texto no deseado de una celda en Excel?
• ¿Cómo eliminar números de celdas que contienen texto y números en Excel?
• ¿Cómo eliminar solo texto de celdas que contienen números y texto en Excel?