¿Cómo cambiar varias rutas de hipervínculos a la vez en Excel?

Por algún motivo, es posible que haya creado varios hipervínculos para sus datos en la hoja de cálculo, y todos los hipervínculos están vinculados a la misma ruta de archivo o dirección. Pero ahora, necesita reemplazar esta ruta de hipervínculo con otra dirección de una sola vez. Cambiar las rutas de los hipervínculos individualmente puede llevar mucho tiempo, ¿hay alguna manera rápida de resolver este problema?

Cambiar varias rutas de hipervínculos a la vez en una hoja de cálculo con código VBA

Cambiar varias rutas de hipervínculos a la vez en una hoja de cálculo / libro de trabajo / múltiples hojas / selección con una función asombrosa

Cambiar varias rutas de hipervínculos a la vez en una hoja de cálculo con código VBA

Supongamos que tiene una lista de datos con los mismos hipervínculos como se muestra en la siguiente captura de pantalla, y con un código VBA, puede reemplazar rápidamente la antigua ruta de archivo o dirección en una hoja de cálculo por una nueva.

1. Mantenga presionadas las teclas ALT + F11, y se abrirá la Ventana de Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo, y pegue la siguiente macro en la ventana del Módulo.

Código VBA: cambiar varias rutas de hipervínculos a la vez

Sub ReplaceHyperlinks()
'Updateby Extendoffice
Dim Ws As Worksheet
Dim xHyperlink As Hyperlink
Dim xOld As String, xNew As String
xTitleId = "KutoolsforExcel"
Set Ws = Application.ActiveSheet
xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For Each xHyperlink In Ws.Hyperlinks
    xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
Next
Application.ScreenUpdating = True
End Sub

3. Luego presione la tecla F5 para ejecutar este código, y aparecerá un cuadro de diálogo que le pedirá que ingrese su antigua dirección de hipervínculo en el cuadro de texto Antiguo. Ver captura de pantalla:

4. Haga clic en Aceptar, y aparecerá otro cuadro de diálogo que le recordará ingresar la nueva dirección de hipervínculo que desea usar.

5. Luego haga clic en Aceptar, y todas las mismas direcciones de hipervínculo antiguas habrán sido reemplazadas por la nueva a la vez. Ver capturas de pantalla:

Cambiar varias rutas de hipervínculos a la vez en una hoja de cálculo / libro de trabajo / múltiples hojas / selección con una función asombrosa

Si desea reemplazar las rutas de los hipervínculos desde una selección, múltiples hojas, el libro actual o varios libros, ¿cómo lo haría? Con la función Buscar y Reemplazar de Kutools para Excel, puede resolver esta tarea rápidamente.

Después de instalar Kutools para Excel, proceda de la siguiente manera:

1. Haga clic en Kutools > Navegación, ver captura de pantalla:

2. En el panel de Navegación abierto, haga clic en la pestaña Buscar y reemplazar, en el panel Buscar y Reemplazar, haga clic en la pestaña Reemplazar, y luego realice las siguientes operaciones:

• Ingrese el texto del hipervínculo antiguo que desea encontrar en el cuadro de texto Buscar lo siguiente, y luego escriba el nuevo texto del hipervínculo que desea usar para reemplazar en el cuadro de texto Reemplazar con;
• Especifique el ámbito donde desea buscar y reemplazar la ruta del hipervínculo desde la lista desplegable Ámbito;
• Luego, seleccione Hipervínculos desde la lista desplegable Buscar en;
• Finalmente, haga clic en el botón Buscar Todo, todas las celdas correspondientes que contienen el texto específico del hipervínculo se habrán listado en el cuadro de lista inferior.

3. Luego, haga clic en el botón Reemplazar Todo, las rutas de los hipervínculos antiguos se habrán cambiado a las nuevas de inmediato, ver captura de pantalla:

¡Haga clic para Descargar Kutools para Excel para Prueba Gratuita!

Más artículos relacionados: