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
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.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.