31-01-2018, 08:43 PM
Es muy sencilla, pero a mi me sirve para hacer descartes en cuanto a urls en excel
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
Código:
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 SubComo 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