El consejo enviado por: Jay Shukla Algunas veces tenemos una situación como:

{vacío} 1. Sitio web de Yahoo www.yahoo.com 2. Sitio web de Google www.google.com Entonces, ¿cómo separamos el nombre del sitio web del texto restante?

Paso 1.

Seleccione la columna.

Ir a la opción Reemplazar en Editar Luego reemplazar http:

con (espacios) …​…​…​…​…​…​…​…​. http:

(Ej .: …​. = Espacios)

Encontrará que los nombres de nosotros se separan a una distancia Paso 2 Vaya a la opción Texto a columna en Datos y seleccione la opción Ancho fijo para llevar el marcador a una ubicación específica donde en la columna antes del nombre del primer sitio web en toda la columna, haga clic en Siguiente. que el texto antes de los nombres web esté en negro FINALIZAR Encontrará los nombres web separados del texto.

Ahora para convertirlo en un hipervínculo:

Paso 1 Presione Alt + F11 y encontrará que se abrirán Macros Ir a Insertar y luego seleccione Módulo. Aparece otra ventana de módulo nuevo Paso 2 Copie y pegue la fórmula mencionada a continuación:

—————————————————— Sub MakeHyperlinks_D()

Dim cell As Range, Rng As Range Set Rng = Range(«A1:A» & Cells.Rows.Count). _ SpecialCells(xlConstants, xlTextValues)

If Rng Is Nothing Then MsgBox «nothing in range»

Exit Sub End If For Each cell In Rng If Trim(cell.Value) <> «» Then ActiveSheet.Hyperlinks.Add Anchor:=cell, _ Address:=cell.Value, _ ScreenTip:=cell.Value, _ TextToDisplay:=cell.Value End If Next cell End Sub —————————————————– and then Goto File Close and Exit Step 4 Goto Tools>Macros>Macros you will find your Websites hyperlinked.

SIMPLE AND RAW BUT EFFECTIVE.

Jay.