Przejdź do głównej zawartości

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.

2.1) Kliknij Wyodrębnij według lokalizacji tab (ta karta jest domyślnie włączona);
2.2) W łodzie sekcja, kliknij przycisk, aby wybrać zakres komórek, z których wyodrębnisz tekst;
2.3) W Opcje sekcja: Wybierz Wyodrębnij liczbę opcja;
2.4) Kliknij OK.

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

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

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

Opis


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!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations