¿cómo extraer direcciones web en excel?
Suponga que recibe un libro de Excel de su colega en el que tiene una lista de hipervínculos en una columna. Ahora, de esta lista, desea extraer todas las URL de hipervínculo.
El método manual es un auténtico dolor de cabeza, hay que copiar y pegar cada URL una a una. Entonces, la mejor manera es crear una UDF en VBA . Y hoy me gustaría compartir con ustedes un código simple para esta UDF.
Código VBA para extraer URL de hipervínculo
Function GiveMeURL(rng As Range) As String On Error Resume Next GiveMeURL = rng.Hyperlinks(1).Address End Function
Cómo utilizar este código
Para utilizar esta UDF, debe seguir estos pasos:
- Abra el Editor de Visual Basic desde la pestaña Desarrollador o use el método abreviado de teclado ALT+F11.
- Inserte un nuevo módulo, pegue el código anterior en él y ciérrelo.
- Ahora, en su hoja de cálculo, ingrese la función =GiveMeURL(A1) y presione Enter.