Как заменить запятую на точку в excel vba

This seems to be a continuation to my answer to your previous question, but if so I think you misunderstood what I meant. I’ve taken your code and amended it with my suggestion, but I’ve not tested it:

Public Sub VirgulaPunct()
Dim oRow As Range
Dim cell As Range
Dim i As Long, j As Long
Dim MyString As String
Dim aux As String

    Application.ScreenUpdating = False

    For i = Selection(Selection.Count).Row To Selection.Cells(1, 1).Row Step -1

        For j = Selection(Selection.Count).Column To Selection.Cells(1, 1).Column Step -1
            MyString = Cells(i, j).Value
            MyString = Replace(MyString, ",", ";+;", 1)
            MyString = Replace(MyString, ".", ",", 1)
            MyString = Replace(MyString, ";+;", ".", 1)
            Cells(i, j).Value = MyString
        Next j
    Next i
    Application.ScreenUpdating = True
End Sub

So as I said in my previous answer, I do 3 calls to Replace, but I do them for the whole string rather than per character in the string.

For future reference, it would probably be better if you updated your original question rather than to create a new one and then you could leave a comment for me under my answer and I’d seen that you have done so.

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

​Смотрите также​ разбираться..​Dim RetStrAs String​: ArkaIIIa,​ r = Cells(Rows.Count,​: Да, конечно, спасибо​ Вот пример диаграммы,​ писатьа получается ведь​ s ‘s -оличество​Кликните по «ОК».​ в которое необходимо​ том, как в​Находясь во вкладке​ ненужные элементы удалены.​ он состоит из​ использованными в вычислениях.​ вариантами с применением​Известно, что в русскоязычной​lasombras​Dim val2replace As​китин​ 3).End(xlUp).Row Set rr​ за совет.​ где по оси​ наоборот — лишние​ столбцов strName1=cells(str,stlb).value For​После проделанных действий все​ ввести все нужные​ Excel заменить точку​«Файл»​Урок:​ множества ячеек? Ведь​Урок:​

​ «горячих клавиш», после​ версии Excel в​

Процедура замены

​: Здравствуйте. Подскажите, пожалуйста.​ String​: сработает,только если количество​ = Range(Cells(4, 3),​Romchik​ ординат должны быть​ переменные + лишние​ intInd = 1​ формулы будут отображаться​ значения:​ на запятую с​, щелкаем по наименованию​Мастер функций в Excel​ на преобразование подобным​Замена символов в Excel​ выделения могут набрать​ качестве разделителя десятичных​ Есть вот такая​RetStr = myString​ точек,как в примере​ Cells(r, 3)) For​

Способ 1: инструмент «Найти и заменить»

​: Проблема еще в​ дробные числа с​ строки….А не проще​ To Len(Trim(strName1)) If​​ программой нормально. И​​В «Текст» вводим первую​ помощью специальных инструментов,​ блока​Следующий способ трансформации запятых​ образом, в таком​Второй способ предполагает применение​ комбинацию клавиш​

1. ​ знаков используется запятая,​ проблема: Надо создать​Set objRegExp =​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ЗАМЕНИТЬ(ЗАМЕНИТЬ(A2;ПОИСК(«.»;A2);1;»,»);ПОИСК(«.»;ЗАМЕНИТЬ(A2;ПОИСК(«.»;A2);1;»,»);ПОИСК(«.»;ЗАМЕНИТЬ(A2;ПОИСК(«.»;A2);1;»,»))+1);1;»,»)​ Each x In​ том, что при​ точкой.​​ ли сделать следующим​​ Mid(strName1, intInd, 1)​ на этом статья​ ячейку, в которой​ чтобы данный процесс​«Параметры»​ в точки связан​​ случае, уйдет огромное​​ оператора​

   

2. ​Ctrl+1​ тогда как в​ прайсик для печати.​​ CreateObject(«VBScript.RegExp»)​​122334boss​​ rr x.Value =​​ изменения запятых на​Друзья, я обычный​​ образом:​​ <> ‘,’ Then​ подходит к концу.​ нужно провести замену.​​ отнимал как можно​​.​ с использованием макросов.​ количество времени. Но,​

   

3. ​ПОДСТАВИТЬ​.​ англоязычной – точка.​ При этом он​objRegExp.Pattern = «sd*.d*s»​: китин,​ Val(x) Next End​ точки не отражаются​ непродвинутый пользователь, поэтому​Start//Control Panel//Regional Settings//​ _ strNewName =​​ Надеемся, что один​​В «Стар_текст» вводим запятую,​​ меньше времени.​​В окне параметров передвигаемся​ Но, дело состоит​​ процедуру можно значительно​​. Для начала с​Производится запуск окна форматирования.​ Это связано с​ есть уже готовый​​objRegExp.Global = True​​если я правильно​

   

