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 Zamknij. 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
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...
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!