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

Supondo que você tenha uma série de dados em uma planilha, e alguns dos dados estejam sublinhados, e agora você queira descobrir esses dados sublinhados, como pode encontrá-los rapidamente? Aqui, apresento alguns truques para você descobrir 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 for 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 descobrir os textos sublinhados, então eu apresento um código VBA para ajudá-lo a encontrar todos os textos sublinhados em uma planilha.

1. Pressione Alt + F11 chaves para abrir Microsoft Visual Basic para Aplicações janela e clique inserção > Módulo.

2. No popping Módulo janela, cole abaixo do 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 Opere ou pressione F5 chave. E uma caixa de diálogo é exibida para selecionar um intervalo para encontrar textos sublinhados.

4. Clique OK, então uma caixa de diálogo aparecerá para informar quais células são textos com sublinhado simples e quais são textos com sublinhado duplo.

Se você deseja descobrir apenas um tipo de texto sublinhado em um intervalo específico, este código VBA não pode ajudá-lo, mas você pode usar a ferramenta útil abaixo para resolver essa tarefa neste caso.

---

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

Se você tem Kutools for Excel instalado, você pode aplicar o Selecione Células com Formato utilitário para descobrir rapidamente os textos sublinhados em uma faixa de uma planilha inteira.

Depois de instalação grátis Kutools for Excel, faça o seguinte:

1. Selecione uma célula em branco e digite os dados nela, por exemplo, A1, e clique Início > Sublinhadoe selecione o tipo de sublinhado de que você precisa. Veja a imagem:

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

3. E no Selecione Células com Formato diálogo, clique em Escolha o formato da célula para selecionar a célula que você formata com sublinhado na etapa 1. Veja a imagem:

4. Clique OK, E no Selecione Células com Formato diálogo, verificar Sublinhado só. Veja a imagem:

5. Clique Ok, então uma caixa de diálogo aparecerá para lembrá-lo de quantos textos sublinhados estão selecionados, clique Sim para fechá-lo.

Agora todos os textos sublinhados estão selecionados.

Dicas:

1. Se você quiser descobrir todos os textos sublinhados em uma planilha inteira, clique no canto esquerdo da planilha para selecionar a planilha inteira e, em seguida, aplique o Selecione Células com Formato utilidade.

2. Verifica Ignore as células em branco in Selecione Células com Formato caixa de diálogo, ele irá ignorar as células em branco, mesmo que as células em branco sejam formatadas com sublinhado.