Как да намеря всички подчертани текстове в диапазон или цял работен лист в Excel?
Да предположим, че имате набор от данни в работен лист и някои от данните са с подчертаване и сега искате да намерите тези данни с подчертаване, как можете бързо да ги намерите? Тук представям някои трикове за бързо намиране на подчертаните текстове в диапазон или цял работен лист в Excel.
Намерете всички подчертани текстове в работен лист с VBA
Намерете всички подчертани текстове в диапазон или работен лист с Kutools за Excel
Намерете всички подчертани текстове в работен лист с VBA
В Excel не можете да използвате функцията Go To Special, за да откриете подчертаните текстове, затова въвеждам 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. кликване бягане бутон или натиснете F5 ключ. И се появява диалогов прозорец за избор на диапазон за намиране на подчертани текстове.
4. кликване OK, тогава ще изскочи диалогов прозорец, за да ви каже кои клетки са единични подчертани текстове и кои са двойно подчертани текстове.
Ако просто искате да откриете един тип подчертани текстове в определен диапазон, този VBA код не може да ви помогне, но можете да използвате удобния инструмент по-долу, за да разрешите тази задача в този случай.
Намерете всички подчертани текстове в диапазон или работен лист с Kutools за Excel
Ако имате Kutools за Excel инсталиран, можете да приложите Изберете Клетки с формат помощна програма за бързо намиране на подчертаните текстове в диапазон от цял работен лист.
Kutools за Excel, с повече от 300 удобни функции, прави работата ви по-лесна. |
След безплатно инсталиране Kutools за Excel, моля, направете следното:
1. Изберете празна клетка и след това въведете данни в нея, например A1, и щракнете Начало > Подчертавами изберете тип подчертаване, от което се нуждаете. Вижте екранна снимка:
2. След това изберете диапазона, в който искате да откриете конкретните подчертани текстове, и щракнете Kutools > Изберете > Изберете Клетки с формат. Вижте екранна снимка:
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% и намалява стотици кликвания на мишката за вас всеки ден!