Hvordan finder jeg alle understregede tekster i et interval eller et hel regneark i Excel?
Antag at du har en række data i et regneark, og nogle af dataene er med understregning, og nu vil du finde ud af disse data med understregning, hvordan kan du hurtigt finde ud af dem? Her introducerer jeg nogle tricks til dig for hurtigt at finde ud af de understregede tekster i et interval eller et hel regneark i Excel.
Find alle understregede tekster i et regneark med VBA
Find alle understregede tekster i et interval eller regneark med Kutools til Excel
Find alle understregede tekster i et regneark med VBA
I Excel kan du ikke bruge Gå til speciel funktion til at finde ud af de understregede tekster, så jeg introducerer en VBA-kode for at hjælpe dig med at finde alle understregede tekster i et regneark.
1. Trykke Alt + F11 taster for at åbne Microsoft Visual Basic til applikationer vindue og klik indsatte > Moduler.
2. I popping Moduler vindue, indsæt under VBA-kode.
VBA: Find al understreget tekst i et regneark.
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. klik Kør knappen eller tryk på F5 nøgle. Og der vises en dialogboks for at vælge et interval for at finde understregede tekster.
4. klik OK, så vises der en dialogboks, der fortæller dig, hvilke celler der er enkelt understregede tekster, og hvilke der er dobbelt understregede tekster.
Hvis du bare vil finde ud af en type understregede tekster i et bestemt interval, kan denne VBA-kode ikke hjælpe dig, men du kan bruge nedenstående praktiske værktøj til at løse denne opgave i dette tilfælde.
Find alle understregede tekster i et interval eller regneark med Kutools til Excel
Hvis du har Kutools til Excel installeret, kan du anvende Vælg celler med format værktøj til hurtigt at finde ud af de understregede tekster i en række af et helt regneark.
Kutools til Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. |
Efter gratis installation Kutools til Excel, gør venligst som nedenfor:
1. Vælg en tom celle, og skriv derefter data i den, f.eks. A1, og klik Home > Understreget, og vælg en type understregning, du har brug for. Se skærmbillede:
2. Vælg derefter det område, du vil finde ud af de specifikke understregede tekster, og klik på Kutools > Type > Vælg celler med format. Se skærmbillede:
3. Og i Vælg celler med format dialog, klik Vælg Format fra celle for at vælge den celle, du formaterer med understregning i trin 1. Se skærmbillede:
4. klik OK, og i Vælg celler med format dialog, tjek Understreget kun. Se skærmbillede:
5. klik Ok, så vises en dialogboks for at minde dig om, hvor mange understregede tekster der er valgt, klik Ja at lukke det.
Nu er alle de understregede tekster valgt.
tips:
1. Hvis du vil finde ud af alle understregede tekster i et helt regneark, skal du klikke på venstre hjørne af regnearket for at vælge hele regnearket og derefter anvende Vælg celler med format nytte.
2. Kontrollere Ignorer de tomme celler in Vælg celler med format dialog, ignorerer det de tomme celler, selvom de tomme celler er formateret med understregning.
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!