Jump to content
Sign in to follow this  
MAURO_1512

ANSWERED cada cuanto se repite un numero

Recommended Posts

Mediaqnte formula:

=CONTAR.SI.CONJUNTO($A:$A,D1)

Mediante VBA:

Sub ContarSi()
Dim vB, Col, Fil, FinalFil, FinalCol As Variant
FinalFil = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row
FinalCol = ActiveSheet.Cells.SpecialCells(xlCellTypeLastCell).Offset(0, 0).Column


For Col = 4 To FinalCol
vB = Cells(1, Col).Value
    For Fil = 2 To FinalFil
        If Cells(Fil, 1).Value = vB Then: Cells(2, Col).Value = Cells(2, Col).Value + 1
    Next Fil
Next Col
End Sub

Share this post


Link to post
Share on other sites

amigo luis gracias por quererme ayudar me explico  no necesito saber cuantas veces hay un numero en la columna  si no cada cuantas filas promedio vuelve a repetirse 

ej el numero 1 esta en a2 y a5 quiere decir que cada 3 filas salio el numero 1 y si hay mas uno promedie 

Share this post


Link to post
Share on other sites

Te dejo esta UDF:

Function PROMEDIAR(Número As Range) As Long
Dim Desde As Long, x As Long
Dim Veces As Long, Total As Long
'--
Desde = 0
For x = 2 To Range("A" & Rows.Count).End(xlUp).Row
   If Range("A" & x) = Número Then
      If Desde > 0 Then
         Veces = Veces + 1
         Total = Total + x - Desde
      End If
      Desde = x
   End If
Next
If Veces > 0 Then PROMEDIAR = Int(Total / Veces)
End Function

Pon la macro en un módulo y aplícala como una fórmula:

=PROMEDIAR(Celda

 

.

Share this post


Link to post
Share on other sites

maestro antoni muchas gracias por la ayuda resuelve mi problema 

sin abusar de su ayuda  me acaban de pedir este dato sera que con esta misma macro puedo sacar el mayor así como en el ejemplo

gracias

ej: el numero 2 esta en la celda a3 - a9 y a11  la respuesta es 6 celdas y 2 celdas el promedio es 4 pero si quiero que el resultado sea el mayor espacio osea la respuesta sea 6 

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.

Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png