Перейти к основному содержанию

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

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

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

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


стрелка синий правый пузырь Найдите все подчеркнутые тексты на листе с 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 Sub

3. Нажмите Run или нажмите F5 ключ. Появится диалоговое окно для выбора диапазона для поиска подчеркнутых текстов.

док найти подчеркнутый текст 1

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

док найти подчеркнутый текст 2

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


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

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

Kutools for Excel, с более чем 300 удобные функции, облегчающие вашу работу. 

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

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

док найти подчеркнутый текст 3

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

док найти подчеркнутый текст 4

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

док найти подчеркнутый текст 5
док найти подчеркнутый текст 6

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

док найти подчеркнутый текст 7

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

док найти подчеркнутый текст 8

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

док найти подчеркнутый текст 9

Советы:

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

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

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations