¿Cómo contar el número de celdas con hipervínculos en Excel?
¿Alguna vez ha intentado contar el número de celdas que contienen hipervínculos en un rango determinado en Excel? Este tutorial proporciona un método paso a paso para demostrar cómo lograrlo.
Contar el número de celdas con hipervínculo mediante código VBA
Contar el número de celdas con hipervínculo mediante código VBA
El siguiente código VBA se puede utilizar para contar cuántas celdas contienen hipervínculos en un rango dado. Por favor, siga los siguientes pasos.
1. Presione las teclas "Alt" + "F11" para abrir la ventana "Microsoft Visual Basic para Aplicaciones".
Consejos: También puede hacer clic en "Desarrollador" > "Visual Basic" para abrir esta ventana.
2. En la ventana "Visual Basic", haga clic en "Insertar" > "Módulo", luego pegue el siguiente código VBA en la ventana del Módulo (código).
Código VBA: Contar el número de celdas con hipervínculos en un rango dado
Sub StatisticsHypRange()
'Updated by Extendoffice 20220815
Dim xSRg As Range
Dim xURg As Range
Dim xRg As Range
Dim xHRg As Range
Dim xHypCount As Long
On Error Resume Next
Set xSRg = Application.InputBox("Select the range of cells from which you want to count hyperlinks", "Kutools for Excel", "", Type:=8)
If xSRg Is Nothing Then Exit Sub
Set Where = Range("A1", Range("A" & Rows.Count).End(xlUp))
Set xURg = Application.Intersect(xSRg.Worksheet.UsedRange, xSRg)
xHypCount = 0
For Each xRg In xURg
If xRg.Hyperlinks.Count > 0 Then
xHypCount = xHypCount + 1
If xHRg Is Nothing Then
Set xHRg = xRg
Else
Set xHRg = Application.Union(xHRg, xRg)
End If
Else
If InStr(LCase(xRg.Formula), LCase("HYPERLINK")) > 0 Then
xHypCount = xHypCount + 1
If xHRg Is Nothing Then
Set xHRg = xRg
Else
Set xHRg = Application.Union(xHRg, xRg)
End If
End If
End If
Next
MsgBox "Find " & xHypCount & " hyperlink cells"
xHRg.Select
End Sub3. Presione la tecla "F5" para ejecutar el código. En el cuadro de diálogo emergente "Kutools para Excel", seleccione el rango donde desea contar el número de celdas con hipervínculos y luego haga clic en "Aceptar". Ver captura de pantalla:
4. Luego aparecerá un cuadro de diálogo que le indicará cuántas celdas en el rango seleccionado contienen hipervínculos. Haga clic en "Aceptar" para cerrar el cuadro de diálogo.
Luego, todas las celdas que contienen hipervínculos se seleccionan al mismo tiempo.
Nota: Los siguientes tipos de hipervínculos pueden ser contados por el código VBA anterior:
=HYPERLINK(link_location,[friendly_name])Las mejores herramientas de productividad para Office
Mejora tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haz clic aquí para obtener la función que más necesitas...
Office Tab incorpora la interfaz de pestañas en Office y facilita mucho tu trabajo
- Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abre y crea varios documentos en nuevas pestañas de la misma ventana, en lugar de hacerlo en ventanas separadas.
- ¡Aumenta tu productividad en un50% y reduce cientos de clics de ratón cada día!
Todos los complementos de Kutools. Un solo instalador
El paquete Kutools for Office agrupa complementos para Excel, Word, Outlook y PowerPoint junto con Office Tab Pro, ideal para equipos que trabajan en varias aplicaciones de Office.
- Suite todo en uno: complementos para Excel, Word, Outlook y PowerPoint + Office Tab Pro
- Un solo instalador, una licencia: configuración en minutos (compatible con MSI)
- Mejor juntos: productividad optimizada en todas las aplicaciones de Office
- Prueba completa de30 días: sin registro ni tarjeta de crédito
- La mejor relación calidad-precio: ahorra en comparación con la compra individual de complementos