Note: The other languages of the website are Google-translated. Back to English

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

Este artículo habla de eliminar todos los textos o caracteres tachados de varias celdas en Excel.

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


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

El siguiente código de VBA puede ayudarlo a eliminar todos los textos en las celdas que se han marcado con tachado. Haz lo siguiente.

1. En la hoja de trabajo que contiene los textos tachados que necesita eliminar, presione la otro + F11 teclas simultáneamente para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic en Recuadro > Módulo. Luego copie y pegue el código VBA debajo en la ventana Código.

Código de VBA: elimine 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. presione el F5 o haga clic en el Ejecutar botón para ejecutar el código. En el apareciendo Kutools for Excel cuadro de diálogo, seleccione el rango que contiene los textos tachados que eliminará y luego haga clic en el OK botón. Ver captura de pantalla:

Luego, todos los textos marcados con un tachado se eliminan de las celdas inmediatamente como se muestra a continuación.


Artículos relacionados:


Las mejores herramientas de productividad de oficina

Kutools para Excel resuelve la mayoría de sus problemas y aumenta su productividad en un 80%

  • Reutilizar: Inserte rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña; Crear lista de distribución y enviar correos electrónicos ...
  • Barra de súper fórmula (edite fácilmente varias líneas de texto y fórmulas); Diseño de lectura (leer y editar fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir celdas duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Varias celdas sin cambiar la referencia de la fórmula; Crear referencias automáticamente a varias hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extraer texto, Agregar texto, Eliminar por posición, Quitar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtros a otras hojas); Orden avanzado por mes / semana / día, frecuencia y más; Filtro especial en negrita, cursiva ...
  • Combinar libros y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes de xls, xlsx y PDF...
  • Más de 300 potentes funciones. Compatible con Office/Excel 2007-2021 y 365. Compatible con todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas Prueba gratuita de 30 días. Garantía de devolución de dinero de 60 días.
pestaña kte 201905

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!
officetab parte inferior
Comentarios (10)
Aún no hay calificaciones. ¡Sé el primero en calificar!
Este comentario fue minimizado por el moderador en el sitio
Esto no funciona. Excel entra en No responde.
Este comentario fue minimizado por el moderador en el sitio
Buenos días,
Lo siento por los inconvenientes ocasionados. ¿Proporcionaría su versión de Office? Gracias por tu comentario.
Este comentario fue minimizado por el moderador en el sitio
Igual que aquí.

Estoy usando Office 365 ProPlus
Este comentario fue minimizado por el moderador en el sitio
Funciona en pequeña escala. Supongo que la razón por la que entra en No responde es porque la macro tarda una eternidad cuando tienes una gran cantidad de datos para pasar. Esta macro está revisando cada carácter para tacharlo.

Recomendaría agregar un código que vuelva a formatear la celda cuando haya terminado porque tenía varias celdas donde el código eliminó el texto tachado pero el texto restante todavía estaba tachado. Creo que esto se debe a que el formato de la celda completa fue tachado y el texto no tachado tiene un formato diferente, por lo que solo es un FYI.
Este comentario fue minimizado por el moderador en el sitio
¿Se puede hacer a través de python, pandas?
En caso afirmativo, ¿alguien puede ayudarme a implementar esto?
Este comentario fue minimizado por el moderador en el sitio
Hola Girish,
El código no ha sido probado en python, pandas. Lo siento, no puedo ayudarte con eso. Gracias por comentar
Este comentario fue minimizado por el moderador en el sitio
Lo uso para toda la columna y mi Excel nunca vuelve...
Este comentario fue minimizado por el moderador en el sitio
hola san,
¿Podría proporcionar la versión de Excel que está utilizando?
El código funciona bien en mi caso.
Disculpen las molestias.
Este comentario fue minimizado por el moderador en el sitio
Hola chicos, esto funcionó para mí, pero en algunos casos de alguna manera cambia el texto que no está formateado como tachado como tachado. Solución fácil para volver atrás y verificar los datos en instancias específicas y no tachar el rango.
Este comentario fue minimizado por el moderador en el sitio
Hola, ¿Qué versión de Excel estás usando?
No hay comentarios publicados aquí todavía
Deje sus comentarios
Publicar como invitado
×
Califica esta publicación:
0   Personajes
Ubicaciones sugeridas

Siganos

Copyright © 2009 - www.extendoffice.com. | Reservados todos los derechos. Energizado por ExtendOffice, | Mapa del Sitio
Microsoft y el logotipo de Office son marcas comerciales o marcas comerciales registradas de Microsoft Corporation en los Estados Unidos y / o en otros países.
Protegido por Sectigo SSL