Hur hittar jag alla understrukna texter i ett intervall eller hela kalkylblad i Excel?
Om du antar att du har en rad data i ett kalkylblad och en del av data är med understrykningar, och nu vill du ta reda på dessa data med understrykningar, hur kan du snabbt ta reda på dem? Här introducerar jag några knep för att du snabbt ska kunna ta reda på de understrukna texterna i ett intervall eller ett helt kalkylblad i Excel.
Hitta alla understrukna texter i ett kalkylblad med VBA
Hitta alla understrukna texter i ett intervall eller kalkylblad med Kutools för Excel
Hitta alla understrukna texter i ett kalkylblad med VBA
I Excel kan du inte använda funktionen Gå till special för att ta reda på de understrukna texterna, så jag introducerar en VBA-kod som hjälper dig att hitta alla understrukna texter i ett kalkylblad.
1. Tryck Alt + F11 nycklar för att öppna Microsoft Visual Basic för applikationer och klicka Insert > Modulerna.
2. I popping Modulerna fönster, klistra in under VBA-koden.
VBA: Hitta all understruken text i ett kalkylblad.
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. klick Körning knappen eller tryck på F5 nyckel. Och en dialogruta dyker upp för att välja ett intervall för att hitta understrukna texter.
4. klick OK, då kommer en dialogruta att visa dig vilka celler som är enkel understrukna texter och vilka som är dubbelt understrukna texter.
Om du bara vill ta reda på en typ av understrukna texter i ett specifikt område kan denna VBA-kod inte hjälpa dig, men du kan använda nedanstående praktiska verktyg för att lösa denna uppgift i det här fallet.
Hitta alla understrukna texter i ett intervall eller kalkylblad med Kutools för Excel
Om du har Kutools för Excel installerad kan du använda Välj celler med format verktyg för att snabbt ta reda på de understrukna texterna i en rad av ett helt kalkylblad.
Kutools för Excel, med mer än 300 praktiska funktioner, gör dina jobb enklare. |
Efter gratis installation Kutools för Excel, gör så här:
1. Välj en tom cell och skriv sedan in en data i den, till exempel A1, och klicka Hem > stryka, och välj en typ av understrykning du behöver. Se skärmdump:
2. Välj sedan intervallet du vill ta reda på de specifika understrukna texterna och klicka Kutools > Välja > Välj celler med format. Se skärmdump:
3. Och i Välj celler med format dialog, klicka Välj Format från cell för att välja cellen du formaterar med understrykning i steg 1. Se skärmdump:
4. klick OK, och i Välj celler med format dialogrutan, kontrollera stryka endast. Se skärmdump:
5. klick Ok, sedan visas en dialogruta för att påminna dig om hur många understrukna texter som är markerade, klicka Ja att stänga den.
Nu är alla understrukna texter valda.
Tips:
1. Om du vill ta reda på alla understrukna texter i ett helt kalkylblad, klicka i det vänstra hörnet av kalkylbladet för att välja hela kalkylbladet och använd sedan Välj celler med format verktyg.
2. Kolla upp Ignorera de tomma cellerna in Välj celler med format dialogrutan ignorerar den de tomma cellerna även om de tomma cellerna är formaterade med understrykning.
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!