Como encontrar todos os textos sublinhados em um intervalo ou planilha inteira no Excel?

Suponha que você tenha um intervalo de dados em uma planilha, e alguns desses dados estão sublinhados, e agora você deseja identificar esses dados sublinhados. Como você pode encontrá-los rapidamente? Aqui eu apresento alguns truques para ajudá-lo a encontrar rapidamente os textos sublinhados em um intervalo ou planilha inteira no Excel.

Encontre todos os textos sublinhados em uma planilha com VBA

Encontre todos os textos sublinhados em um intervalo ou planilha com Kutools para Excel

Encontre todos os textos sublinhados em uma planilha com VBA

No Excel, você não pode usar a função Ir para Especial para encontrar textos sublinhados, então apresento um código VBA para ajudá-lo a encontrar todos os textos sublinhados em uma planilha.

1. Pressione as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications e clique em Inserir > Módulo.

2. Na janela Módulo que aparece, cole o seguinte código VBA.

VBA: Encontre todo o texto sublinhado em uma planilha.

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 Sub

3. Clique no botão Executar ou pressione a tecla F5. Um diálogo aparecerá para selecionar um intervalo onde procurar textos sublinhados.

4. Clique em OK, depois um diálogo aparecerá informando quais células contêm textos sublinhados simples e quais contêm textos sublinhados duplos.

Se você quiser encontrar apenas um tipo específico de texto sublinhado em um intervalo específico, este código VBA não poderá ajudá-lo, mas você pode usar a ferramenta prática abaixo para resolver essa tarefa nesse caso.

Encontre todos os textos sublinhados em um intervalo ou planilha com Kutools para Excel

Se você tiver o Kutools para Excel instalado, pode aplicar o utilitário Selecionar Células com Formato para encontrar rapidamente os textos sublinhados em um intervalo ou planilha inteira.

Após instalar gratuitamente o Kutools para Excel, faça o seguinte:

1. Selecione uma célula em branco, digite um dado nela, por exemplo, A1, e clique em Página Inicial > Sublinhado, e selecione o tipo de sublinhado desejado. Veja a captura de tela:

2. Em seguida, selecione o intervalo onde deseja encontrar os textos sublinhados específicos e clique em Kutools > Selecionar > Selecionar Células com Formato. Veja a captura de tela:

3. E na caixa de diálogo Selecionar Células com Formato, clique em Selecionar Formato a Partir da Célula para selecionar a célula formatada com sublinhado na etapa 1. Veja a captura de tela:

4. Clique em OK, e na caixa de diálogo Selecionar Células com Formato, marque apenas Sublinhado. Veja a captura de tela:

5. Clique em Ok, e uma caixa de diálogo aparecerá informando quantos textos sublinhados foram selecionados; clique em Sim para fechá-la.

Agora, todos os textos sublinhados estão selecionados.

Dicas:

1. Se você deseja encontrar todos os textos sublinhados em uma planilha inteira, clique no canto superior esquerdo da planilha para selecionar toda a planilha e, em seguida, aplique o utilitário Selecionar Células com Formato.

2. Marque Ignorar células em branco na caixa de diálogo Selecionar Células com Formato, isso fará com que as células em branco sejam ignoradas, mesmo que estejam formatadas com sublinhado.