Strona 1 z 1

Jak rozdzielić liczbę od tekstu

: śr lut 06, 2013 9:34 pm
autor: 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.

Re: Jak rozdzielić liczbę od tekstu

: śr lut 06, 2013 11:03 pm
autor: 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)

Re: Jak rozdzielić liczbę od tekstu

: czw lut 07, 2013 9:17 pm
autor: kristoferson
Wielkie dzięki belstar, :D
Działa rewelacyjnie, zaoszczędziłeś mi żmudnej, ręcznej roboty.

Pozdrawiam
kristoferson

Re: Jak rozdzielić liczbę od tekstu

: czw lut 07, 2013 9:48 pm
autor: 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;" ";""))))))