hücredeki karakter sayısı azaltma

[HarEndu]

merhaba,
aşağıda örneğini verdiğim binlerce sayfalık stok listem var. tüm stoklarımı otomatik olarak 17-25 karakter arası düşürmek istiyorum. bunun kolay bir yolu var mıdır? yoksa tek tek kısaltmam mı gerekir
Ör;
Döner Pişmiş Dond.Lezita 400 gr % 30 Dana (1*20)
Ekmek 6'lı Hamburger Doygun 360 Gr

yukarıdaki karakter şöyle olabilirmi?

Dön.Piş.Don.Lez.400gr.(1*20)
Ekm.6'lı Hamb.Doyg.360 Gr

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub MetinKisaltma()
For x = 1 To Range("a65536").End(3).Row
    a = Split(" " & Cells(x, 1), " ")
    For i = 1 To UBound(a)
If Not IsNumeric(Left(a(i), Len(a(i)))) Then
If Left(a(i), Len(a(i))) Like "(*)" Then
mtn = Left(a(i), Len(a(i)))
GoTo 10
End If
mtn = Left(a(i), 3) & "."
10
Else: IsNumeric (Left(a(i), Len(a(i))))
mtn = Left(a(i), Len(a(i)))

End If
metin = metin & mtn
Next
Cells(x, 2) = metin
metin = Empty
Next
End Sub

 

[HarEndu]

üstadım yüreğinize sağlık harikasınız