Recorrer columna y extraer determinada cadena

[dogwall]

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

[Mauricio_ODN]

Hola DogWall!!!

Con una Formula se puede lograr!!

te dejo el Ejemplo!!!

Si lo quieres con Macro me Avisas!!

Sigo a tus Ordenes!!

Saludos!!!

recorrer_columna.xlsx

[Antoni]

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

 

[Mauricio_ODN]

jejejejejejejeje!!! @Macro Antonio, me hiciste el chiste del día!!! jejejejejejejejeejejejejej

Saludos!!!!

jejejejejejeje

[dogwall]

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.

[Mauricio_ODN]

dentro del post busca esta Flecha!!!

 

Saludos!!!

[Salvador1]

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