Alandaki Tek Bir Yeri Değiştirmek

[albatros26]

bir listem var listede değiştirmek istediğim tek bir alan var örnek

147.4.7.8
bunu
147.4.7-8
yapmak istiyorum en sonraki nokta tre ile değişcek yardımcı olucak.

 

[apocalyt]

meraba, aşağıdaki kodu bir modulun içine kopyalayıp çalıştırın...
not: verilerinizin a sutununda 1 inci hücreden başladığı varsayılmaktadır.

Sub daylight()
For x = 1 To [a10000].End(3).Row
a = Split(Cells(x, 1), ".")
Cells(x, 1) = Mid(Cells(x, 1), 1, Len(Cells(x, 1)) - 1 - Len(a(UBound(a)))) & "-" & a(UBound(a))
Next x
End Sub