Simple vba para descartar urls

Iniciado por shinchan38 · 31 ene 2018 · 0 respuestas · 6184 visitas

1. Sshinchan3831 ene 2018
   Es muy sencilla, pero a mi me sirve para hacer descartes en cuanto a urls en excel
   
   

   Sub COM()
   
       Columns("A:A").Select
       Selection.Replace What:=".com/*", Replacement:=".com", LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
       ReplaceFormat:=False
       Selection.Replace What:=".es/*", Replacement:=".es", LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
       ReplaceFormat:=False
       Selection.Replace What:=".net/*", Replacement:=".net", LookAt:=xlPart, _
       SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
       ReplaceFormat:=False
      Selection.Replace What:="*.uk/*", Replacement:="", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
      ReplaceFormat:=False
       MsgBox "Todo realizado"
   End Sub

   
   Con esto como podéis ver, cambiamos la url http://tuweb.com/xxxxxxx/ccccc.jpg a http://tuweb.com , gracias a esto luego quitamos duplicados y reducimos la lista mucho.
   Como es lógico hay que ir añadiendo más reemplazos o eliminaciones como en el caso de "*.uk/*" dejando las segundas "" vacias.
   
   Sé que es muy simple, pero un granito más

Este hilo pertenece al archivo del foro y ya no admite respuestas.