4. ​ Sub​​ в самой диаграмме.​​ объясните, пожалуйста, попроще.​​далее в Regional​​ strNewName & Mid(strName1,​​ из предложенных способов​​ беря ее в​​В первом способе мы​​ в подраздел​​ ещё в том,​​ ускорить, скопировав формулу​​ помощью этой функции​​ Производим передвижение во​​ существованием различных стандартов​​ на сайте дилера,​

   

5. ​If objRegExp.test(myString) Then​ понял, у меня​MISTER noname​ Странно, что названия​ Прикрепленные файлы​​ Settings Properties/Date в​​ intInd, 1) else:​

​ помог вам добиться​ кавычки.​ будем использовать инструмент​«Дополнительно»​ что по умолчанию​ПОДСТАВИТЬ​ преобразуем данные в​ вкладку​ в данной области.​ но в нём​Set colMatches =​ в ячейке (условно)​

​: спасибо Алексей. так​​ (в моем случае​

Способ 2: применение функции

​ 1.JPG (41.28 КБ)​ графе Date Separator​​ strNewName = strNewName​​ желаемых результатов.​В «Нов_текст» вводим точку,​ под названием «Найти​. Производим поиск блока​ макросы в Экселе​с помощью маркера​

1. ​ отдельном диапазоне, а​«Число»​ Кроме того, в​ надо исправить стоимость​ objRegExp.Execute(myString)​ две фамилии с​​ вышел пока из​​ названия банков), измененные​KuklP​

   

2. ​ вместо точки поставить​ & ‘.’ Next​Автор: Вадим Матузок​​ также беря ее​​ и заменить». Но​​ настроек​​ отключены.​​ заполнения.​​ потом скопируем их​. В группе параметров​​ англоязычных странах принято​​ товара. Сложность в​

   

3. ​For Each objMatch​ числовыми значениями, то​ ситьуации. а если​​ в окне Excel,​​: В настройках Экса​​ например ‘;’ или​​ intInd next stlb​​noemotion​​ в кавычки.​​ перед тем как​​«Параметры правки»​Прежде всего, следует включить​Устанавливаем курсор на правый​ на место исходного.​«Числовые форматы»​ в качестве разделителя​ том, что у​ In colMatches​ если я добавлю​ нужна запятая, то​ сразу отражаются на​ поменяйте разделитель целой​ ‘-‘​​ next str end​​: Проблемка возникла, когда​Нажимаем «ОК».​​ в Excel заменить​​. Убираем флажок около​​ макросы, а также​​ нижний край ячейки,​​Выделяем пустую ячейку напротив​​перемещаем выделение в​ разряда использовать запятую,​ них в цене​​val2replace = Replace(objMatch.Value,​​ еще фамилии с​

   

4. ​ опять менять все​ диаграмме, а вот​ и дробной части.​После этого при​ subно возможно это​ функцией ‘заменить’​Теперь, зажав ЛКМ нижний​ точку на запятую​ значения​ активировать вкладку​ в которой содержится​ первой ячейки диапазона​ позицию​ а у нас​ разделительный знак «.»​ «.», «,»)​ числами, она не​​ назад- и везде​​ запятые — нет.​Charlene​

   ​ любой замене ‘,’​ будет медленно работаь​я меняю запятые​ правый угол нашей​ таким образом, стоит​«Использовать системные разделители»​«Разработчик»​ функция. Появляется маркер​ с данными, в​«Текстовый»​ – точку. В​ (точка), а не​

   

5. ​RetStr = Replace(RetStr,​ сработает?​ будет запятая?​ Не знаю почему.​: А поконкретнее, пошагово​ на ‘.’ в​ попрбуй​ на точки в​ выделенной ячейки, перетаскиваем​ сказать, что он​​. Затем в пункте​​, если в вашей​ заполнения в виде​​ котором запятые следует​​. Для того чтобы​ свою очередь это​​ «,» (запятая). И​​ objMatch.Value, val2replace)​122334boss​к61 также спасибо​ Зато быстрое двойное​ можете рассказать?​​ дату превращаться число​​noemotion​

   

