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ń 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 Usuń 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ę. |
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 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:



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?
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-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.

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!
