Wie finde ich alle unterstrichenen Texte in einem Bereich oder einem ganzen Arbeitsblatt in Excel?
Angenommen, Sie haben eine Reihe von Daten in einem Arbeitsblatt, und einige der Daten sind unterstrichen, und jetzt möchten Sie diese Daten unterstrichen herausfinden. Wie können Sie sie schnell herausfinden? Hier stelle ich Ihnen einige Tricks vor, mit denen Sie die unterstrichenen Texte in einem Bereich oder einem ganzen Arbeitsblatt in Excel schnell herausfinden können.
Finden Sie alle unterstrichenen Texte in einem Arbeitsblatt mit VBA
Finden Sie mit Kutools for Excel alle unterstrichenen Texte in einem Bereich oder Arbeitsblatt
Finden Sie alle unterstrichenen Texte in einem Arbeitsblatt mit VBA
In Excel können Sie die Funktion "Gehe zu Spezial" nicht verwenden, um die unterstrichenen Texte herauszufinden. Daher führe ich einen VBA-Code ein, mit dem Sie alle unterstrichenen Texte in einem Arbeitsblatt finden können.
1. Drücken Sie Alt + F11 Schlüssel zum Öffnen Microsoft Visual Basic für Applikationen Fenster, und klicken Sie auf Insert > Modul.
2. Im Knallen Modul Fenster, unter VBA-Code einfügen.
VBA: Finden Sie den gesamten unterstrichenen Text in einem Arbeitsblatt.
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 Klicken Führen Sie Taste oder drücken F5 Schlüssel. Ein Dialogfeld zur Auswahl eines Bereichs zum Suchen unterstrichener Texte wird angezeigt.
4 Klicken OKAnschließend wird ein Dialogfeld angezeigt, in dem Sie erfahren, welche Zellen einfach unterstrichene und welche doppelt unterstrichene Texte sind.
Wenn Sie nur einen Typ von unterstrichenen Texten in einem bestimmten Bereich herausfinden möchten, kann Ihnen dieser VBA-Code nicht helfen, aber Sie können das folgende praktische Tool verwenden, um diese Aufgabe in diesem Fall zu lösen.
Finden Sie mit Kutools for Excel alle unterstrichenen Texte in einem Bereich oder Arbeitsblatt
Wenn Sie Kutools for Excel installiert, können Sie die anwenden Wählen Sie Zellen mit Format Dienstprogramm, um die unterstrichenen Texte in einem Bereich eines ganzen Arbeitsblatts schnell herauszufinden.
Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit. |
Nach der kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:
1. Wählen Sie eine leere Zelle aus, geben Sie Daten ein, z. B. A1, und klicken Sie auf Home > unterstreichenund wählen Sie einen Unterstreichungstyp aus, den Sie benötigen. Siehe Screenshot:
2. Wählen Sie dann den Bereich aus, in dem Sie die spezifischen unterstrichenen Texte herausfinden möchten, und klicken Sie auf Kutoolen > Auswählen > Wählen Sie Zellen mit Format. Siehe Screenshot:
3. Und in der Wählen Sie Zellen mit Format Dialog, klicken Sie auf Wählen Sie Format aus Zelle um die Zelle auszuwählen, die Sie in Schritt 1 mit Unterstreichung formatieren. Siehe Screenshot:
4 Klicken OK, und in der Wählen Sie Zellen mit Format Dialog, überprüfen unterstreichen nur. Siehe Screenshot:
5 Klicken OkKlicken Sie auf ein Dialogfeld, um Sie daran zu erinnern, wie viele unterstrichene Texte ausgewählt sind. Klicken Sie auf Ja um es zu schließen.
Jetzt sind alle unterstrichenen Texte ausgewählt.
Tipps:
1. Wenn Sie alle unterstrichenen Texte in einem gesamten Arbeitsblatt herausfinden möchten, klicken Sie auf die linke Ecke des Arbeitsblatts, um das gesamte Arbeitsblatt auszuwählen, und wenden Sie dann das an Wählen Sie Zellen mit Format Dienstprogramm.
2. Prüfen Ignorieren Sie die leeren Zellen in Wählen Sie Zellen mit Format Im Dialogfeld werden die leeren Zellen ignoriert, obwohl die leeren Zellen mit Unterstreichung formatiert sind.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!