Metinin sonundaki . karakterlini silme

[tamer42]

Merhaba,
Hücrede yazılı metinini en sağda kalan ve her satırda farklı adetlerde mecut olan "." karakterlerini kolayca silmenin bir yöntemi var mıdır?
Sayı ve Harflerin arasındaki "." işaretleri kalacak sadece en sağda kalan seri halindeki . işaretleri silinecek.

110.......
111.1A......
111.2B....
111.3C....
111.1DA...
111.1DB.........
111.2DB....
111.1DC.....
111.3DD...

teşekkürler,
iyi Haftasonları.

 

[excelokyanus500]

Deneyin..

Sub dene()
On Error Resume Next
For Each x In Range("A1:A10")
bulnokta = Karaktersira(x, ".", 2)
x.Offset(0, 1).Value = Left(x, bulnokta - 1)
Next

End Sub
Function Karaktersira(Hucre, Aranan, Yineleme)
        
    Dim x As Integer, n As Long

    For x = 1 To Len(Hucre)

        Karaktersira = Karaktersira + 1

        If Mid(Hucre, x, Len(Aranan)) = Aranan Then n = n + 1

        If n = Yineleme Then Exit Function
    Next x
    

    Karaktersira = CVErr(xlErrValue)
    
End Function

 

[Korhan Ayhan]

Alternatif;

=IFERROR(LEFT(A1;FIND("..";A1)-1);IF(RIGHT(A1)=".";LEFT(A1;LEN(A1)-1);A1))

 

[tamer42]

Alternatif;

=IFERROR(LEFT(A1;FIND("..";A1)-1);IF(RIGHT(A1)=".";LEFT(A1;LEN(A1)-1);A1))

@excelokyanus500 , @korhan hocam teşekkürler