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.
Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. |
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.
As melhores ferramentas de produtividade para escritório
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-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.

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!
