Conversión de un rango de URL en hipervínculos (Microsoft Excel)
John tiene un libro de trabajo que tiene más de mil URL, todo en la columna A. Estos no son hipervínculos; son texto directo de URL individuales. John quiere convertir las URL en hipervínculos activos, pero hacer la conversión individualmente es extremadamente tedioso, especialmente para tantas URL.
Una forma de realizar la conversión es utilizar la función HIPERVÍNCULO. Pon esta fórmula en la celda B1 y cópiala tantas celdas como sea necesario:
=IF(A1="","",HYPERLINK(IF(LEFT(A1,7)="http://","","http://")&A1))
El resultado es que la columna B contendrá hipervínculos para todo en la columna A. La fórmula no es muy robusta, ya que solo se ocupa de la presencia o falta del texto «http: //», y es posible que también necesite tratar con direcciones «https». Es posible ajustar la fórmula (es decir, hacerla más compleja), pero es posible que también desee considerar el uso de una macro para realizar las conversiones.
Para ser eficaz, la macro debería recorrer cada celda en un rango seleccionado y, si la celda no está en blanco, convertir el contenido en un hipervínculo. Lo siguiente hará el truco:
Sub URL_List() Dim sTemp As String Dim sURL As String Dim cell As Range For Each cell In Selection If cell.Value <> "" Then sTemp = Left(cell.Value, 7) If sTemp = "http://" Or sTemp = "https:/" Then sURL = cell.Value Else sURL = "http://" + cell.Value End If ActiveSheet.Hyperlinks.Add Anchor:=cell, _ Address:=sURL, TextToDisplay:=cell.Value End If Next cell End Sub
La macro no es infalible; asume que si una celda contiene algo, es una URL válida. Lo que hace es verificar el contenido de la celda y, si el contenido no está precedido por el texto «http: //» o «https: /», se agrega un prefijo de «http: //». A continuación, se crea el hipervínculo en función del contenido de la celda.
_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 (5825) 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-Converting_a_Range_of_URLs_to_Hyperlinks [Conversión de un rango de URL en hipervínculos]
.