Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Sub RemoveNumbers()
Dim rng As Range
Dim cell As Range
Dim result As String
Set rng = Selection ' Veya isimlerin bulunduğu hücre aralığını manuel olarak belirleyin
For Each cell In rng
result = ""
For i = 1 To Len(cell.Value)
If Not IsNumeric(Mid(cell.Value, i, 1)) Then
result = result & Mid(cell.Value, i, 1)
End If
Next i
cell.Value = result
Next cell
End Sub
formülsüz basit bir yolu da var. diyelim ki bu veri A1 stünunda olsun. B1 sütünuna Ali ASLANTÜRK yazın enter deyin. ardından Ctrl + E tuşlarına basın otomatik doldurmayla kendisi ayrıştırır.
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.