Przejdź do głównej zawartości

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 Zamknij. Teraz naciśnij Usuń 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.

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 Usuń klucz, aby usunąć zawartość komórki. Lub jeśli chcesz usunąć niepogrubione wiersze, kliknij prawym przyciskiem myszy dowolną z wybranych komórek i wybierz Usuń > 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

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas.  Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...

Opis


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ęć myszką każdego dnia!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations