Zadanie wygląda następująco.
Mam całą serię ciągów tekstowych zbudowanych w następujący sposób: „To jest opis, a mnie interesuje tylko kod XP342OO”, z których muszę pobrać tylko kod produktu, w tym przypadku „XP342OO”. W praktyce zadanie sprowadza się do wybrania ostatniego wyrazu w zdaniu, a gdyby ktoś chciał opisać to nieco bardziej szczegółowo, pobraniu wszystkich znaków znajdujących się na prawo od ostatniej spacji w zdaniu.
Przy założeniu, że ciąg tekstowy masz w komórce D3, odpowiednia formuła mogłaby wyglądać następująco:
=PRAWY(D3;DŁ(D3)-SZUKAJ.TEKST(„^”;PODSTAW(D3;” „;”^”;DŁ(D3)-DŁ(PODSTAW(D3;” „;”")))))
Jak zwykle kilka słów wyjaśnienia.
PODSTAW(D3;” „;”^”;DŁ(D3)-DŁ(PODSTAW(D3;” „;”")))
Ten fragment zastępuje ostatnią spację w zdaniu symbolem „^” (może to być oczywiście dowolny „dziwny” symbol. Chodzi o to, aby nie było szansy jego wystąpienia w innym miejscu w Twoim tekście.).
Znajdując pozycję, na której pojawi się ten symbol – SZUKAJ.TEKST(„^”;PODSTAW(D3;” „;”^”;DŁ(D3)-DŁ(PODSTAW(D3;” „;”")))) – określisz pozycję ostatniej spacji w zdaniu. Reszta to pobranie wszystkich znaków na prawo od tej spacji. Wynik działania na rysunku poniżej.
Bazując na tej samej zasadzie, rezultat osiągniesz także korzystając z funkcji FRAGMENT.TEKSTU.
=FRAGMENT.TEKSTU(D3;SZUKAJ.TEKST(„^”;PODSTAW(D3;” „;”^”;DŁ(D3)-DŁ(PODSTAW(D3;” „;”"))))+1;255)
Jeżeli masz inne pomysły – czekam jak zwykle na komentarz.
{ 5 comments… read them below or add one }
Bardzo przydatna formula ale czy dalo by sie ja przerobic na zwrocenie przedostatniego wyrazu z zdania nr. „To jest opis przedmiotu i liczba szt” chodzi mi o to aby moc wyciagnac z opisu liczbe szt towaru?
Pewnie, że by się dało przerobić. Być może kiedyś, w wolnej chwili,powrócę do tego tematu.
Marcin
Może przyda siekomuś w VBA:
Sub OstatniWyrazWZdaniu()
Dim i, j As Integer
dl = Len(Cells(10, „A”))
a = 1
On Error GoTo errhandler:
Do Until a > dl
a = Application.WorksheetFunction.Find(” „, Cells(10, „A”), a + 1)
Loop
Exit Sub
errhandler:
Cells(10, „B”) = Right(Cells(10, „A”), dl – a)
Exit Sub
End Sub
Pozdrawiam.
Łukasz:
Kod VBA zwracający przedostatni wyraz w zdaniu (obsługuje zdania, w których pojawiają się wielokrotne spacje):
Sub UsunPodwojneSpacje()
Range(„A10″) = Range(„A9″)
i = 0
Do Until i = Len(Range(„A10″))
i = i + 1
Range(„A10″) = Application.WorksheetFunction.Substitute(Range(„A10″), ” „, ” „)
Loop
End Sub
Sub PrzedostatniWyraz()
Dim i, j As Integer
Dim tb(1 To 10) As Variant
Call UsunPodwojneSpacje
dl = Len(Cells(10, „A”))
a = 1
i = 1
Set spacja = Range(„A10″).Find(” „)
If spacja Is Nothing Then
Range(„B10″) = Range(„A10″)
Exit Sub
End If
On Error GoTo errhandler:
Do Until a > dl
a = Application.WorksheetFunction.Find(” „, Cells(10, „A”), a + 1)
tb(i) = a
i = i + 1
Loop
Exit Sub
errhandler:
‘For j = 1 To i
‘Cells(j+9,”B”) = mid(Range(„A10″),tb(i),
Range(„B9″) = Mid(Range(„A10″), tb(i – 2) + 1, tb(i – 1) – tb(i – 2) – 1)
Range(„A10″).Clear
Exit Sub
End Sub
@armal84
Wielkie dzieki za kawałki kodu, które wstawiasz tu i ówdzie. Pewien jestem, że się wielu osobom przydadzą.
Marcin