Saltar al contenido

Recorrer columna y extraer determinada cadena

publicado

Buenas tardes, 

Tengo, en una columna datos del tipo xxxxxxxx/6/3. Necesito recorrer esa columna y modificar esos datos para eliminar todo aquello que esté a la izquierda de la primera barra. Es decir, en el ejemplo quedaría ésto: 6/3. A veces la celda en cuestión no contiene una barra, solo texto o números, en ese caso no hay que tocarla.

Lo que necesito es un método rápido para recorrer esa columna y no se cual sería el mejor método pues hay días en los que la hoja tiene muchas filas de datos (cerca de 20.000) y no quiero eternizarme con este proceso. 

Adjunto fichero en el que muestro un ejemplo más amplio.

Gracias por vuestra ayuda y vuestro tiempo.

recorrer_columna.xlsx

Featured Replies

publicado

Te dejo la macro y así le ahorramos trabajo a Mauricio. 

Sub EliminarTexto()
Application.ScreenUpdating = False
For x = 3 To Range("B" & Rows.Count).End(xlUp).Row
   If x Mod 1000 = 0 Then
      Application.StatusBar = "Filas procesadas " & x
      DoEvents
   End If
   With Range("C" & x)
      .NumberFormat = "@"
      .Value = Range("B" & x)
      y = InStr(.Value, "/")
      If y > 0 Then .Value = CStr(Mid(.Value, y + 1))
   End With
Next
Application.StatusBar = False
End Sub

 

publicado
  • Autor

Muchas gracias a los dos. Acabo de probar la macro de @Macro Antonio y funciona bien sólo que me gustaría que el resultado no lo pusiese en otra columna sino en la misma columna donde aparecen los datos con la "/". ¿Es posible ir cambiando esos datos "al vuelo"?

Gracias.

P.D. No se cómo se da reputación o las gracias a los post en este foro...

Vale, acabo de ver que cambiando directamente la columna C por la B los cambios se hacen directamente en la columna B, así que tema resuelto.

Muchísimas gracias.

Editado el por dogwall
Solucionado!!

publicado

Otra opción bastante rápida: 

Sub Sustituir()
UF = Cells(Rows.Count, "B").End(xlUp).Row
Range("B1:B" & UF) = Application.Substitute(Range("B1:B" & UF), "/", "@", 1)
Range("B1:B" & UF).Replace "*@", ""
End Sub

 

 

 

 

 

  • Silvia bloqueó este tema

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas