Jak usunąć lub usunąć wszystkie przekreślone teksty lub znaki z komórek w programie Excel?
W tym artykule mowa o usunięciu wszystkich przekreślonych tekstów lub znaków z wielu komórek w programie Excel.
Usuń wszystkie przekreślone teksty z komórek za pomocą kodu VBA
Usuń wszystkie przekreślone teksty z komórek za pomocą kodu VBA
Poniższy kod VBA może pomóc w usunięciu wszystkich tekstów w komórkach, które zostały oznaczone przekreśleniem. Wykonaj następujące czynności.
1. W arkuszu zawierającym przekreślone teksty, które należy usunąć, naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications kliknij Wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do okna Code.
Kod VBA: Usuń wszystkie przekreślone teksty z komórek
Sub DelStrikethroughText()
Dim xRg As Range, xCell As Range
Dim xStr As String
Dim I As Long
On Error Resume Next
Set xRg = Application.InputBox("Please select range:", "KuTools For Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = Fase
For Each xCell In xRg
If IsNumeric(xCell.Value) And xCell.Font.Strikethrough Then
xCell.Value = ""
ElseIf Not IsNumeric(xCell.Value) Then
For I = 1 To Len(xCell)
With xCell.Characters(I, 1)
If Not .Font.Strikethrough Then
xStr = xStr & .Text
End If
End With
Next
xCell.Value = xStr
xStr = ""
End If
Next
Application.ScreenUpdating = True
End Sub
3. wciśnij F5 lub kliknij run przycisk, aby uruchomić kod. W wyskakującym okienku Kutools dla programu Excel W oknie dialogowym wybierz zakres zawierający przekreślone teksty, które chcesz usunąć, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:
Następnie wszystkie teksty oznaczone przekreśleniem są natychmiast usuwane z komórek, jak pokazano poniżej.
Podobne artykuły:
- Jak usunąć tekst przed lub po określonym znaku w programie Excel?
- Jak usunąć niechciany tekst z komórki w programie Excel?
- Jak usunąć liczby z komórek zawierających teksty i liczby w programie Excel?
- Jak usunąć tylko tekst z komórek zawierających liczby i teksty 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!