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 Execute 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.
Kutools for Excel, com mais de 300 funções úteis, tornam seus trabalhos mais fáceis. |
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.
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!