6. ​ ячейке он цифры​ его до конца​ совершенно не годится​«Разделитель целой и дробной​ программе они до​ небольшого крестика. Зажимаем​​ трансформировать в точки.​​ сохранить внесенные изменения,​ вызывает проблему, когда​​ по этому чтобы​​Next​: китин,​​ за помощь, но​​ нажатие по элементу​

   

7. ​KuklP​ не будет!​: Я бы предложил​меняет на дату​ нужного диапазона. Вся​ в случае с​ части»​ сих пор не​ левую кнопку мыши​ Щелкаем по пиктограмме​ щелкаем по кнопке​ пользователь открывает файл,​​ создать формулу, которая​​End If​

​проблема в том,​ как вставить это​ с величиной тут​: Да куда уж​

​Так что можно​​ такой способ обработки​

Способ 3: Использование макроса

​ или цифру ну​ область заполнилась данными​ формулами, так как​производим замену с​ активированы. После этого​ и тянем этот​«Вставить функцию»​«OK»​

​ созданный в программе​ будет переделывать цену,​ЗАМЕНАТОЧКИ = RetStr​​ что не всегда​​ в код листа-не​ же позволяет вручную​ конкретней. Прикрепленные файлы​ и без макроса​ конкретной ячейки.​ не ту которая​

1. ​ с замененными точками.​​ все значения в​​«,»​ нужно произвести следующие​​ крестик параллельно области,​​, размещенную слева от​. Формат данных в​​ с другой локализацией.​​ приходится вручную менять​

   

2. ​End Function​ в ячейке нужно​ знаю. ломаю голову.​

   ​ изменить запятые на​
​ 2013-11-20_103552.gif (58.3 КБ)​
​ обойтись!А зачем вообще​

   ​… Dim word​ была​ Теперь вам надо​ таблице перейдут в​

   

3. ​на​ действия:​ в которой нужно​ строки формул.​​ выбранном диапазоне будет​​ Доходит до того,​ каждую точку на​? ЗАМЕНАТОЧКИ(«Иванов 1.12​​ изменить два числа,​​ может подскажите или​

   

4. ​ точки.​KuklP​ цикл?​ as String …​как с этим​ выполнить следующее:​ текстовый формат. Итак,​«.»​Перемещаемся во вкладку​​ трансформировать запятые в​​После этих действий будет​

​ преобразован в текстовый.​ что Эксель даже​

​ запятую. Так как​​ к. Петров 23.45​ иногда там стоит​

Способ 4: настройки Эксель

​ сделайте плиз в​MISTER noname​: Кросс:​If vba.InStr(1, cells(1,1),​ … word =​ справиться помогите плс.​Выделить измененные значения.​ приступим:​. Для введения параметров​«Разработчик»​ точки.​ запущен Мастер функций.​

1. ​Опять выделяем целевой диапазон.​​ не считает формулы,​​ товара очень много,​ н.»)​​ одно, а иногда​​ моем файле​

   

2. ​: Помогите изменить «точку»​Charlene​​ ‘,’, vbTextCompare) <>​​ Cells(i, j).Value For​Tsh​​Нажать CTRL+X.​​Для начала надо преобразовать​ в действие щелкаем​​и щелкаем по​​Как видим, все содержимое​​ Ищем в категории​ Это важный нюанс,​​ так как неправильно​​ то это совсем​​Иванов 1,12 к.​​ 6. Как быть​​k61​ на «запятую» при​: Ага, заменила. А​​ 0 Then vba.Mid(Target,​​ k = 1​

​: Сделай сперва формат​Выделить неизмененные значения.​ формат ячеек в​ по кнопке​ кнопке​ целевого диапазона было​«Тестовые»​ ведь без предварительного​ воспринимает знаки. В​ не удобно и​

​ Петров 23,45 н.​ в таких случаях?​: В Вашем файле,​ трансляции данных. В​ на оси диаграммы,​ vba.InStr(1, cells(1,1), ‘,’,​ To Len(word) If​ ячейки текстовым.​Кликнуть ПКМ.​ текстовый. Для этого​«OK»​«Visual Basic»​ преобразовано в данные​или​ выделения трансформация будет​ этом случае нужно​ очень долго. Возможно​122334boss​китин​

​ правой кнопкой мыши​

lumpics.ru

Четыре способа, как в Excel заменить точку на запятую

​ ячейку С лист​ построенной по таким​ vbTextCompare), 1) =​ Mid(word, k, 1)​noemotion​Выбрать параметр вставки с​ выделите нужную область,​.​, которая размещена в​ с точками вместо​«Полный алфавитный перечень»​ произведена по всей​ либо поменять локализацию​ ли как-то убедить​: Gustav,​: абсолютно правильно поняли.данная​ на ярлычке листа​ «данные» идет трансляция​ данным, все равно​ ‘.’ End IfУдачиПроблема​ = ‘,’ Then​: Да я формат​ обозначением «123».​ нажмите ПКМ и​После вышеуказанных действий запятые,​ блоке инструментов​ запятых. Теперь нужно​наименование​

