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

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

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

 

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

Saludos!!!!

jejejejejejeje

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 el 23 de junio9 años por dogwall
Solucionado!!

dentro del post busca esta Flecha!!!

 

Saludos!!!

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