Округление до сотых

[AdvSent]

Суть такая.
Имеется выборка из 7000 записей в один столбец.
Примерный вид записи:
40817810010042858555/54,САВЕЛЬЕВ АЛЕКСЕЙ ВИКТОРОВИЧ,250.2
40817810010042858555/54,САВЕЛЬЕВ АЛЕКСЕЙ ВИКТОРОВИЧ,250.25

Нужно привести в виду:
40817810010042858555/54,САВЕЛЬЕВ АЛЕКСЕЙ ВИКТОРОВИЧ,250.20
40817810010042858555/54,САВЕЛЬЕВ АЛЕКСЕЙ ВИКТОРОВИЧ,250.25

С уважением, Алексей.

[AdvSent]

В дальнейшем будет производиться выгрузка всех столбцов в txt файл

[Serge_Bliznykov]

если я правильно понял задачу, то достаточно для третьего столбика задать формат данных, указать числовой формат, количество знаков после запятой - 2
и всё...

[AdvSent]

да это возможно, но потом при выгрузке в тхт файл появляются лишние ненужные пробелы

[RAN.]

Можно так

Function qqq(S As String) As String
qqq = Split(S, ".")(0) & "." & Left(Split(S, ".")(1) & "00", 2)
End Function

[AdvSent]

Сообщение от RAN.

Можно так

Function qqq(S As String) As String
qqq = Split(S, ".")(0) & "." & Left(Split(S, ".")(1) & "00", 2)
End Function

можно поподробнее где этот код запустить? в редакторе сценариев?

[Казанский]

Попробуйте макрос - работает с выделенной областью.
В принципе, экспорт в txt можно поместить в этот же макрос.

Sub AdvSent()
Dim c As Range, s$, i&
For Each c In Selection
    s = c
    i = InStrRev(s, ",")
    c.Value = Left$(s, i) & Replace$(Format$(Val(Mid$(s, i + 1)), "0.00"), ",", ".")
Next
End Sub

[AdvSent]

Сообщение от Казанский

Попробуйте макрос - работает с выделенной областью.
В принципе, экспорт в txt можно поместить в этот же макрос.

Sub AdvSent()
Dim c As Range, s$, i&
For Each c In Selection
    s = c
    i = InStrRev(s, ",")
    c.Value = Left$(s, i) & Replace$(Format$(Val(Mid$(s, i + 1)), "0.00"), ",", ".")
Next
End Sub

Огромное спасибо , помогло

[AdvSent]

Кстати порекомендуйте какую нибудь литературу по этой теме(макросам, vbs-скриптам )
Чувствую пригодится это еще в будущем

[Sasha_Smirnov]

О vbs-скриптах не знаю, но недавно отвечал на похожий вопрос; вот ответ: http://programmersforum.ru/showthread.php?p=843686 (ссылка открывается секунд 8; не все источники с тех пор сохранились).