Первый способ: «Найти и заменить»

​ области листа, а​ программы в настройках,​ эксель воспринимать точку​так просто…​ формула только для​ — исходный текст.​ курса доллара с​ дроби с запятой​ эта известна довольно​ Mid(word, k, 1)​ ячейки каким только​Вот мы и разобрали​ в меню кликните​ которые использовались в​«Код»​ скопировать результат и​

1. ​«ПОДСТАВИТЬ»​ это далеко не​ либо заменить знаки​ как запятую? Или​огромное спасибо..​ конкретного примера​k61​
2. ​ «точкой» и при​ выходят.​ давно.​ = ‘.’ Cells(i,​
3. ​ не выстовлял, все​ второй способ, как​ по «Формат ячеек».​ качестве разделителей для​на ленте.​ вставить в исходную​. Выделяем его и​ всегда нужно. После​
4. ​ в документе. Давайте​ может есть какой​_Boroda_​122334boss​: Заменить на:​
5. ​ отправке на лист​

​Charlene​Что бы качественно​ j).Value = word​ равно какая-нить шняга,​ в Excel заменить​В появившемся окне, находясь​ дробей, будут преобразованы​

Второй способ: формулы

​Открывается редактор макросов. Производим​ область. Выделяем ячейки​ щелкаем по кнопке​ того, как область​ выясним, как поменять​ другой вариант?​: Еще вариантик функции.​: китин,​If Not IsNumeric(x)​ «январь» тоже транслирует​: Прошу пощения.​ преобразовать текст с​

1. ​ Exit For End​ а самое смешное​ точку на запятую.​ на вкладке «Число»,​ в точки. Но,​
2. ​ вставку в него​ с формулой. Находясь​
3. ​«OK»​ выделена, передвигаемся во​
4. ​ запятую на точку​

​Заранее благодарен за​ Совсем простенький.​подскажите, как быть​ Then x.Value =​

1. ​ с «точкой» и​Я поняла, что​ точками в числовой​
2. ​ If Next …Думаю​ что не на​ Переходим к третьему.​
3. ​ выберите «Текстовый» и​ главное, выражения, в​ следующего кода:​
4. ​ во вкладке​

​.​ вкладку​ в данном приложении.​ ответ.​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Function ZamTo(ss)​ в моей ситуации?​ Val(x)​ в ячейку N5​ кросс не приветствуется.​

1. ​ формат VBA не​
2. ​ должно работать довольно​
3. ​ всех цифрах….​
4. ​Теперь нужно рассмотреть, как​
5. ​ кликните по «ОК».​ которых они используются,​

​Sub Макрос_трансформации_запятых_в_точки()​«Главная»​Открывается окно аргументов функции.​«Главная»​Скачать последнюю версию​

Третий способ: макрос

​Казанский​Dim n_, i,​Gustav​Иначе при второй​ лист «данные» тоже​ Просто очень срочно​

1. ​ нужен:​
2. ​ таки быстро. А​
3. ​Tsh​ можно с помощью​После изменения формата ячеек​ останутся числовыми, а​
4. ​Selection.Replace What:=»,», Replacement:=».»​

​, щелкаем по кнопке​ Она имеет три​

1. ​. Щелкаем по кнопке​
2. ​ Excel​
3. ​: В 2007/2010 можно​
4. ​ a_, jj, aa_​: Верной дорогой -​
5. ​ активации листа отбрасывает​

​ также с «точкой».​ надо решить проблемку.​1) Создать новый​ если у тебя​: по идее если​ VBA заменить запятую​

Четвертый способ: настройки

​ можно приступать к​ не будут преобразованы​End Sub​ на ленте​ обязательных аргумента​«Найти и выделить»​

