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 o 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 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 Corrida 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 o Kutools para 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 para 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.

As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

• armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
• Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
• Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
• Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
• Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
• Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
• Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
• Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
• Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.

Leia mais... Download grátis... Compra... 

---

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

• Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
• Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!

Leia mais... Download grátis... Compra...