Поменять точку на запятую

[Romuald]

Добрый день
Подскажите как макросом выделить диапазон и в нем поменять точку на запятую


6.34607 6,34607
3.30045 3,30045
2.67 2,67
456.01 456,01
1.1 1,1
1234.67209 1234,67209

[Pavel55]

Не думаю, что выделять диапазон есть правильное решение задачи, т.к. это увеличивает код макроса и замедляет его работу
Без выделения диапазона, наверное, так

Sub Макрос1()
    With Range("A1:A10")
        .Replace What:=".", Replacement:=",", LookAt:=xlPart
    End With
End Sub

Тут я просто подчистил код, записанный макрорекордером. Видите какой он большой и неуклюжий )

Sub Макрос2()
    Range("A1:A10").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByColumns, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Range("M13").Select
End Sub

Видите, 2 макроса выполняющий одно и тоже действие. Но первый короче и быстрее

[Romuald]

Все получается но некоторые цифры - ?????????

1.19000 1,19
0.01667 0,01667
1.05000 1,05
2.83000 2,83
5.38000 5,38
2.54000 2,54
6.18000 6,18
0.85000 0,85
1.52000 1,52
0.82000 0,82
4.92000 4,92
2.97000 2,97
2.28000 2,28
2.40500 2405.00000
1.94000 1,94
1.77000 1,77
0.84750 0,8475
1.10143 110143.00000
1.16017 116017.00000
0.11867 0,11867
1.39000 1,39
2.46000 2,46
2.46000 2,46
1.27000 1,27

[Alkaline]

Проверьте, что в системе в качестве разделителя целой и дробной части стоит запятая, а разделителем разрядов является пробел.

[SAS888]

Если этот вопрос в свете "Сокращения после запятой", то такая замена вряд ли поможет. Если в ячейке с действительным числом, например, 2,3 искать запятую, то она найдется вне зависимости от того, какой в Excel установлен разделитель целой и дробной части числа. Эта установка влияет только на отображение разделителя на экране при выводе действительного числа.

[Pavel55]

Попробуйте этот код )

Sub Макрос1()
    With Range("A1:A24")
        .Replace What:=".", Replacement:=".", LookAt:=xlPart
    End With
End Sub

[Alkaline]

SAS888, если в системе запятая установлена как разделитель троек разрядов, то при замене это может привести к превращению дробного числа к большому целому.

PS: Romuald, возможно, не в тему, но: при копировании из других программ, особенно с web-страниц, иногда в конце или в середине числа появляется знак, выглядящий как пробел, но им не являющийся. Он, впрочем, легко удаляется с помощью замены. В поле поиска его нужно вставить по копипасту.

[SAS888]

Alkaline, я не про разделитель разрядов, а про разделитель целой и дробной части числа. Создал макрос (если интересно, посмотри в вопросе от Romuald "Сокращение после запятой"), который, в частности ищет позицию запятой в ячейке, значение которой - действительное число. Так вот этот поиск прекрасно работает при любом установленном в Excel разделителе цел. и дробн. части (хоть точка, хоть запятая). На листе отображается то, что установлено в системе, а поиск всегда по запятой. Работает корректно.