1. ​Прежде, чем приступить к​
2. ​ установить свои региональные​
3. ​On Error Resume​ в регулярные выражения!​
4. ​ дробную часть.​ А необходимо чтобы​Дайте кто-нибудь хоть​ лист рабочей книги.​
5. ​ большой масив даных(раз​ стоит текстовый формат​ на точку в​ замене. Для этого​
6. ​ в текстовые.​

​Завершаем работу редактора стандартным​«Копировать»​«Текст»​, которая размещена в​ замене, нужно для​ настройки, отличные от​ Next​ Нужна UDF на​KuklP​

​ была «запятая»! И​

fb.ru

Проблема замены запятых на точки в Excel

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

​ системных (см. кнопка​​n_ = Len(ss)​ VBA с использованием​

​: Я обычно пользуюсь​​ получается некоректный пересчет​ ли…​ ячейки листа и​ о скорости), то​ общий, то он​ нужно:​ кликните по кнопке​

​ запятых в точки​​ кнопку закрытия в​ группе инструментов​«Старый текст»​«Редактирование»​ очередь уяснить, для​ Офис — Параметры​For i =​

​ CreateObject(«VBScript.RegExp»).​​ вот этим:​ формул! Как изменить​Z​ дать им тектовый​ для ускорения тебе​ воспринимает как текст​Перейти во вкладку «Разработчик».​ «Найти и выделить»​ в документах Excel.​ верхнем правом углу.​«Буфер обмена»​и​на ленте. Затем​ чего вы её​ Excel).​

​ 1 To n_​​Шаблон поиска точек,​Sub StrToNum() Cells.Replace​ чтобы была везде​: Сначала вы -​ формат.​ не обойтись без​ и ничего не​Нажать на Visual Basic.​ и в выпадающем​

​ Большинство из этих​​Далее выделяем диапазон, в​. Можно сделать и​
​«Новый текст»​ открывается небольшое меню,​ производите. Одно дело,​В более ранних​ Step 3​ подлежащих замене на​ «.», «.», 2​ «запятая»? Помогите пожалуйста.​ дайте ваш пример-хотелку…​3) Выделить исходный​ двух строчек в​ меняет….​В появившемся окне вставить​ списке выберите «Заменить».​ вариантов предполагают изменение​ котором следует произвести​ проще, а именно​. В поле​ в котором следует​ если вы проводите​ надо поменять региональные​a_ = Mid(ss,​ запятые, примерно такой:​

​ End Sub​​Алексей К​Да вчитайтесь в​ лист с информацией​
​ начале програмы:​noemotion​ текст, который будет​В окне, что появится,​ формата данных с​ трансформацию. Щелкаем по​ после выделения диапазона​«Текст»​ выбрать пункт​ данную процедуру просто​ настройки в Панели​ i, 3)​ sd*(.)d*s​При этом надо​: А если попробовать​ предложенные варианты, и​ и выполнить операцию​Application.ScreenUpdating = False​: Проблема есть. И​ указан под этим​ в поле «Найти»​ числового на текстовый.​ кнопке​
​ набрать комбинацию клавиш​нужно указать адрес​«Заменить…»​ потому, что визуально​
​ управления. Excel воспримет​

​jj = WorksheetFunction.Find(«.»,​122334boss​ учитывать совет из​ так: Ctrl+H «найти»​
​ опишите в каких​ копирования.​ Application.Calculation = xlCalculationManualи​ никакие форматы действительно​ списком.​ введите точку, а​ Это ведет к​«Макросы»​ на клавиатуре​ ячейки, где размещены​.​ лучше воспринимаете точку​ их немедленно, без​ a_)​: Gustav,​ ответа #2. Такой​ . (точка), «заменить​ настройках XL реально​4) Находясь в​ одной сточки в​ не спасают. Поэтому​Закрыть окно.​ в «Заменить на»​ тому, что программа​, которая расположена все​Ctrl+1​ данные, которые следует​После этого запускается инструмент​ как разделитель и​ перезагрузки.​If Err.Number =​для меня это​
​ код ничего не​
​ на» , (запятая).​ работаете.​ созданном листе выполнить​ конце программы:​ вижу выход только​Теперь можно приступать к​
​ — запятую.​ не может задействовать​ в той же​.​ изменить. Для этого​
​«Найти и заменить»​ не планируете использовать​Можно поменять «.»​ 0 Then​
​ еще сложно, проще​ поменяет в нечисловых​У меня в​Мотя​ операцию ‘Правка-Специальная вставка-Значения’.​Application.Calculation = xlCalculationAutomatic​ один — выполнить​ замене.​
​Нажмите кнопку «Заменить все».​ эти выражения в​ группе инструментов​Выделяем исходный диапазон. Щелкаем​ устанавливаем курсор в​
​во вкладке​ эти числа в​
​ на «,» через​aa_ = Replace(a_,​ вариантов нет?​ ячейках, а числовые​
​ Вашем файле везде​: В панели управления​5) Выделить столбец​проще не пеши​
​ замену с помощью​Выделите нужные ячейки.​Это был первый способ,​
​ вычислениях. Но также​«Код»​ по выделению правой​
​ данное поле, а​«Заменить»​
​ расчетах. Совсем другое​ Ctrl+H.​ «.», «,»)​Gustav​ станут восприниматься Эксом​ запятые. Может в​ — «Язык и​ с числами в​ её а нормально​
​ макросов, то есть​Перейдите во вкладку «Разработчик».​

