Como localizar todos os textos sublinhados num intervalo ou numa folha de cálculo inteira no Excel?
Suponha que tem um intervalo de dados numa folha de cálculo e que alguns desses elementos estão sublinhados. Pretende identificá-los rapidamente? Apresentamos-lhe alguns truques eficazes para localizar células com texto sublinhado — quer num intervalo específico, quer em toda a folha de cálculo no Excel.
Localizar todos os textos sublinhados numa folha de cálculo com VBA
Localizar todos os textos sublinhados num intervalo ou numa folha de cálculo com Kutools para Excel 
Localizar todos os textos sublinhados numa folha de cálculo com VBA
No Excel, não é possível usar a função «Ir Para Especial» para localizar texto sublinhado, por isso partilho consigo um código VBA que o ajuda a encontrar todo o texto sublinhado numa folha de cálculo.
1. Prima Alt + F11 para abrir a janela Microsoft Visual Basic for Applications e clique em Inserir > Módulo.
2. Na janela Módulo que surge, cole o seguinte código VBA.
VBA: Localize todos os textos sublinhados numa folha de cálculo.
Sub SearchForUnderline()
'Updateby20150910
Dim Rg As Range, Rg1 As Range
Dim I As Long
Dim xAddress As String, xAddress1 As String, xAddress2 As String
Dim Result As String
On Error Resume Next
xAddress = Application.ActiveWindow.RangeSelection.Address
Set Rg = Application.InputBox("Please select a range:", "Kutools for Excel", xAddress, , , , , 8)
If Rg Is Nothing Then Exit Sub
Set Rg = Application.Intersect(Rg, Application.ActiveSheet.UsedRange)
If Rg Is Nothing Then Exit Sub
Set Rg = Rg.SpecialCells(xlCellTypeConstants)
If Rg Is Nothing Then Exit Sub
For Each Rg1 In Rg
For I = 1 To Len(Rg1)
If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleSingle Then
If xAddress1 = "" Then
xAddress1 = Rg1.Address
Else
xAddress1 = xAddress1 & ", " & Rg1.Address
End If
Exit For
End If
Next
For I = 1 To Len(Rg1)
If Rg1.Characters(I, 1).Font.Underline = xlUnderlineStyleDouble Then
If xAddress2 = "" Then
xAddress2 = Rg1.Address
Else
xAddress2 = xAddress2 & ", " & Rg1.Address
End If
Exit For
End If
Next
Next
If xAddress1 <> "" Then Result = "Single underline address:" & vbCr & xAddress1 & vbCr & vbCr
If xAddress2 <> "" Then Result = Result & "Double underline address:" & vbCr & xAddress2
If Result <> "" Then MsgBox Result
End Sub3. Clique no botão Executar ou prima a tecla F5. Surgirá uma caixa de diálogo para selecionar um intervalo onde procurar textos sublinhados.
4. Clique em OK e, de seguida, aparecerá uma caixa de diálogo a indicar quais as células com texto sublinhado simples e quais as que têm sublinhado duplo.
Se pretender localizar apenas um tipo específico de texto sublinhado num determinado intervalo, este código VBA não será útil — mas pode resolver facilmente essa tarefa com a ferramenta prática abaixo.
Localizar todos os textos sublinhados num intervalo ou numa folha de cálculo com Kutools para Excel
Se tiver o Kutools para Excel instalado, pode utilizar a funcionalidade Selecionar células com formato semelhante para localizar rapidamente textos sublinhados num intervalo ou numa folha de cálculo inteira.
Após instalar gratuitamenteKutools para Excel, proceda da seguinte forma:
1. Selecione uma célula vazia, introduza nela um dado (por exemplo, A1) e clique em Início > Sublinhado, depois escolha o tipo de sublinhado pretendido. Veja a imagem:
2. Em seguida, selecione o intervalo onde pretende localizar os textos sublinhados específicos e clique em Kutools > Selecionar > Selecionar células com formato semelhante. Veja a imagem:
3. Na caixa de diálogo Selecionar células com formato semelhante, clique em Selecionar formato a partir da célula para selecionar a célula que formatou com sublinhado no passo 1. Veja a imagem:
4. Clique em OK e, na caixa de diálogo Selecionar células com formato semelhante, ative apenas a opção Sublinhado. Veja a imagem:
5. Clique em Ok e, de seguida, surgirá uma caixa de diálogo a indicar quantos textos sublinhados foram selecionados; clique em Sim para fechá-la.
Agora, todos os textos sublinhados estão selecionados.
Dicas:
1. Se pretender localizar todos os textos sublinhados numa folha de cálculo inteira, clique no canto superior esquerdo da folha para selecionar toda a folha e, em seguida, aplique a utilidade Selecionar células com formato semelhante.
2. Ative a opção Ignorar células vazias na caixa de diálogo Selecionar células com formato semelhante, para incluir também as células vazias formatadas com sublinhado.
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos