Як знайти всі підкреслені тексти в діапазоні або на цілому аркуші в Excel?
Припустимо, у вас є ряд даних на робочому аркуші, і деякі дані мають підкреслення, і тепер ви хочете дізнатися ці дані з підкресленням, як ви можете швидко їх дізнатись? Тут я представляю декілька прийомів для швидкого з’ясування підкреслених текстів у діапазоні чи цілому аркуші в Excel.
Знайдіть усі підкреслені тексти на аркуші з VBA
Знайдіть усі підкреслені тексти в діапазоні чи аркуші за допомогою Kutools для Excel 
Знайдіть усі підкреслені тексти на аркуші з VBA
В Excel ви не можете скористатися спеціальною функцією "Перейти до", щоб дізнатися підкреслені тексти, тому я представляю код VBA, який допоможе вам знайти всі підкреслені тексти на робочому аркуші.
1. прес Alt + F11 клавіші, щоб відкрити Microsoft Visual Basic для додатків вікно та натисніть Insert > Модулі.
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. клацання OK, тоді з’явиться діалогове вікно із повідомленням про те, які клітинки є окремими підкресленими текстами, а які - подвійним підкресленням.
Якщо ви просто хочете дізнатися про один тип підкреслених текстів у певному діапазоні, цей код VBA не може вам допомогти, але ви можете скористатися зручним інструментом нижче, щоб вирішити це завдання в цьому випадку.
Знайдіть усі підкреслені тексти в діапазоні чи аркуші за допомогою Kutools для Excel
Якщо у вас є Kutools для Excel встановлений, ви можете застосувати Виберіть Клітини з форматом утиліта для швидкого пошуку підкреслених текстів у цілому ряді робочого аркуша.
| Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. |
після безкоштовна установка Kutools для Excel, виконайте наведені нижче дії.
1. Виділіть порожню комірку, а потім введіть у неї дані, наприклад, А1, та натисніть Головна > Підкресленнята виберіть потрібний тип підкреслення. Дивіться знімок екрана:
2. Потім виберіть діапазон, який ви хочете дізнатись про окремі підкреслені тексти, та натисніть Кутулс > Select > Виберіть Клітини з форматом. Дивіться знімок екрана:
3. І в Виберіть Клітини з форматом діалог, клацніть Виберіть Формат із комірки щоб вибрати клітинку, яку ви форматуєте з підкресленням на кроці 1. Дивіться знімок екрана:
4. клацання OK, і в Виберіть Клітини з форматом діалогове вікно, перевірте Підкреслення тільки. Дивіться знімок екрана:
5. клацання Ok, потім з’явиться діалогове вікно, щоб нагадати, скільки підкреслених текстів вибрано, клацніть Так закрити його.
Тепер виділено всі підкреслені тексти.
Порада:
1. Якщо ви хочете дізнатись усі підкреслені тексти на цілому аркуші, клацніть лівий кут аркуша, щоб вибрати весь аркуш, а потім застосуйте Виберіть Клітини з форматом утиліта
2. перевірити Ігноруйте порожні клітинки in Виберіть Клітини з форматом діалогове вікно проігнорує порожні комірки, навіть якщо порожні комірки відформатовані підкресленням.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
