Измените формат числа.

формат меняется и числа в столбце разные.

вот пример

Public Function www(s$) As String  
If s = "" Then www = "": Exit Function  
www = Split(s, ".")(0)  
End Function

{quote}{login=Бард}{date=05.06.2011 01:56}{thema=}{post}так это потом рядом столбец добавлять и как потом я его удалю, а он мне не нужен.{/post}{/quote}  
Заменить на значения и удалить исходный столбец.

Да используйте эту UDF в Вашем макросе, кто не дает. И все будет менять на месте.  
Так короче:  
Public Function www(s$) As String  
If s <> "" Then www = Split(s, ".")(0)  
End Function  
Например:  
Public Sub sss()  
Dim c As Range  
For Each c In Selection.Cells  
c.Value = www(c.Value)  
Next  
End Sub  
Только формат ячеек предварительно надо поменять на текстовый.