Hoe vind ik alle onderstreepte teksten in een bereik of een heel werkblad in Excel?
Stel dat u een reeks gegevens in een werkblad heeft en sommige gegevens zijn onderstreept, en nu wilt u deze gegevens onderstrepen, hoe kunt u ze dan snel achterhalen? Hier introduceer ik enkele trucs om snel de onderstreepte teksten in een bereik of een heel werkblad in Excel te vinden.
Vind alle onderstreepte teksten in een werkblad met VBA
Vind alle onderstreepte teksten in een bereik of werkblad met Kutools voor Excel
Vind alle onderstreepte teksten in een werkblad met VBA
In Excel kun je de functie Ga naar speciaal niet gebruiken om de onderstreepte teksten te achterhalen, dus introduceer ik een VBA-code om je te helpen alle onderstreepte teksten in een werkblad te vinden.
1. druk op Alt + F11 sleutels om te openen Microsoft Visual Basic voor toepassingen venster en klik Invoegen > Module.
2. In het knallen Module venster, plak onder VBA-code.
VBA: vind alle onderstreepte tekst in een werkblad.
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. klikken lopen knop of druk op F5 sleutel. En er verschijnt een dialoogvenster om een bereik te selecteren om onderstreepte teksten te vinden.
4. klikken OK, dan verschijnt er een dialoogvenster om u te vertellen welke cellen enkelvoudige onderstreepte teksten zijn en welke dubbel onderstreepte teksten.
Als u slechts één type onderstreepte tekst in een specifiek bereik wilt weten, kan deze VBA-code u niet helpen, maar u kunt onderstaande handige tool gebruiken om deze taak in dit geval op te lossen.
Vind alle onderstreepte teksten in een bereik of werkblad met Kutools voor Excel
Als je Kutools for Excel geïnstalleerd, kunt u het Selecteer Cellen met indeling hulpprogramma om snel de onderstreepte teksten in een bereik van een heel werkblad te vinden.
Kutools for Excel, met meer dan 300 handige functies, maakt uw werk eenvoudiger. |
Na gratis installeren Kutools voor Excel, doe het als volgt:
1. Selecteer een lege cel en typ er vervolgens gegevens in, bijvoorbeeld A1, en klik op Home > onderstrepenen selecteer een type onderstreping dat u nodig hebt. Zie screenshot:
2. Selecteer vervolgens het bereik waarvan u de specifieke onderstreepte teksten wilt weten, en klik op Kutools > kies > Selecteer Cellen met indeling. Zie screenshot:
3. En in de Selecteer Cellen met indeling dialoogvenster, klik Kies Opmaak vanuit cel om de cel te selecteren die u in stap1 onderstreept. Zie screenshot:
4. klikken OK, en in de Selecteer Cellen met indeling dialoogvenster, vink aan onderstrepen enkel en alleen. Zie screenshot:
5. klikken Ok, dan verschijnt er een dialoogvenster om u eraan te herinneren hoeveel onderstreepte teksten zijn geselecteerd, klik op Ja om het te sluiten.
Nu zijn alle onderstreepte teksten geselecteerd.
Tips:
1. Als u alle onderstreepte teksten in een heel werkblad wilt weten, klikt u in de linkerhoek van het werkblad om het hele werkblad te selecteren en past u de Selecteer Cellen met indeling utility.
2. Controleren Negeer de lege cellen in Selecteer Cellen met indeling dialoogvenster, zal het de lege cellen negeren, ook al zijn de lege cellen onderstreept.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!