Note: The other languages of the website are Google-translated. Back to English
Einloggen  \/ 
x
or
x
Registrieren  \/ 
x

or

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.

doc entfernen, wenn nicht fett 1

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 gute Idee3


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 .

doc entfernen, wenn nicht fett 2

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

doc entfernen, wenn nicht fett 1doc Pfeil rechtsdoc entfernen, wenn nicht fett 3

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:

doc entfernen, wenn nicht fett 4

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

doc entfernen, wenn nicht fett 5

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:

doc entfernen, wenn nicht fett 6

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:

doc entfernen, wenn nicht fett 7

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:

doc entfernen, wenn nicht fett 8

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

doc entfernen, wenn nicht fett 9


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. 

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:

doc entfernen, wenn nicht fett 15

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:

doc entfernen, wenn nicht fett 11

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.

doc entfernen, wenn nicht fett 12

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:

doc entfernen, wenn nicht fett 13doc Pfeil rechtsdoc entfernen, wenn nicht fett 14

Relative Artikel:


Die besten Tools für die Office-Produktivität

Kutools für Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.
kte tab 201905

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 täglich Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.