Jak rozdzielić liczbę od tekstu

[kristoferson]

mam taki problem
w kolumnie w komórkach jest wprowadzony tekst w postaci: tekst1 tekst2 123456H1
w drugiej komórce: tekst3 564825c1
w trzeciej komórce: tekst4 tekst5 tekst6 58343445B2 itd.

i pytanie jest takie, jak wydzielić te liczby do oddzielnej kolumny?

próbowałem skopiować kolumnę do notatnika i potem z notatnika wkleić ją do calca jako wklej specjalnie ze spacją jako separatorem tekstu
ale oczywiście te liczby są wtedy w różnych kolumnach
| tekst1 | tekst2 |123456H1| |
| tekst3 |546825c1 | | |
| teks | tekst |tekst | 889887d22|
itd.
i teraz przydałby się pomysł jak przenieść te liczby do jednej kolumny.
Może już ktoś miał taki problem i może mi jakoś pomóc.
Z góry dziękuje.

[belstar]

Witaj
Można pobawić się w stworzenie formuły, ale będzie to chyba "potworek" ze względu na zmienną ilość wyrazów w tekście, dlatego proponuje funkcje użytkownika.

Kod: Zaznacz cały

Public Function ZnajdzWyraz(Tekst As String) As String
    Dim tbl As Variant
    Tekst = Trim(Tekst) ' usuwam spacje przed i na koncu zdania
    tbl = Split(Tekst, " ")
    i = ubound(tbl)
    ZnajdzWyraz = tbl(i)
End Function

Używasz jak zwykłej formuły calca. Wywołanie jej, jeśli dane wyjściowe są w kolumnie "A"

Kod: Zaznacz cały

=ZNAJDZWYRAZ(A1)

Wklej kod do modułu swojego dokumentu lub do biblioteki "Moje okna dialogowe i makra"
Narzędzia > Makra > Zarządzaj makrami > LibreOffice Basic (OpenOffice Basic)

[kristoferson]

Wielkie dzięki belstar,
Działa rewelacyjnie, zaoszczędziłeś mi żmudnej, ręcznej roboty.

Pozdrawiam
kristoferson

[belstar]

Inne rozwiązanie

Kod: Zaznacz cały

=JEŻELI(CZY.BŁĄD(ZNAJDŹ(" ";A1));A1;PRAWY(A1;DŁ(A1)-ZNAJDŹ("*";PODSTAW(A1;" ";"*";DŁ(A1)-DŁ(PODSTAW(A1;" ";""))))))