¿No conoces el ChorriClub?

Comunidad, Cursos, Soporte y Herramientas
Mucho SEO y WordPress
Únete ahora con el descuento FOROBLACKHAT

Calificación:
  • 0 voto(s) - 0 Media
  • 1
  • 2
  • 3
  • 4
  • 5

Simple vba para descartar urls
#1

Es muy sencilla, pero a mi me sirve para hacer descartes en cuanto a urls en excel

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 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

shinchan38, orgulloso de ser un miembro de Foro Black Hat SEO desde Jan 2018.
Responder


Posibles temas similares…
Tema / Autor Respuestas Vistas Último mensaje
Último mensaje por zoping
16-11-2016, 12:58 AM

Salto de foro:


Usuarios navegando en este tema: 1 invitado(s)
Telegram Grupo Telegram