Cheryl tiene una hoja de trabajo que contiene muchos hipervínculos. El texto de visualización de cada hipervínculo es diferente al destino del hipervínculo. Todos estos hipervínculos están en la columna A. A Cheryl le gustaría dejar el texto para mostrar en la columna A, mover la URL de destino a la columna B y eliminar el hipervínculo en la columna A. Lo que necesita para terminar es el texto para mostrar en la columna A , la URL en la columna B y ningún hipervínculo activo en la hoja de trabajo.

Procesar y extraer información de hipervínculos de esta manera requiere el uso de una macro. El siguiente es un ejemplo de una macro flexible que examina los hipervínculos que se encuentran en el rango de celdas seleccionado. Si se encuentra un hipervínculo, la URL del hipervínculo se ingresa a la derecha del hipervínculo y luego se elimina el hipervínculo.

Esto deja el texto de visualización en la celda donde solía estar el hipervínculo.

Sub GetHLInfo()

Dim rRng As Range     Dim cell As Range

Set rRng = ActiveSheet.Range(ActiveWindow.Selection.Address)

For Each cell In rRng         If cell.Hyperlinks.Count > 0 Then             cell.Offset(0, 1) = cell.Hyperlinks(1).Address             cell.Hyperlinks(1).Delete         End If     Next End Sub

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (9898) se aplica a Microsoft Excel 2007, 2010, 2013, 2016, 2019 y Excel en Office 365. Puede encontrar una versión de este consejo para la interfaz de menú anterior de Excel aquí:

link: / excel-Extracting_Hyperlink_Information [Extracción de información de hipervínculo].