CyberForum.ru

Как заменить на диаграмме запятую на точку?

​ как в Excel​​ существует способ произвести​
​.​ кнопкой мыши. Появляется​ затем щелкаем мышью​. В поле​ дело, если вам​Можно использовать формулы​If IsNumeric(aa_) Then​: Можно попробовать так.​ правильно.​ настройках Excel в​ региональные стандарты»: Числа,​ текстовом формате.​ выучи VBAСпасибо всем​ вручную обработать значение​Нажмите кнопку «Макросы».​ заменить точку на​ трансформацию запятых в​Открывается окно со списком​
​ контекстное меню. В​ на листе по​«Найти»​ нужно сменить знак​ типа Код =—ПОДСТАВИТЬ(A1;».»;»,»)​

​ss = Replace(ss,​​ Команда меню «Текст​122334boss​ качестве разделителя у​

​ Разделитель целой и​​6) Дать этому​ все просто супер…​

​ ячейки (предварительно конвертировав​​В появившемся окне выделите​ запятую. Но возможно,​ точки с сохранением​

​ имеющихся в книге​​ нем выполняем щелчок​

​ первой ячейке изменяемого​​устанавливаем знак​ именно для расчета,​lasombras​ a_, aa_)​ по столбцам», разделитель​: добрый день.​

​ Вас указана точка?​​ дробной части.​​ столбцу числовой формат.​Sub CSV() Dim​ его в текст),​ недавно созданный макрос.​
​ он вам не​ исходного форматирования. Для​ макросов. Выбираем тот,​

​ по пункту​​ диапазона. Сразу после​«,»​​ так как в​: Получилось. Спасибо большое,​End If​ — пробел. Дальше​подскажите как можно​

​MISTER noname​​Мотя​7) Выполнить групповую​ word As String​ заменяя символ ‘,’​Нажмите «Выполнить».​

​ подойдет, поэтому переходим​​ этого нужно будет​
​ который недавно создали​«Значения»​ этого адрес появится​

​, а в поле​​ будущем документ будет​ Вы сильно помогли.​End If​ в «числовых» колонках​
​ быстро заменить в​: Не могу выполнить​: Charlene!​ операцию по замене​ Dim stroka As​ символом ‘.’ .​После этого задачу, как​ ко второму.​

​ изменить настройки самой​​ через редактор. После​
​, который расположен в​ в окне аргументов.​«Заменить на»​ обрабатываться в англоязычной​ Я очень давно​

​Err.Clear​​ меняем точку на​ числах точку на​

​ замену-меняет везде точки​​Зачем Вам нужна​ точек на зяпятые​ Integer Dim yacheyka​ До этого нужно​ в Excel заменить​Сейчас мы разберемся, как​ программы.​ того, как выделили​ группе​ В поле​—​ версии Эксель.​ мучился с этой​Next i​ запятую. Окончательно собираем​ запятую?​ на запятые, а​ эта «идея фикс»​ (Правка-Замена). Если исходные​

planetaexcel.ru

Изменить точку на запятую при трансляции данных

​ As String stroka​​ сделать формат ячеек​ точку на запятую,​ с помощью формулы​Автор: Максим Тютюшев​ строку с его​«Параметры вставки»​«Старый текст»​«.»​Наиболее простой способ выполнение​ проблемой.​ZamTo = ss​ формулой с &​заранее благодарен.​ мне необходимо только​ со сменой разделителя?​ текстовые значения содержали​ = 1 Range(‘C’​ текстовым.​ можно считать решенной.​

​ заменить запятую на​​Профессионально работающие в «Эксель»​ наименованием, щелкаем по​. Данный пункт обозначен​устанавливаем следующий символ​
​. Щелкаем по кнопке​ трансформации запятой на​Как в excel 2007​On Error GoTo​ или СЦЕПИТЬ снова​ArkaIIIa​

​ в ячейке С.​​Charlene​ запятую как разделитель​ & row_number).Select Do​demonlegion​ Переходим к последнему​ точку в Excel.​ люди зачастую сталкиваются​ кнопке​ цифрами​ –​«Заменить все»​ точку – это​ все точки в​ 0​ в единую строку.​: ctrl+f, вкладка «заменить»​

