Jak usunąć znaki nienumeryczne z komórek w programie Excel?
Przypuśćmy, że masz arkusz z dużą ilością takich danych ABCD4578124YUIOHi chcesz usunąć tylko znaki nienumeryczne ABCDYUIOH ale zachowaj znaki numeryczne w komórkach. Oczywiście możesz usuwać te znaki jeden po drugim, ale tutaj możesz szybko pozbyć się znaków nienumerycznych z komórek w następujący sposób:
Usuń znaki nienumeryczne z kodem VBA
Poręczne narzędzie do usuwania znaków nienumerycznych jednym kliknięciem
Usuń znaki nienumeryczne z kodem VBA
Aby usunąć znaki nienumeryczne z zakresu z kodem VBA, wykonaj następujące czynności:
1. Kliknij Deweloper > Visual Basic otworzyć Microsoft Visual Basic dla aplikacji okno. w Microsoft Visual Basic dla aplikacji okno, kliknij wstawka > Moduł, a następnie skopiuj i wklej następujące kody do modułu:
VBA: usuń wszystkie znaki nienumeryczne
Sub RemoveNotNum()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
xOut = ""
For i = 1 To Len(Rng.Value)
xTemp = Mid(Rng.Value, i, 1)
If xTemp Like "[0-9]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
2. Następnie kliknij przycisk przycisk do uruchomienia kodu, w wyskakującym okienku Kutools dla programu Excel W oknie dialogowym wybierz zakres ze znakami nieliczbowymi, które chcesz usunąć, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:
3. Następnie wszystkie znaki nieliczbowe w wybranym zakresie są usuwane.
Jeśli liczby z kropkami dziesiętnymi, możesz użyć następującego VBA:
Sub RemoveNotNum()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
xOut = ""
For i = 1 To Len(Rng.Value)
xTemp = Mid(Rng.Value, i, 1)
If xTemp Like "[0-9.]" Then
xStr = xTemp
Else
xStr = ""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub
Możesz zobaczyć wyniki, jak pokazano na poniższym zrzucie ekranu:
Poręczne narzędzie do usuwania znaków nienumerycznych jednym kliknięciem
Aby usunąć nieliczbowe znaki z zakresu, Kutools dla programu Excel'S Usuń znaki narzędzie może to zrobić jednym kliknięciem.
Kutools dla programu Excel : z ponad 300 poręcznymi dodatkami Excela, które można wypróbować bez ograniczeń w ciągu 30 dni. |
Po zainstalowaniu Kutools dla programu Excel, wykonaj poniższe czynności:
1. Podświetl zakres, z którego chcesz usunąć znaki nienumeryczne. Kliknij Kutools > Tekst > Usuń znaki.
2, w Usuń znaki w oknie dialogowym, sprawdź Nieliczbowe opcja w Usuń znaki , a następnie kliknij OK or Aplikuj przycisk. Znaki nienumeryczne są natychmiast usuwane z zaznaczenia. Zobacz zrzut ekranu:
Kliknij, aby pobrać Kutools dla programu Excel i bezpłatną wersję próbną teraz!
Więcej szczegółowych informacji na temat Usuń znaki of Kutools for Excel, odwiedź Usuń opis cech znaków.
Demo: usuń z komórek znaki numeryczne, alfabetyczne, niedrukowalne lub alfanumeryczne
Podobne artykuły:
- Usuń znaki alfa z komórek
- Usuń znaki numeryczne z komórek
- Usuń niedrukowalne znaki z komórek
- Usuń znaki inne niż alfa z komórek
- Usuń znaki inne niż alfanumeryczne
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!