Jak wyodrębnić liczby z mieszanych alfanumerycznych ciągów tekstowych w programie Excel?
Ten samouczek zawiera trzy metody ułatwiające wyodrębnianie liczb z mieszanego alfanumerycznego ciągu tekstowego w programie Excel.
Wyodrębnij liczby z mieszanych alfanumerycznych ciągów tekstowych za pomocą formuły
Wyodrębnij liczby z mieszanych alfanumerycznych ciągów tekstowych z kodem VBA
Z łatwością wyodrębniaj liczby z mieszanych alfanumerycznych ciągów tekstowych za pomocą niesamowitego narzędzia
Wyodrębnij liczby z mieszanych alfanumerycznych ciągów tekstowych za pomocą formuły
Możesz zastosować poniższą formułę, aby wyodrębnić liczby z dowolnego miejsca w ciągu tekstowym w programie Excel.
1. Wybierz pustą komórkę, aby wyodrębnić wyodrębnione liczby, wprowadź do niej poniższą formułę i naciśnij Wchodzę klucz. Następnie przeciągnij uchwyt autouzupełniania w dół, aby zastosować formułę do innych komórek.
=IF(SUM(LEN(A2)-LEN(SUBSTITUTE(A2, {"0","1","2","3","4","5","6","7","8","9"}, "")))>0, SUMPRODUCT(MID(0&A2, LARGE(INDEX(ISNUMBER(--MID(A2,ROW(INDIRECT("$1:$"&LEN(A2))),1))* ROW(INDIRECT("$1:$"&LEN(A2))),0), ROW(INDIRECT("$1:$"&LEN(A2))))+1,1) * 10^ROW(INDIRECT("$1:$"&LEN(A2)))/10),"")
Note: W formule A1 to komórka zawierająca ciąg tekstowy, z którego chcesz wyodrębnić liczby. Zmień to w zależności od potrzeb.
Następnie liczby są wyodrębniane z dowolnego miejsca w ciągu tekstowym w określonych komórkach, jak pokazano na powyższym zrzucie ekranu.
Przechowuj tylko liczby w mieszanych alfanumerycznych ciągach tekstowych z kodem VBA
Poniższy kod VBA może pomóc usunąć wszystkie nieliczbowe znaki z określonego zakresu i zachować tylko liczby w komórkach. Wykonaj następujące czynności.
Note: Ponieważ kod bezpośrednio wyklucza oryginalny zakres, należy zachować kopię oryginalnego zakresu na wypadek utraty danych.
1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do okna Module.
Kod VBA: usuń wszystkie nieliczbowe znaki z komórek
Sub GetNumbers()
'Updated by Extendoffice 20210125
Dim xRegEx As Object
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Pease select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
Set xRegEx = CreateObject("VBScript.RegExp")
With xRegEx
.Pattern = "\D+"
.IgnoreCase = True
.Global = True
End With
xRg.NumberFormat = "@"
For Each xCell In xRg
xCell.Value = xRegEx.Replace(xCell.Value, "")
Next
Set xRegEx = Nothing
End Sub
3. wciśnij F5 klucz do uruchomienia kodu. Następnie Kutools dla programu Excel pojawi się okno dialogowe, wybierz zakres zawierający mieszane alfanumeryczne ciągi tekstowe, które zachowasz tylko liczby, i kliknij OK przycisk.
Teraz wszystkie nieliczbowe znaki w wybranym zakresie zostały natychmiast usunięte, a tylko liczby zostały zachowane. Zobacz zrzut ekranu:
Z łatwością wyodrębnij liczby z mieszanych alfanumerycznych ciągów tekstowych za pomocą Kutools for Excel
W tej sekcji zaleca się narzędzie do wyodrębniania tekstu Kutools dla programu Excel. Dzięki temu narzędziu wyodrębnianie liczb z ciągu tekstowego może być łatwe w obsłudze.
Przed złożeniem wniosku Kutools dla programu ExcelProszę pobierz i zainstaluj najpierw.
1. kliknij Kutools > Tekst > Wyodrębnij tekst aby włączyć tę funkcję.
2. w Wyodrębnij tekst W oknie dialogowym wykonaj poniższe ustawienia.
Uwaga: Sprawdź Wstaw jako wzór w lewym dolnym rogu okna dialogowego wstawi wynik jako formułę do komórek wynikowych. Gdy wartość komórki, do której istnieje odwołanie, zmieni się, wynik zostanie zaktualizowany automatycznie.
3. w Wyodrębnij tekst w oknie dialogowym wybierz pustą komórkę, aby wyodrębnić wyodrębniony tekst, a następnie kliknij OK.
Następnie wyodrębniane są liczby z dowolnej pozycji w ciągu tekstowym. Zobacz zrzut ekranu:
Jeśli chcesz mieć bezpłatną wersję próbną (30 dni) tego narzędzia, kliknij, aby go pobrać, a następnie przejdź do wykonania operacji zgodnie z powyższymi krokami.
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!