Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

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

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

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


Выберите конкретные ячейки (выберите ячейки / строку / столбцы на основе одного или двух критериев).

doc выбирать определенные ячейки
Вкладка «Office» Включите редактирование и просмотр с вкладками в Office и упростите свою работу ...
Kutools для Excel добавляет расширенные функции 300 в Excel и повышает производительность на 80%
  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Kutools работает с Office 2007-2019 и 365. Он поддерживает все языки и очень прост в установке и развертывании. Полнофункциональная 60-дневная бесплатная пробная версия.

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


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

Kutools for Excel, с более чем 120 удобные функции Excel, повысить эффективность работы и сэкономить рабочее время.

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. Нажмите прогон или нажмите F5 ключ. И появляется диалоговое окно для выбора диапазона для поиска подчеркнутых текстов.

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

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

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

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


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

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

Kutools for Excel, с более чем 120 удобные функции Excel, повысить эффективность работы и сэкономить рабочее время.

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

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

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

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

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

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

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

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

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

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

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

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

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

Советы:

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

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

обратите внимание1Если вы заинтересованы в этом дополнении, нажмите здесь, чтобы загрузить пробную версию 60-дней.

Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905

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

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.