Como contar o número de células com hiperlinks no Excel?
Você já tentou contar o número de células que contêm hiperlinks em um intervalo específico no Excel? Este tutorial fornece um método passo a passo para demonstrar como fazer isso.
Conte o número de células com hiperlink usando código VBA
Conte o número de células com hiperlink usando código VBA
O seguinte código VBA pode ser usado para contar quantas células contendo hiperlinks existem em um intervalo dado. Por favor, siga os passos abaixo.
1. Pressione as teclas "Alt" + "F11" para abrir a janela "Microsoft Visual Basic for Applications".
Dicas: Você também pode clicar em "Desenvolvedor" > "Visual Basic" para abrir esta janela.
2. Na janela "Visual Basic", clique em "Inserir" > "Módulo", depois cole o seguinte código VBA na janela Módulo (código).
Código VBA: Contar o número de células com hiperlinks em um intervalo específico
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. Pressione a tecla "F5" para executar o código. Na caixa de diálogo pop-up do "Kutools para Excel", selecione o intervalo onde você deseja contar o número de células com hiperlinks e, em seguida, clique em "OK". Veja a captura de tela:
4. Em seguida, uma caixa de diálogo aparecerá informando quantas células no intervalo selecionado contêm hiperlinks. Clique em "OK" para fechar a caixa de diálogo.
Então, todas as células contendo hiperlinks serão selecionadas ao mesmo tempo.
Observação: Os seguintes tipos de hiperlinks podem ser contados pelo código VBA acima:
=HYPERLINK(link_location,[friendly_name])Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins