İlk boşluğa kadar olan metni nasıl keseriz

[shiva]

Merhabalar,

Hücrelerde bulunan metni ilk bastan itibaren ilk boşluğa kadar almak istiyorum.

Bu işlemi nasıl yaparız?

Teşekkürler.

 

[Ali]

Sub ilk_kelime()
For a = 1 To [a65536].End(3).Row
k = 1
For i = 1 To Len(Cells(a, 1))
deg = Mid(Cells(a, 1), i, 1)
If deg = " " Then k = k + 1
If k = 2 Then GoTo 10
Next
10 Cells(a, 2) = Left(Cells(a, 1), i - 1)
Next
End Sub

 

[bezl]

ektekine bakarsanız

 

[shiva]

makrolu ve formüllü çözümler ile ayr ayrı sonuca ulaşabildim.
çok teşekkürler.

 

[shiva]

Arkadaşlar elimde bir dosya var. Hüzrelerin başında ve sonunda belirsiz aralıklarla boşluklar var replace yaparak boşlukları kaldırmak istediğimde excel boşlukları bulmuyor. Bu arada hüücelerin hepsinde ondalıklı değerler var.

nası yapabilirz.?