jestes wielki :)
Kod dziala znakomicie.
Mam ogromna ilosc danych do przetworzenia i dzieki Twojej pomocy zrobie to o wiele szybciej.
Musze nadrobic moje braki z vba.
Jeszcze raz dziekuje, moze kiedys bede mial okazje sie zrewanzowac :P
pzdr
napisał: Trebor postów: 1209
umieszczony: 16 listopada 2012 19:20
Wypróbuj poniższe makro:
Sub rozdziel() Dim wiersz As Long, tekst AsString
For wiersz = 2 To Cells(Rows.Count, 1).End(xlUp).Row ' pętla dla komórek I kolumny
tekst = Cells(wiersz, 1)
tekst = WorksheetFunction.Trim(tekst) 'usuwamy zbędne spacje jeśli są
Cells(wiersz, 2) = Split(tekst, " ")(1)
Cells(wiersz, 3) = Split(tekst, " ")(2) Next wiersz EndSub
Hej
napisał: gtomczyk postów: 2
umieszczony: 16 listopada 2012 17:48
witam
mam w kolumnie A arkusza Excel string: "ABC DEFG HIJKL MNO"
i tak w kilku wierszach.
W kazdym z wierszy mam 4 slowa a odstepy sa znakami spacji ""
Dlugosc slow jest rozna.
Jak wyciagnac dwa srodkowe wyrazy i wpisac do komorek w kolumnach B oraz C ??
wstecz 1 dalej
otwarty rozpoczął: gtomczyk
postów: 3
