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.