Jump to content

Extraer rangos numericos


jononaia

Recommended Posts

Hola de nuevo, y gracias por su ayuda.

Me gustaría que me ayudaran a extraer de una columna con una serie de numeros, aquellos que no tienen un numero consecutivo debajo, y si lo tiene que siga revisando la columna hasta encontrar el ultimo numero consecutivo. Como no sé muy bien como explicarlo, en el excel que mando, he puesto la solucion a lo que quiero, lo he hecho a mano, porque soy incapaz de sacar una formula que me lo haga.

Es un ejemplo, ya que el excel original tiene más de 50000 lineas.

Gracias de antemano.

Ejemplo.xlsx

Link to post
Share on other sites
Hace 5 horas, Haplox dijo:

Te parecía poco "elegante" lo de la columna auxiliar? :rolleyes:

Muchas veces es mejor una auxiliar, para comprender mejor lo que se hace.

De otro lado, siempre trato de hacerlo en una, me encanta trabajar con matriciales, aunque la mayoría de veces no me sale -_-

jajajaja

 

saludos!!!

 

Link to post
Share on other sites

Archived

This topic is now archived and is closed to further replies.

Guest
This topic is now closed to further replies.
  • Crear macros Excel

  • Posts

    • Muchas gracias!!! Funciona a la perfección. Un saludo  
    • Sin ver la solución de Mauricio: Sub filtrar() ' ' filtrar Macro ' ' ActiveSheet.Range("$C$3:$C$4962").AutoFilter Field:=1, Criteria1:=Array( _ "</BCE:Balanza>", "<?xml version=""1.0"" encoding=""UTF-8""?>", _ "<BCE:Balanza xmlns:BCE=""http://www.sat.gob.mx/esquemas/ContabilidadE/1_3/BalanzaComprobacion"" xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance""", _ "<BCE:Ctas NumCta=""100-""", "<BCE:Ctas NumCta=""101-""", _ "<BCE:Ctas NumCta=""102-""", "<BCE:Ctas NumCta=""200-""", _ "<BCE:Ctas NumCta=""201-""", "<BCE:Ctas NumCta=""301-""", _ "<BCE:Ctas NumCta=""302-""", "<BCE:Ctas NumCta=""303-""", _ "<BCE:Ctas NumCta=""400-""", "<BCE:Ctas NumCta=""401-""", _ "<BCE:Ctas NumCta=""402-""", "<BCE:Ctas NumCta=""501-""", _ "<BCE:Ctas NumCta=""502-""", "<BCE:Ctas NumCta=""503-""", _ "<BCE:Ctas NumCta=""504-""", "<BCE:Ctas NumCta=""601-""", _ "<BCE:Ctas NumCta=""602-""", "Anio=""2020""", "Debe=""0.00""", "Debe=""10900.00""", _ "Debe=""14854.75""", "Debe=""1538.16""", "Debe=""19684.00""", "Debe=""19726.34""", _ "Debe=""2593.76""", "Debe=""298831.38""", "Debe=""376399.24""", _ "Debe=""38831.90""", "Debe=""422506.96""", "Debe=""4946.00""", _ "Debe=""535673.00""", "Debe=""54279.41""", "Debe=""55014.62""", _ "Debe=""689769.61""", "Debe=""700.00""", "Debe=""70063.90""", "Debe=""724350.70""", _ "Debe=""7353.00""", "Debe=""7524.38""", "Debe=""7524.50""", "Debe=""757568.34""", _ "Debe=""788022.29""", "Debe=""797477.71""", "Debe=""850.00""", "Haber=""0.00""", _ "Haber=""10000.00""", "Haber=""10595.00""", "Haber=""108558.82""", _ "Haber=""121.00""", "Haber=""13405.50""", "Haber=""13641.58""", _ "Haber=""155190.18""", "Haber=""156.59""", "Haber=""178.00""", "Haber=""1802.31""", _ "Haber=""2018.66""", "Haber=""2088.00""", "Haber=""21350.00""", _ "Haber=""23289.44""", "Haber=""2593.76""", "Haber=""2914.44""") End Sub  
    • Sub Transponer() Application.ScreenUpdating = False fila = 1 For x = 2 To Range("A" & Rows.Count).End(xlUp).Row cadena = Split(Range("B" & x), "|") For y = 0 To UBound(cadena) fila = fila + 1 Range("D" & fila) = Range("A" & x) Range("E" & fila) = cadena(y) Next Next End Sub  
    • Hola!! A ver si alguien me puede ayudar con una macro, necesito transponer  los registros que están contenido en una celda que tienen un separador "|". Pongo un ejemplo: Inicialmente tengo esto 2 columnas: refe  productos A       1|2|3|4|5 B       6|7 Y quiero que la macro en cuestión me lo haga así: refe productos A      1 A      2 A      3 A      4 A      5 B     6TRANSPONER CADENA TANTAS VECES SE REPITA.xlsx B     7   Muchas gracias de antemano. Un saludo.
    • me imagino, aun asi, en los enlaces esos no dicen como se hace en excel no?
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy