Separar el nombre del sitio web o la URL del texto

El consejo enviado por: Jay Shukla

Algunas veces tenemos una situación como:

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 reemplace http:
con (espacios)… .http:

(Ej .:…. = Espacios)

Encontrará que los nombres de nosotros se separan a una distancia

Paso 2

Ir a la opción Texto a columna en Datos

y seleccione la opción Ancho fijo

lleve el marcador a una ubicación específica en la columna antes del nombre del primer sitio web en toda la columna

haga clic en siguiente u verá que el texto antes de los nombres web están en negro

TERMINAR

Encontrará los nombres de sus sitios web separados del texto.

Ahora para convertirlo en un hipervínculo:

Paso 1

Presione Alt + F11

encontrará que se abrirán macros

Vaya 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 ()
Atenuar celda como rango, Rng como rango
Establezca Rng = Rango ("A1: A" & Cells.Rows.Count). _
SpecialCells (xlConstants, xlTextValues)
Si Rng no es nada, entonces
MsgBox "nada en el rango"
Salir de Sub
Terminara si
Para cada celda en Rng
Si Trim (cell.Value) "" Entonces
ActiveSheet.Hyperlinks.Add Anchor: = celda, _
Dirección: = celda.Valor, _
Sugerencia en pantalla: = cell.Value, _
TextToDisplay: = celda.Value
Terminara si
Siguiente celda
End Sub