Как найти весь подчеркнутый текст в заданном диапазоне или на всем листе в Excel?
Предположим, у вас есть диапазон данных на листе, и часть этих данных подчеркнута. Теперь вы хотите найти все подчеркнутые данные. Как быстро это сделать? Ниже приведены несколько способов, которые помогут вам быстро найти подчеркнутый текст в диапазоне или на всем листе в Excel.
Поиск всего подчеркнутого текста на листе с помощью VBA
Поиск всего подчеркнутого текста в диапазоне или на листе с помощью Kutools для Excel 
Поиск всего подчеркнутого текста на листе с помощью VBA
В Excel с помощью функции «Перейти к» → «Выделить» нельзя найти подчеркнутый текст, поэтому я предлагаю воспользоваться кодом VBA, который поможет быстро выделить весь подчеркнутый текст на листе.
1. Нажмите Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений, затем выберите Вставка > Модуль.
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 Sub3. Нажмите кнопку Выполнить или клавишу F5. Появится диалоговое окно для выбора диапазона, в котором нужно найти подчёркнутый текст.
4. После нажатия на ОК появится диалоговое окно с информацией о ячейках, содержащих одинарное или двойное подчеркивание.
Если вам нужно найти только один тип подчёркнутого текста в заданном диапазоне, этот код VBA не подойдёт. В таком случае воспользуйтесь удобным инструментом, описанным ниже.
Поиск всего подчеркнутого текста в диапазоне или на листе с помощью Kutools для Excel
Если у вас установлен Kutools для Excel, вы можете воспользоваться утилитой Выбрать ячейки с похожим форматом, чтобы быстро найти подчеркнутый текст в диапазоне или на всем листе.
После бесплатной установкиKutools для Excel выполните следующие действия:
1. Выберите пустую ячейку, например A1, введите в неё любые данные, перейдите на вкладку Главная → Подчеркивание и выберите нужный тип подчёркивания. См. снимок экрана:
2. Затем выделите диапазон, в котором нужно найти подчеркнутый текст указанного типа, и нажмите Kutools > Выделить > Выбрать ячейки с похожим форматом. См. снимок экрана:
3. В диалоговом окне Выбрать ячейки с похожим форматом нажмите Выбрать формат от ячейки, чтобы выбрать ячейку, отформатированную подчеркиванием на шаге 1. См. снимок экрана:
4. Нажмите ОК, а в диалоговом окне Выбрать ячейки с похожим форматом установите флажок Подчеркивание только. См. снимок экрана:
5. Нажмите ОК, после чего появится диалоговое окно с количеством найденных подчёркнутых фрагментов. Нажмите Да, чтобы закрыть его.
Теперь весь подчёркнутый текст выделен.
Советы:
1. Чтобы найти весь подчеркнутый текст на листе, щелкните в левом верхнем углу листа, чтобы выделить его целиком, а затем воспользуйтесь утилитой Выбрать ячейки с похожим форматом.
2. Установите флажок Игнорировать пустые ячейки в диалоговом окне Выбрать ячейки с похожим форматом, чтобы учитывались даже пустые ячейки, отформатированные подчеркиванием.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек