Замена запятой на точку

Дата: Пятница, 29.01.2016, 07:59 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Всем привет.
необходим макрос замены запятой на точку.

Например дан такой текст

20,4
20,04
17,3
16,05
15,12

Необходимо что бы заменилась запятая на точку и получилось вот так

20.4
20.04
17.3
16.05
15.12

Простым поиск/замена получается вот такая картина

20.апр
20.апр
17.мар
16.май
15.дек

Нужно, чтоб была точка и то же самое количество знаков (как в примере и 20.4 и 20.04) и не важно какой это будет формат

Дата: Пятница, 29.01.2016, 08:06 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 262

Репутация: 23 ±

Замечаний: 0% ±

Excel 2010

Опа не правильный ответ!

К сообщению приложен файл: 4030377.jpg (44.6 Kb)

Всем удачного дня!

Сообщение отредактировал VIDEO56 - Пятница, 29.01.2016, 08:11

Дата: Пятница, 29.01.2016, 08:16 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

VIDEO56,
Да, я же говорю, что поиск/замена не дает результата, тк не нужен формат даты, нужно просто точка )))

Дата: Пятница, 29.01.2016, 08:30 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 262

Репутация: 23 ±

Замечаний: 0% ±

Excel 2010

Код

=ПОДСТАВИТЬ(D18;",";".";1)

Попробуйте так
Вроде работает!

Всем удачного дня!

Сообщение отредактировал VIDEO56 - Пятница, 29.01.2016, 08:31

китин

Дата: Пятница, 29.01.2016, 08:32 | Сообщение № 5

Группа: Модераторы

Ранг: Экселист

Сообщений: 7014

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Код

=ПОДСТАВИТЬ(A1;",";".")

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Дата: Пятница, 29.01.2016, 08:41 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

китин, VIDEO56,

Работает!

Но мне нужно несколько тысяч цифр переколопатить.

Скопировать формулу в соседнюю ячейку, а потом заменить новыми данными?
Или есть проще выход?

Дата: Пятница, 29.01.2016, 08:47 | Сообщение № 7

Группа: Проверенные

Ранг: Обитатель

Сообщений: 262

Репутация: 23 ±

Замечаний: 0% ±

Excel 2010

Потяните просто формулу на нужный диапазон. или скиньте пример файла

Всем удачного дня!

Дата: Пятница, 29.01.2016, 08:50 | Сообщение № 8

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

VIDEO56,

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

Но все-равно огромное вам спасибо!

Дата: Пятница, 29.01.2016, 08:53 | Сообщение № 9

Группа: Проверенные

Ранг: Обитатель

Сообщений: 262

Репутация: 23 ±

Замечаний: 0% ±

Excel 2010

Удачного дня!

Всем удачного дня!

китин

Дата: Пятница, 29.01.2016, 09:44 | Сообщение № 10

Группа: Модераторы

Ранг: Экселист

Сообщений: 7014

Репутация: 1073 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Цитата VIDEO56, 29.01.2016 в 08:53, в сообщении № 9

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

ну дык в соседней ячейке заменить зпт на тчк.потом скопировать и спецвставкой вставить куда надо

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

sv2014

Дата: Пятница, 29.01.2016, 16:21 | Сообщение № 11

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 226

Репутация: 61 ±

Замечаний: 0% ±

Excel 2013

Silver, попробуйте функцию yyy в столбце D

[vba]

Код

Function yyy(t$)
With CreateObject("VBScript.RegExp"): .Pattern = ","
If .test(t) Then yyy = .Replace(t, ".")
End With
End Function

[/vba]

К сообщению приложен файл: example_29_01_2.xls (34.5 Kb)

sv2014

Дата: Пятница, 29.01.2016, 16:41 | Сообщение № 12

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 226

Репутация: 61 ±

Замечаний: 0% ±

Excel 2013

Silver, добавлю,макрос,заменяющий данные в столбце A на результат в столбце A

[vba]

Код

Sub example()
   Dim i&, x
   x = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
     With CreateObject("vbscript.regexp"): .Pattern = ","
       For i = 1 To UBound(x)
        If .test(x(i, 1)) Then x(i, 1) = .Replace(x(i, 1), ".")
       Next
    End With
  Range("A1").Resize(UBound(x), UBound(x, 2)).Value = x
End Sub

[/vba]

К сообщению приложен файл: 9543564.xls (40.0 Kb)