Wie entferne ich Zellen oder Zeilen, wenn sie in Excel nicht fett sind?

Angenommen, Sie haben einen Datenbereich mit fettgedruckten Zellen und nicht fettgedruckten Zellen, wie im folgenden Screenshot gezeigt. Jetzt müssen Sie die Zellen oder Zeilen entfernen, wenn sie nicht fettgedruckt sind. Anstatt nicht fettgedruckte Zellen einzeln manuell zu entfernen, werden in diesem Lernprogramm die Tricks vorgestellt, mit denen Sie sie schnell in Excel lösen können.

Entfernen Sie Zeilen, wenn diese nicht mit VBA fett gedruckt sind

Entfernen Sie Zellen, wenn sie nicht mit Find and Replace und Select Range Helper fett gedruckt sind

Entfernen Sie Zeilen / Zellen, wenn diese mit Kutools for Excel nicht fett gedruckt sind

---

v Entfernen Sie Zeilen, wenn diese nicht mit VBA fett gedruckt sind

Um Zeilen zu entfernen, wenn sie nicht fett gedruckt sind, können Sie einen VBA-Code verwenden.

1. Drücken Sie F11 + Alt Tasten zum Aktivieren der Microsoft Visual Basic für Applikationen Fenster.

2 Klicken Insert > Modul, dann unter VBA-Code in den neuen eingefügt Modul Fenster.

VBA: Entfernen Sie Zeilen, wenn sie nicht fett gedruckt sind.

Sub DeleteNonBolded()
'UpdatebyKutoolsforExcel20151116
    Dim xRg As Range
    Dim xDelRg As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim I As Long
    Dim xBold As Variant
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Select a range", "Kutools for Excel", xAddress, , , , , 8)
    Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "This VBA cannot support multiple range", , "Kutools for Excel"
        Exit Sub
    End If
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xRg.Rows.Count
        xBold = xRg.Rows(I).Cells.Font.Bold
        If TypeName(xBold) = "Boolean" Then
            If xBold = False Then
                If xDelRg Is Nothing Then
                    Set xDelRg = xRg.Rows(I).EntireRow
                Else
                    Set xDelRg = Union(xRg.Rows(I).EntireRow, xDelRg)
                End If
            End If
        End If
    Next
    xDelRg.Delete
    Application.ScreenUpdating = xUpdate
End Sub

3. Drücken Sie F5 Schlüssel zum Ausführen des VBA-Codes. Beim Auftauchen Kutools for Excel Geben Sie im Dialogfeld den Bereich an, in dem Zeilen ohne Fettdruck entfernt werden sollen, und klicken Sie auf OK .

Und dann können Sie sehen, dass die Zeilen, die keine fettgedruckten Zellen enthalten, entfernt wurden

Hinweis: Die Zeilen können nur entfernt werden, wenn nicht alle Zellen in derselben Zeile fett gedruckt sind.

---

Entfernen Sie Zellen, wenn sie nicht mit Find and Replace und Select Range Helper fett gedruckt sind

Wenn Sie nur den Zelleninhalt aus nicht fettgedruckten Zellen entfernen möchten, können Sie mit der Funktion Suchen und Ersetzen zuerst die fettgedruckten Zellen auswählen und dann verwenden Kutools for Excel Wählen Sie Range Helper Um die Auswahl der nicht fettgedruckten Zellen rückgängig zu machen, entfernen Sie den Inhalt.

1. Wählen Sie den Datenbereich aus, in dem Sie nicht fettgedruckte Zellen entfernen möchten, und drücken Sie Strg + F ermöglichen Suchen und Ersetzen Dialog, und klicken Sie auf Options Taste. Siehe Screenshot:

2 Klicken Format auf dem Sprung Format suchen Dialog und unter Schriftart Registerkarte, wählen Sie BOLD von dem Schriftstil Liste. Siehe Screenshot:

3 Klicken OK > Finde alleund alle fettgedruckten Zellen sind in der Liste aufgeführt Suchen und Ersetzen Dialog und drücken Sie Strg + A. Um alle auszuwählen, schließen Sie die Suchen und Ersetzen Dialog. Siehe Screenshot:

4. Lassen Sie diese Zellen ausgewählt und klicken Sie auf Kutools > Klicken Sie (sodass dort ein Haken erscheint) auf das Rechteck neben > Wählen Sie Range Helper. Siehe Screenshot:

5. Überprüfen Sie im Popup-Dialogfeld Inverse Auswahl Wählen Sie zuerst die Option aus und wählen Sie dann den ursprünglichen Datenbereich aus. Jetzt können Sie sehen, dass die Auswahl umgekehrt ist. Siehe Screenshot:

6 Klicken Schließen. Jetzt drücken Löschen Taste zum Entfernen des Zelleninhalts aus den nicht fett gedruckten Zellen.

---

Entfernen Sie Zeilen / Zellen, wenn diese mit Kutools for Excel nicht fett gedruckt sind

Die oben genannten Methoden sind nicht einfach genug. In diesem Fall können Sie sie verwenden Kutools for Excel Wählen Sie Zellen mit Format Dienstprogramm, um nicht fettgedruckte Zellen schnell zu identifizieren und sie dann zu entfernen.

Kutools for Excel, mit mehr als 300 praktische Funktionen erleichtern Ihre Arbeit.

Free Download Kostenlos in 30 Tagen

Nachher kostenlose Installation Kutools für Excel, bitte gehen Sie wie folgt vor:

1. Wählen Sie den gewünschten Datenbereich aus und klicken Sie auf Kutools > Klicken Sie (sodass dort ein Haken erscheint) auf das Rechteck neben > Wählen Sie Zellen mit Format. Siehe Screenshot:

2. Klicken Sie im Popup-Dialogfeld auf Wählen Sie Format aus Zelle Klicken Sie auf die Schaltfläche, um eine nicht fettgedruckte Zelle aus dem Datenbereich auszuwählen, und überprüfen Sie sie BOLD nur aus der folgenden Liste im Abschnitt Schriftart. Siehe Screenshot:

3 Klicken OkKlicken Sie einfach auf, um ein Dialogfeld anzuzeigen, in dem Sie an die Anzahl der ausgewählten Zellen erinnert werden Ja um es zu schließen.

Jetzt sind alle nicht fett gedruckten Zellen ausgewählt und drücken Sie Löschen Taste zum Entfernen des Zelleninhalts. Wenn Sie die nicht fett gedruckten Zeilen entfernen möchten, klicken Sie mit der rechten Maustaste auf eine der ausgewählten Zellen und wählen Sie sie aus Löschen > Ganze Reihe. Siehe Screenshots:

  Entfernen Sie Zellen / Zeilen, wenn diese nicht fett gedruckt sind

---

Relative Artikel:

• Wie konvertiere ich Hyperlinks in Excel in einfachen Text?
• Wie kann gezählt werden, ob Zellen mit einem bestimmten Text in Excel beginnen oder mit diesem enden?
• Wie zähle und entferne ich Duplikate aus einer Liste in Excel?

---