ELIMINAR ECUACIONES LINEALES

[DARVIAN]

Necesito en EXCEL (o de no ser posible, en otro programa) de los números enteros positivos eliminar series lineales. Ejemplo: eliminar los múltiplos de 3 -2 entonces elimina el 1, 4, 7, 10.. , eliminar los múltiplos de 7-2 elimina 5, 12, 19 ..... poder eliminar varias series de ese mismo tipo y que después el programa me entregue los primeros 100 números no eliminados, para el ejemplo que di quedarían el 2,3,6,8,9,11... es muy importante. gracias

[Antoni]

Prueba, a ver si es eso lo que estás buscando.

Eliminar series.xlsm

[DARVIAN]

Macro Antonio, si era exactamente lo que necesitaba. En verdad me ayudaste mucho, Gracias.

[Héctor Miguel]

hola, a todos !

como resultaría una UDF ?

saludos,

hector.

[John Jairo V]

¡Hola a todos!

Dejo una opción con UDF, aprovechando el archivo de Macro Antonio:

Function SerieL$(n&, r1 As Range, r2 As Range)
    Dim dic As Object, i&, j&, a&
    
    Set dic = CreateObject("Scripting.dictionary")
    Do Until dic.Count = n
        a = a + 1: dic.Item(a) = a
        For i = 1 To r1.Count
            j = r1.Cells(i): If dic.exists(j) Then dic.Remove (j)
            Do Until j > a
                j = j + r2.Cells(i): If dic.exists(j) Then dic.Remove (j)
            Loop
        Next i
    Loop
    
    SerieL = Join(dic.items, ", "): Set dic = Nothing
End Function

¡Bendiciones!

Eliminar series.xlsm

[Antoni]

Aquí va mi UDF.

Eliminar series II.xlsm

[Héctor Miguel]

hola, a todos !

estimando que no habrá mas participaciones al respecto, adjunto el libro de MA con la colección de propuestas hasta ahora (la mía incluida) y dejo los comentarios para después de su análisis de pros y contras así como de dos o tres técnicas que no les había encontrado muchas aplicaciones antes

nota: los rendimientos son "según mi equipo" y corresponden al menor tiempo mas recurrente

saludos,

hector.

eliminar series (ayudaExcel).xlsm

[DARVIAN]

GRACIAS a todos por sus aportes.