Как найти все подчеркнутые тексты в диапазоне или во всем листе Excel?

Предположим, у вас есть диапазон данных на листе, и некоторые из этих данных подчеркнуты, и теперь вы хотите найти эти подчеркнутые данные. Как это сделать быстро? Здесь я представлю несколько приемов, которые помогут вам быстро найти подчеркнутые тексты в диапазоне или во всем листе Excel.

Найти все подчеркнутые тексты на листе с помощью VBA

Найти все подчеркнутые тексты в диапазоне или на листе с помощью Kutools для Excel

Найти все подчеркнутые тексты на листе с помощью VBA

В Excel вы не можете использовать функцию «Перейти к специальным ячейкам», чтобы найти подчеркнутые тексты, поэтому я предлагаю код VBA, который поможет вам найти все подчеркнутые тексты на листе.

1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications, и нажмите Вставить > Модуль.

2. В появившемся окне Модуля вставьте следующий код VBA.

VBA: Найти все подчеркнутые тексты на листе.

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. Нажмите кнопку Выполнить или клавишу F5. Появится диалоговое окно для выбора диапазона, где нужно найти подчеркнутые тексты.

4. Нажмите OK, затем появится диалоговое окно, которое сообщит вам, какие ячейки содержат одинарное подчеркивание, а какие — двойное.

Если вы хотите найти только один тип подчеркнутых текстов в определенном диапазоне, этот код VBA не поможет, но вы можете использовать следующий удобный инструмент для выполнения этой задачи.

Найти все подчеркнутые тексты в диапазоне или на листе с помощью Kutools для Excel

Если у вас установлен Kutools для Excel, вы можете применить утилиту Выбрать ячейки с форматом, чтобы быстро найти подчеркнутые тексты в диапазоне или на всем листе.

После бесплатной установки Kutools для Excel сделайте следующее:

1. Выберите пустую ячейку, затем введите в нее данные, например, A1, и нажмите Главная > Подчеркнутый, и выберите нужный тип подчеркивания. См. скриншот:

2. Затем выберите диапазон, в котором вы хотите найти конкретные подчеркнутые тексты, и нажмите Kutools > Выбрать > Выбрать ячейки с форматом. См. скриншот:

3. В диалоговом окне Выбрать ячейки с форматом нажмите Выбрать формат от ячейки, чтобы выбрать ячейку, которую вы отформатировали подчеркиванием на шаге 1. См. скриншот:

4. Нажмите OK, и в диалоговом окне Выбрать ячейки с форматом отметьте только Подчеркнутый. См. скриншот:

5. Нажмите Ok, затем появится диалоговое окно, которое сообщит вам, сколько подчеркнутых текстов было выбрано, нажмите Да, чтобы закрыть его.

Теперь все подчеркнутые тексты выбраны.

Советы:

1. Если вы хотите найти все подчеркнутые тексты на всем листе, нажмите на левый угол листа, чтобы выбрать весь лист, а затем примените утилиту Выбрать ячейки с форматом.

2. Отметьте Игнорировать пустые ячейки в диалоговом окне Выбрать ячейки с форматом, и оно будет игнорировать пустые ячейки, даже если они отформатированы подчеркиванием.