Wielkie dzieki za kawałki kodu, które wstawiasz tu i ówdzie. Pewien jestem, że się wielu osobom przydadzą.

Marcin

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

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.

Marcin