​ А как изменить​​: А! Ура! Помогло!​ разрядов (например ‘1,234.876.30’)​ While (ActiveCell.Value >​: Как это сделать?​

​ — четвертому методу.​​ Его суть заключается​ с необходимостью заменить​
​«Выполнить»​«123»​«,»​.​ применение инструмента​ столбце заменить на​End Function​122334boss​ — заменить «.»​

​ в настройках Excel?​​ Через панель управления!​ сначала необходимо заменить​ 0) yacheyka =​ Файл и так​Данный способ подойдет в​ в том, что​ запятую (,) на​
​.​.​. В поле​Открывается информационное окно, в​«Найти и заменить»​ запятые? очень надо)​122334boss​: Gustav,​

​ на «,»​​ Мне необходимо чтобы​ :{} , Мотя,​ запятую на ‘пусто’.​ Range(‘C’ & stroka).Value​

​ после макроса становится​​ тех случаях, когда​
​ с помощью специального​ точку (.). Чаще​Выполняется преобразование. Запятые будут​
​После этих действий значения​«Новый текст»​ котором предоставляется отчет​

​. Но, сразу нужно​​Герман​: _Boroda_,​
​если разнести по​А если формулой,​ данные в ячейку​
​ спасибо!​Вот, собственно и​ word = Cells(stroka,​ нормальным для понимания​ нужно произвести замену​ оператора мы преобразуем​ всего это связано​ трансформированы в точки.​

planetaexcel.ru

замена в числах точки на запятую (Формулы/Formulas)

​ будут вставлены в​​ставим точку –​
​ о выполненной трансформации.​ отметить, что для​: либо выделить все​интересно получается…​
​ столбцам с помощь​

​ то:​​ С лист «данные»​Вы понимаете, пишу​ все…​
​ 3).Value For k​ csvшником, помоги плиз…​
​ так, чтобы формулы​

​ данные в других​​ с редактированием файлов​
​Урок:​ соответствующий диапазон. При​«.»​ Делаем щелчок по​ вычислений такой способ​ столбцы и сделать​спасибо..​

​ пробела, не совсем​​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ПОДСТАВИТЬ(A1;».»;»,»)​​ поступали с «запятой»,​
​ научную статью, а​

​Charlene​​ = 1 To​

​ ну а с​​ оставались действенными. Выполняется​ ячейках, а потом​​ англоязычной локализации, так​

​Как создать макрос в​​ этом запятые будут​
​. После того, как​ кнопке​ не подойдет, так​ замену, (я же​122334boss​ быстрый способ, проблема​122334boss​ тогда формулы будут​ правила журнала требуют​

​: Добрый день.​​ Len(word) If Mid(yacheyka,​
​ меня пиво само​ он следующим образом:​ перенесем их на​ как за рубежом​ Excel​ трансформированы в точки.​ данные внесены, щелкаем​«OK»​

​ как содержимое ячеек​​ не могу знать​: _Boroda_,​ в том, что​

​: ArkaIIIa,​​ корректны. Еще раз​
​ именно такой формат.​Подскажите пожалуйста, как​

​ k, 1) =​​ собой…, если ты​Нажмите кнопку «Файл».​ необходимый диапазон:​ единый стандарт подразумевает​Следующий способ единственный среди​
​ Чтобы удалить уже​ по кнопке​.​ будет преобразовано в​

​ какую вы таблицу​​подскажите,​
​ числа могут стоять​ctrl +H так​ проверил файл- там​

​ Два дня голову​​ решить проблему? Требуется,​ ‘,’ Then Mid(word,​ из Москвы​Перейдите в меню «Параметры».​Кликаем по ячейке, которая​ использование в качестве​ вышеперечисленных, при котором​ не нужную нам​«OK»​Программа выполняет процедуру трансформации​

​ текстовый формат.​​ используете) , либо​
​пытался применить вашу​ с текстовым значением​ быстрее, таким способом​ в ячейке С​ ломаем всей кафедрой.))​ чтобы в статье​ k, 1) =​noemotion​В появившемся окне перейдите​ располагается первой рядом​ разделителя десятичных чисел​

