Extracción de información de hipervínculo

April 14

Cheryl tiene una hoja de cálculo que contiene muchos hipervínculos. El texto de la pantalla para cada hipervínculo es diferente que el objetivo para el hipervínculo. Estos hipervínculos son todos en la columna A. Cheryl le gustaría dejar el texto de la pantalla en la columna A, mover la URL de destino en la columna B, y eliminar el hipervínculo en la columna A. Lo que ella necesita para terminar con es el texto de la pantalla en la columna A , la dirección URL en la columna B, y no hay hipervínculos activos en la hoja de trabajo.

Procesamiento y extracción de información a partir de hipervínculos de esta manera requiere el uso de una macro. El siguiente es un ejemplo de una macro flexible que examina lo hipervínculos están en el rango de celdas seleccionado. Si se encuentra en un hipervínculo, la dirección URL del hipervínculo se entra a la derecha del hipervínculo y luego se elimina el propio hiperenlace. Esto deja el texto de la pantalla en la celda en el hipervínculo que solía ser.

Sub GetHLInfo ()
Dim rRng como gama
Celular Dim como gama

Establecer rRng = ActiveSheet.Range (ActiveWindow.Selection.Address)
Para cada celda en rRng
Si cell.Hyperlinks.Count> 0 Then
cell.Offset (0, 1) = cell.Hyperlinks (1) .Address
cell.Hyperlinks (1) .Delete
End If
Siguiente
End Sub

ExcelTips es su fuente de capacitación rentable Microsoft Excel. Esta punta (9896) se aplica a Microsoft Excel 2000, 2002, y 2003. Usted puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y versiones posteriores) aquí: la extracción de información de hipervínculo.