Note: The other languages of the website are Google-translated. Back to English
Zaloguj Się  \/ 
x
or
x
Zarejestruj się  \/ 
x

or

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.

doc usuń, jeśli nie jest pogrubiony 1

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 dobry pomysł 3


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.

doc usuń, jeśli nie jest pogrubiony 2

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

doc usuń, jeśli nie jest pogrubiony 1strzałka doc w prawodoc usuń, jeśli nie jest pogrubiony 3

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:

doc usuń, jeśli nie jest pogrubiony 4

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

doc usuń, jeśli nie jest pogrubiony 5

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:

doc usuń, jeśli nie jest pogrubiony 6

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

doc usuń, jeśli nie jest pogrubiony 7

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:

doc usuń, jeśli nie jest pogrubiony 8

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

doc usuń, jeśli nie jest pogrubiony 9


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ę. 

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:

doc usuń, jeśli nie jest pogrubiony 15

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:

doc usuń, jeśli nie jest pogrubiony 11

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

doc usuń, jeśli nie jest pogrubiony 12

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:

doc usuń, jeśli nie jest pogrubiony 13strzałka doc w prawodoc usuń, jeśli nie jest pogrubiony 14

Względne artykuły:


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2019 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowy bezpłatny okres próbny. 60-dniowa gwarancja zwrotu pieniędzy.
kte tab 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszą każdego dnia!
officetab dół
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.