Piotr Iwanicki

Piotr Iwanicki kosztorysant,
REM-BUDEX

Temat: Wyciągnęcie danych do innej komórki

witam.

mam koumnę komórek.W każedej z nich jest np:

KNR 401-1 108/1 Wywiezienie gruzu samochodami samowyładowczymi na odległość do 1km.
I chciałbym przenieść pierwszą cześć tzn KNR 401-1 108/1 do osobnej komórki
Oczywiście jakoś automatycznie bo komórek jest ponad 1000.
zaznaczam że w każdej komórce początek się różni może być np: KNNR 2 402/7 wydaje mi się że należałoby przenieść to co jest w komórce od piwerwszego znaku do ostatniej cyfry przed spacją ale nie jestem pewien

konto usunięte

Temat: Wyciągnęcie danych do innej komórki

może w ten sposób ?
Tomasz Gawęda

Tomasz Gawęda Kierownik Zakładu
Produkcyjnego

Temat: Wyciągnęcie danych do innej komórki

Jeżeli każdy z symboli kończy się na "/cyfra ", przy założeniu, że w A1 jest cały ciąg tekstu to dla B1
=LEWY(A1;SZUKAJ.TEKST("/? ";A1)+1)
a dla C1
=PRAWY(A1;DŁ(A1)-DŁ(B1)-1)
Piotr Iwanicki

Piotr Iwanicki kosztorysant,
REM-BUDEX

Temat: Wyciągnęcie danych do innej komórki

Wojtku bardzo pomysłowe dzięki za videotutka:)
A jeśli będzie 108/12?
to trzeba +2 zrobić a nie +1 czy wtedy wklei się ze spacją?
to istotne bo z tego zapiszę do csv i poleci do programu docelowego...

Piotr
Sławomir Borowik

Sławomir Borowik inżynier projektu

Temat: Wyciągnęcie danych do innej komórki

Moim zdaniem tutaj nie potrzeba bawić się w jakieś triki.

Widzę, że kolega używa programu typu NORMA lub innego do kosztorysowania i chciałby kosztorys przenieść do Excela.

Należy plik kosztorysu exportować do *.txt, a następnie importować go do Excela podając mu znak podziału na kolumny - uzyskasz wówczas efekt, że każda kolumna będzie na swoim miejscu.

pozdrawiam
slawekSławomir Borowik edytował(a) ten post dnia 21.09.10 o godzinie 10:55
Artur O.

Artur O. Kontroler Finansowy

Temat: Wyciągnęcie danych do innej komórki

To może
=LEWY(A1;ZNAJDŹ(" ";A1;ZNAJDŹ("/";A1))-1)

konto usunięte

Temat: Wyciągnęcie danych do innej komórki

http://vbamania.blogspot.com/2010/09/funkcja-vba-do-wy...

dodajesz funkcję do modułu, moduł możesz zapisać jako dodatek np.

później w Excel-u

=RegExpString(E3;F3)

gdzie
E3 = KNR 401-1 108/12 Wywiezienie gruzu samochodami samowyładowczymi na odległość do 1km
F3 = ^KNR\s\d+\-\d+\s\d+\/\d+

wynik:
KNR 401-1 108/12



Wyślij zaproszenie do