Jak usunąć komórki lub wiersze, jeśli nie są pogrubione w programie Excel?

Przypuśćmy, że masz zakres danych z pogrubionymi komórkami, a nie pogrubionymi komórkami, jak pokazano na poniższym zrzucie ekranu, teraz potrzebujesz usunąć komórki lub wiersze, jeśli nie są pogrubione. Zamiast ręcznie usuwać niepogrubione komórki jeden po drugim, ten samouczek przedstawia sztuczki umożliwiające szybkie rozwiązanie tego problemu w programie Excel.

Usuń wiersze, jeśli nie są pogrubione za pomocą VBA

Usuń komórki, jeśli nie są pogrubione, za pomocą funkcji Znajdź i zamień oraz wybierz pomocnika zakresu

Usuń wiersze / komórki, jeśli nie są pogrubione za pomocą Kutools for Excel

---

v Usuń wiersze, jeśli nie są pogrubione za pomocą VBA

Aby usunąć wiersze, jeśli nie są pogrubione, możesz użyć kodu VBA do obsługi.

1. naciśnij F11 + Alt klawisze, aby włączyć Microsoft Visual Basic for Applications okno.

2. kliknij wstawka > Moduł, a następnie wklejony poniżej kod VBA do nowego Moduł okno.

VBA: Usuń wiersze, jeśli nie są pogrubione.

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. naciśnij F5 klucz do uruchomienia kodu VBA. W wyskakującym okienku Kutools dla programu Excel W oknie dialogowym określ zakres, w którym usuniesz wiersze bez pogrubionych komórek, i kliknij OK przycisk.

Następnie możesz zobaczyć, że wiersze, które nie zawierają pogrubionych komórek, zostały usunięte

Uwaga: wiersze można usunąć tylko wtedy, gdy wszystkie komórki w tym samym wierszu nie są pogrubione.

---

Usuń komórki, jeśli nie są pogrubione, za pomocą funkcji Znajdź i zamień oraz wybierz pomocnika zakresu

Jeśli chcesz tylko usunąć zawartość komórki z niepogrubionych komórek, możesz użyć funkcji Znajdź i zamień, aby najpierw zaznaczyć pogrubione komórki, a następnie użyj Kutools dla programu Excel'S Wybierz Asystenta zasięgu aby odwrócić zaznaczenie niepogrubionych komórek, a następnie usuń zawartość.

1. Wybierz zakres danych, z którego chcesz usunąć niepogrubione komórki i naciśnij Ctrl + F umożliwić Znajdowanie i zamienianie i kliknij Opcje przycisk. Zobacz zrzut ekranu:

2. kliknij utworzony , aby przejść do Znajdź format okno dialogowe i pod chrzcielnica kartę, wybierz Pogrubienie z Styl czcionki lista. Zobacz zrzut ekranu:

3. kliknij OK > Znajdź wszystko, a wszystkie pogrubione komórki są wymienione w Znajdowanie i zamienianie okno dialogowe i naciśnij Ctrl + A , aby wybrać je wszystkie, a następnie zamknij Znajdowanie i zamienianie dialog. Zobacz zrzut ekranu:

4. Następnie zaznacz te komórki i kliknij Kutools > Wybierz > Wybierz Asystenta zasięgu. Zobacz zrzut ekranu:

5. W wyświetlanym oknie dialogowym zaznacz Odwrotny wybór najpierw opcję, a następnie wybierz oryginalny zakres danych. Teraz możesz zobaczyć, że wybór został odwrócony. Zobacz zrzut ekranu:

6. kliknij blisko. Teraz naciśnij Kasować klawisz, aby usunąć zawartość komórki z niepogrubionych komórek.

---

Usuń wiersze / komórki, jeśli nie są pogrubione za pomocą Kutools for Excel

Powyższe metody nie są wystarczająco łatwe, w tym przypadku możesz użyć Kutools dla programu Excel'S Wybierz komórki z formatem narzędzie do szybkiego identyfikowania niepogrubionych komórek, a następnie ich usuwania.

Kutools dla programu Excel, ponad 300 przydatne funkcje, ułatwiają pracę.

Darmowe pobieranie bezpłatnie w pełni funkcjonalny w 30 dni

Po bezpłatna instalacja Kutools dla programu Excel, wykonaj poniższe czynności:

1. Wybierz wymagany zakres danych i kliknij Kutools > Wybierz > Wybierz komórki z formatem. Zobacz zrzut ekranu:

2. W wyświetlonym oknie dialogowym kliknij Wybierz Format z komórki , aby wybrać jedną niepogrubioną komórkę z zakresu danych, a następnie zaznacz Pogrubienie tylko z poniższej listy w sekcji Czcionka. Zobacz zrzut ekranu:

3. kliknij Oki pojawi się okno dialogowe przypominające o liczbie zaznaczonych komórek, po prostu kliknij tak zamknąć to.

Teraz wszystkie niepogrubione komórki są zaznaczone i naciśnij Kasować klucz, aby usunąć zawartość komórki. Lub jeśli chcesz usunąć niepogrubione wiersze, kliknij prawym przyciskiem myszy dowolną z wybranych komórek i wybierz Kasować > Cały rząd. Zobacz zrzuty ekranu:

  Usuń komórki / wiersze, jeśli nie są pogrubione

---

Względne artykuły:

• Jak przekonwertować hiperłącza na zwykły tekst w programie Excel?
• Jak policzyć, czy komórki zaczynają się lub kończą określonym tekstem w programie Excel?
• Jak liczyć i usuwać duplikaty z listy w programie Excel?

---