​ при трансформации запятых​​ область, заполненную формулами,​​.​
​ запятых на точки​
​Производим выделение области на​
​ в свойствах таблицы​
​ формулу на другом​
​ не подряд, нужно​ все точки!!! даже​
​ данные с "точкой".​
​ Вы нас очень​ дробные числа разделялись​
​ '.' Cells(stroka, 3).Value​
​: Можно что-нить подобное​
​ в раздел "Дополнительно".​
​ с теми, в​ точку, в то​
​ в точки выражение​ выделяем её и​
​Как видим, для первой​ в выделенном диапазоне.​
​ листе, где нужно​ заменить стиль/вид (денежный,​
​ файле, она не​
​ будет долго заменять​
​ в конце предложения​
​Алексей К​
​ выручили, ребята!​ точкой, а не​ = word Exit​
​ сделать:​В меню «Параметры вставки»​

​ которых нужно произвести​​ время как у​
​ будет восприниматься программой​
​ щелкаем правой кнопкой​

​ ячейки преобразование выполнено​​ На этом данную​ трансформировать запятые в​
​ например или другой​
​ заработала (копировал даже​ выборочно по ячейкам,​
​ будут изменены, а​: Файл-Параметры-Дополнительно-Использовать системные разделители​
​Мотя​
​ запятой. В ячейках-то​ For End If​sub zpt() dim​
​ уберите отметку рядом​ замену.​
​ нас - запятую.​ как число, а​
​ мыши. В появившемся​ успешно. Подобную операцию​
​ задачу можно считать​ точки. Выполняем щелчок​
​ именно с запятыми).​
​ значения с вашего​ а затем сцепить...​
​ мне нужно только​
​ (в окошке должна​
​: Charlene!​
​ я могу поменять​
​ Next stroka =​
​ str,stlb,intInd as Integer​ с "Использовать системные​
​Нажимаем на кнопку "Вставить​

​ И наоборот, для​​ не как текст.​
​ меню выбираем пункт​
​ можно провести и​

​ решенной. Но следует​​ правой кнопкой мышки.​
​Александр баканов​
​ файла и вставлял​Gustav​ в числах.​ стоять ,) Это​Не забудьте вернуть​ вручную или функцией​ stroka + 1​ dim strName1, strNewName​

​ разделители».​​ функцию».​
​ разделения разряда используют​ Для этого нам​

excelworld.ru

Запятая вместо точки.

​«Очистить содержимое»​​ для всех других​ помнить, что данные,​ В запустившемся контекстном​: взависимости от кол-ва​ на чистый лист),​:​ArkaIIIa​ для 2010 офиса.​ «всё на круги​ «Найти и заменить»,​ Range(‘C’ & stroka).Select​ as String for​В пункте «Разделитель целой​В списке находим функцию​ запятую, а у​ нужно будет поменять​.​ ячеек нужного диапазона.​ замененные таким способом​ меню отмечаем пункт​ точек… столько раз​ в чем сложность?​200?’200px’:»+(this.scrollHeight+5)+’px’);»>Function ЗАМЕНАТОЧКИ(myString As String)​:​k61​ своя», чтобы потом​ но для построения​ Loop End SubА​ str=1 to n​ и дробной части»​
​ «Подставить».​ нас — точку.​

​ системный разделитель в​​Преобразование данных по смене​ Хорошо, если этот​ будут иметь текстовый​«Формат ячеек…»​ нажми бэкспэйс, а​122334boss​
​Dim objRegExpAs Object​122334boss​: В код листа​ не иметь «геморроя»​ диаграммы эти ячейки​ зачем здесь вводить​
​ ‘ n-количество строк​ замените запятую на​Кликаем по «ОК».​
​ В этой статье​ настройках с запятой​

​ запятых на точки​​ диапазон небольшой. Но​ формат, а, значит,​. Те пользователи, которые​ потом столько же​: _Boroda_,​

CyberForum.ru

Как в excel 2007 все точки в столбце заменить на запятые?

​Dim objMatchAs Object​Файл прикладывайте.​ «Данные»​ с EXCEL.​

​ Excel 2007 не​​ переменную ‘yacheyka’?Чтобы меньше​ for stlb=1 to​ точку.​Далее возникнет окно функции,​ мы поговорим о​ на точку.​ выполнено, а все​ что делать, если​ не смогут быть​ предпочитают пользоваться альтернативными​

​ раз точку))))))​​спасибо , буду​Dim colMatchesAs Object​122334boss​Private Sub Worksheet_Activate()​Charlene​

​ воспринимает. Как быть?​