¿Cómo extraer el nombre de dominio de una URL en Excel?

Si siempre estás trabajando con muchas URLs en tu libro de trabajo, a veces podrías querer extraer solo el nombre de dominio de cada página web. En Excel, ¿cómo podrías obtener rápidamente los nombres de dominio de las URLs?

Extraer el nombre de dominio de la URL con fórmula

Extraer el nombre de dominio de la URL con una Función Definida por el Usuario

Extraer el nombre de dominio de la URL con fórmula

La siguiente fórmula larga puede ayudarte a devolver el nombre de dominio de la página web según lo necesites. Por favor, sigue los siguientes pasos:

1. En una celda en blanco junto a tu celda de página web, introduce la siguiente fórmula; en este ejemplo, escribiré la fórmula en la celda B2: =SI(ESNUMERO(ENCONTRAR("www.",A2)),EXTRAE(A2,ENCONTRAR("www.",A2)+4,SI(ESNUMERO(ENCONTRAR("/",A2,9)),ENCONTRAR("/",A2,9),LARGO(A2)+1)-ENCONTRAR("www.",A2)-4),EXTRAE(A2,ENCONTRAR("//",A2)+2,SI(ESNUMERO(ENCONTRAR("/",A2,9)),ENCONTRAR("/",A2,9),LARGO(A2)+1)-ENCONTRAR("//",A2)-2)).

Nota: en la fórmula anterior, A2 indica la celda que contiene la página web de la cual deseas obtener el nombre de dominio, puedes cambiarla según sea necesario.

2. Luego presiona la tecla Enter, y selecciona la celda B2, arrastra el controlador de relleno hacia abajo sobre el rango al que deseas aplicar esta fórmula, y se habrán extraído todos los nombres de dominio de cada URL. Ver captura de pantalla:

Extraer el nombre de dominio de la URL con una Función Definida por el Usuario

Si te interesa el código VBA, puedes crear una Función Definida por el Usuario para extraer el nombre de dominio de las URLs.

1. Mantén presionadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, y pega el siguiente código en la Ventana del Módulo.

Código VBA: extraer el nombre de dominio de la URL

Function ExtractDomain(ByVal URL As String) As String
'Update 20140904
    If InStr(URL, "//") Then
        URL = Mid(URL, InStr(URL, "//") + 2)
    End If
    If Left(URL, 4) Like "[Ww][Ww][Ww0-9]." Then
        URL = Mid(URL, 5)
    End If
    ExtractDomain = Split(URL, "/")(0)
End Function

3. Luego guarda y cierra el código, regresa a la hoja de cálculo, e introduce esta fórmula =Extractdomain(A2) en una celda en blanco junto a la página web, ver captura de pantalla:

4. Y luego presiona la tecla Enter, selecciona la celda B2, y arrastra el controlador de relleno hacia abajo hasta las celdas que deseas que contengan esta fórmula, y se extraerán todos los nombres de dominio de cada celda de página web.

Artículos relacionados:

¿Cómo extraer dominios de múltiples direcciones de correo electrónico en Excel?

¿Cómo extraer rápidamente una dirección de correo electrónico de una cadena de texto?