Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

¿Cómo contar / sumar las celdas de tachado en Excel?

En Excel, siempre formateamos tachado para algunas celdas que indican que los valores de celda son inútiles o no válidos, de modo que podemos analizar los datos con mayor precisión. En este artículo, hablaré sobre cómo hacer algunos cálculos en el rango con estas celdas de tachado en Excel.

Contar celdas de tachado en Excel

Recuento sin tachado de celdas en Excel

Suma excluir tachado de celdas en Excel

Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools for Excel trae las características avanzadas de 300 a Excel y aumenta su productividad en 80%
  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células 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 Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Kutools funciona con Office 2007-2019 y 365. Es compatible con todos los idiomas y es muy fácil de instalar o implementar. Funciones completas de prueba gratuita de 60-day.

flecha azul burbuja derecha Contar celdas de tachado en Excel


Si desea saber cuántas celdas con formato tachado en un rango, puede crear una Función definida por el usuario, realice los siguientes pasos:

1. Mantenga presionado el ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para Aplicaciones.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en Ventana de módulo.

Código de VBA: cuente las celdas de tachado

Public Function CountStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If pRng.Font.Strikethrough Then
        xOut = xOut + 1
    End If
Next
CountStrike = xOut
End Function

3. Luego guarde y cierre este código, y regrese a la hoja de trabajo, y luego ingrese esta fórmula = CountStrike (A2: B14) a una celda en blanco, ver captura de pantalla:

doc-count-strike-1

4. Entonces presione entrar clave, y todas las celdas tachadas han sido contadas. Ver captura de pantalla:

doc-count-strike-1


flecha azul burbuja derecha Recuento sin tachado de celdas en Excel

Pero, a veces, es posible que desee contar el número de celdas normales que excluyen las celdas de tachado. El siguiente código puede ayudarte.

1. Mantenga presionado el ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para Aplicaciones.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en Ventana de módulo.

Código de VBA: Cuente sin tachar las celdas

Public Function CountNoStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If Not pRng.Font.Strikethrough Then
        xOut = xOut + 1
    End If
Next
CountNoStrike = xOut
End Function

3. Luego guarde y cierre este código, regrese a su hoja de trabajo, escriba esta fórmula = countnostrike (A2: B14) en una celda en blanco, y presione entrar clave, entonces obtendrá el resultado que necesita.

doc-count-strike-1

Nota: En las fórmulas anteriores, A2: B14 es el rango que desea aplicar las fórmulas.


flecha azul burbuja derecha Suma excluir tachado de celdas en Excel

Debido a que las celdas de tachado no están en uso, aquí, quiero sumar solo los números normales sin los números tachados. Para resolver esta tarea, también necesita una función definida por el usuario.

1. Mantenga presionado el ALT + F11 teclas para abrir el Ventana de Microsoft Visual Basic para Aplicaciones.

2. Hacer clic recuadro > Móduloy pegue el siguiente código en Ventana de módulo.

Código VBA: Suma excluir tachado de celdas

Public Function ExcStrike(pWorkRng As Range) As Long
'Update 20140819
Application.Volatile
Dim pRng As Range
Dim xOut As Long
xOut = 0
For Each pRng In pWorkRng
    If Not pRng.Font.Strikethrough Then
        xOut = xOut + pRng.Value
    End If
Next
ExcStrike = xOut
End Function

3. Luego guarde y cierre este código, regrese a su hoja de trabajo, escriba esta fórmula = excstrike (B2: B14) en una celda en blanco, y presione entrar clave, y obtendrá la suma de todos los números sin las celdas de tachado. Ver captura de pantalla:

doc-count-strike-1

Nota: En las fórmulas anteriores, B2: B14 es el rango en el que desea sumar celdas sin formato tachado en.


Artículos relacionados:

¿Cómo sumar / contar números en negrita en un rango de celdas en Excel?

¿Cómo contar y sumar celdas basadas en el color de fondo en Excel?

¿Cómo contar / sumar celdas según los colores de fuente en Excel?


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas y mantener datos; Contenido de celdas divididas; Combinar filas duplicadas y suma / promedio... Prevenir células 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 Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Fórmulas favoritas e insertadas rápidamente, Gamas, cuadros y cuadros; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Funciona con Office 2007-2019 y 365, y es compatible con todos los idiomas. Es fácil de implementar en su empresa. Funciones completas de prueba gratuita de 60-day.
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

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Matt · 2 years ago
    Hi. Great code for ignoring strikethrough text whilst summing. But, is it possible to filter the data and get a subtotal which still sums without the strike through text? Thanks
  • To post as a guest, your comment is unpublished.
    Ari · 3 years ago
    This seems to round to whole numbers, and does not take into account the decimal places. For example, 1.35 + 1.00 would equal 2 instead of 2.35, but 1.50 + 1 would equal 3 instead of 2.50. How can you fix the code to add accurately?
    • To post as a guest, your comment is unpublished.
      Mark Ayoub · 2 years ago
      [quote name="Ari"]This seems to round to whole numbers, and does not take into account the decimal places. For example, 1.35 + 1.00 would equal 2 instead of 2.35, but 1.50 + 1 would equal 3 instead of 2.50. How can you fix the code to add accurately?[/quote]

      ARI, just change the two words "Long" to "Double" in the formula. Here is the same formula above, with the correct Data Types to allow for values with decimal points:

      [b]
      Public Function ExcStrike(pWorkRng As Range) As Double
      'Update 20161107_IITCSglobal.com
      Application.Volatile
      Dim pRng As Range
      Dim xOut As Double
      xOut = 0
      For Each pRng In pWorkRng
      If Not pRng.Font.Strikethrough Then
      xOut = xOut + pRng.Value
      End If
      Next
      ExcStrike = xOut
      End Function
      [/b]