Вечер господа! Помогите с функцией замены текста. Нужно обработать массив данных вырезав сперва запятую, а потом заменив точку на запятую(потому что видетели программисты в своей программе считают нормально что число представлено как 1.256,012). Набросал макросик но он мне ее вообще обрезает. На выходе получаю слитое число, еще и представленное как текст в добавок. Кто сталкивался?
Код
[B12:Z43].Replace What:=",", Replacement:=""
[B2:F9].Replace What:=".", Replacement:=","
[B12:Z43].Replace What:=".", Replacement:=","
MsgBox "All dots was replatsement to comma", vbInformation, "Done"
Да, даже тысячные с отрнцательным знаком. Он мне с этого 1496.608 делает вот это 1496608 и пишет что число сохранено как текст
Пользователь
Сообщений: Регистрация: 01.01.2017
01.01.2017 22:16:38
А обработать хочу вот это для екселя
Изменено: - 02.01.2017 00:20:08
Пользователь
Сообщений: Регистрация: 14.08.2015
01.01.2017 22:17:37
Zimba, Пример пожалуйста покажите, а не то потом окажется, что существуют еще какие-то доп условия вы эти данные получаете именно в таком виде? И так ли вам необходим именно макрос? Просто сейчас это можно сделать путем вставки на ваш лист и применением "Данные" - "Текст по столбцам" с выставлением необходимых настроек
Скрытый текст
0
-0,001
-0,003
0,003
0,001
1496,626
1496,61
1496,648
0
24,64
24,5
24,7
0,06
0,046
0,03
0,057
0,003
-4,86E-11
-2,00E-10
1,96E-10
5,04E-11
0,00011
0,00011
0,00011
0
1
0,002
-0,001
0,004
0,001
1496,61
1496,588
1496,629
0
21,25
21,1
21,3
0,05
0,001
0,001
0,001
0
1,24E-10
-5,63E-11
2,98E-10
5,34E-11
0,00011
0,00011
0,00011
2,98E-08
2
-0,001
-0,003
0,001
0,001
1496,617
1496,593
1496,641
0
17,25
17,1
17,3
0,05
0,025
0,017
0,032
0,002
-4,57E-11
-2,26E-10
9,14E-11
4,10E-11
0,00011
0,00011
0,00011
0
3
-0,001
-0,004
0,001
0,001
1496,632
1496,61
1496,654
0,707
21,47
21,4
21,6
0,06
0,036
0,03
0,043
0,002
-7,01E-11
-3,04E-10
8,02E-11
5,57E-11
0,00011
0,00011
0,00011
0
4
-0,001
-0,003
0,002
0,001
1496,621
1496,597
1496,649
0
15,29
15,2
15,4
0,07
0,01
0,006
0,015
0,001
-4,83E-11
-2,33E-10
1,21E-10
6,38E-11
0,00011
0,00011
0,00011
0
5
0
-0,002
0,002
0,001
1496,583
1496,56
1496,606
0
17,43
17,3
17,5
0,06
0,012
0,005
0,02
0,002
-2,31E-11
-1,60E-10
1,45E-10
4,63E-11
0,00011
0,00011
0,00011
4,21E-08
6
-0,002
-0,004
0
0,001
1496,597
1496,573
1496,62
0,707
20,36
20,2
20,5
0,06
0,011
0,007
0,032
0,003
-1,18E-10
-2,98E-10
6,94E-12
4,42E-11
0,00011
0,00011
0,00011
4,21E-08
7
0
-0,005
0,004
0,001
1496,627
1496,604
1496,644
0
26,47
26,3
26,6
0,07
0,04
0,022
0,056
0,005
2,35E-11
-3,94E-10
3,32E-10
9,03E-11
0,00011
0,00011
0,00011
0
8
-0,001
-0,003
0,002
0,001
1496,587
1496,557
1496,608
0,5
21,32
21,2
21,4
0,07
0,038
0,025
0,045
0,002
-6,35E-11
-2,08E-10
1,28E-10
5,40E-11
0,00011
0,00011
0,00011
5,16E-08
9
-0,001
-0,003
0,002
0,001
1496,583
1496,563
1496,603
0,5
24,28
24,2
24,4
0,07
0,001
0
0,01
0,001
-5,49E-11
-2,28E-10
1,44E-10
6,05E-11
0,00011
0,00011
0,00011
2,98E-08
10
0
-0,004
0,006
0,002
1496,586
1496,562
1496,606
0,5
23,7
23,5
23,8
0,07
0,105
0,091
0,123
0,004
1,97E-11
-3,32E-10
4,31E-10
1,38E-10
0,00011
0,00011
0,00011
0
11
-0,002
-0,004
0,001
0,001
1496,615
1496,59
1496,657
0,5
24,88
24,7
25
0,07
0,025
0,011
0,036
0,003
-1,29E-10
-3,07E-10
5,27E-11
4,88E-11
0,00011
0,00011
0,00011
0
12
-0,002
-0,006
0,002
0,001
1496,632
1496,606
1496,654
0,5
23,15
23
23,3
0,05
0,022
0,003
0,033
0,003
-1,60E-10
-4,57E-10
1,16E-10
6,86E-11
0,00011
0,00011
0,00011
2,98E-08
13
-0,001
-0,002
0,001
0
1496,615
1496,59
1496,637
0
16,17
16,1
16,3
0,06
0,014
0,01
0,021
0,001
-5,42E-11
-1,87E-10
1,12E-10
3,76E-11
0,00011
0,00011
0,00011
0
14
0,001
0
0,003
0,001
1496,628
1496,603
1496,651
0
15,55
15,4
15,7
0,06
0,02
0,008
0,028
0,003
7,80E-11
-3,42E-11
2,34E-10
4,38E-11
0,00011
0,00011
0,00011
0
15
0,001
-0,002
0,004
0,001
1496,609
1496,589
1496,629
0
21,47
21,3
21,6
0,06
0,01
0,004
0,019
0,002
1,10E-10
-1,21E-10
2,87E-10
5,90E-11
0,00011
0,00011
0,00011
0
16
-0,001
-0,003
0,001
0,001
1496,626
1496,593
1496,65
0
24,37
24,3
24,5
0,06
0,012
0,008
0,017
0,001
-7,53E-11
-2,74E-10
1,04E-10
5,64E-11
0,000109
0,000109
0,000109
4,21E-08
17
0,001
-0,002
0,004
0,001
1496,652
1496,63
1496,669
0
26,69
26,5
26,8
0,07
0,252
0,228
0,286
0,007
1,13E-10
-1,72E-10
4,69E-10
9,51E-11
0,00011
0,00011
0,00011
2,98E-08
18
0,001
0
0,003
0,001
1496,622
1496,598
1496,644
0,707
14,83
14,7
14,9
0,06
0
0
0,001
0
1,36E-10
-1,83E-11
2,87E-10
5,42E-11
0,00011
0,00011
0,00011
0
19
-0,001
-0,002
0,001
0,001
1496,617
1496,599
1496,635
0
14,56
14,5
14,7
0,06
0
0
0,002
0
-7,95E-11
-2,32E-10
8,53E-11
5,89E-11
0,00011
0,00011
0,00011
0
20
0
-0,002
0,002
0,001
1496,597
1496,577
1496,629
0
21,21
21
21,3
0,07
0,003
0
0,007
0,001
-3,39E-11
-2,57E-10
1,70E-10
7,48E-11
0,000109
0,000109
0,000109
2,98E-08
21
0,002
0,001
0,003
0
1496,609
1496,588
1496,636
0
15,33
15,2
15,4
0,07
0,005
0,002
0,008
0,001
2,28E-10
7,27E-11
3,35E-10
4,48E-11
0,00011
0,00011
0,00011
0
22
0,001
0
0,003
0,001
1496,569
1496,546
1496,591
0
18,26
18,1
18,4
0,06
0,001
0
0,003
0
1,54E-10
-3,70E-11
2,99E-10
6,56E-11
0,000109
0,000109
0,000109
2,98E-08
23
-0,001
-0,003
0,001
0,001
1496,589
1496,553
1496,621
0,707
21,04
20,9
21,1
0,06
0,039
0,028
0,048
0,002
-1,40E-10
-3,36E-10
1,04E-10
5,50E-11
0,00011
0,00011
0,00011
0
24
0
-0,001
0,001
0
1496,583
1496,557
1496,613
0,5
16,54
16,4
16,6
0,06
0,001
0,001
0,001
0
1,14E-11
-1,14E-10
1,37E-10
3,85E-11
0,00011
0,00011
0,00011
2,98E-08
25
0,002
0
0,004
0,001
1496,573
1496,543
1496,6
0
22,56
22,5
22,7
0,06
0,007
0,003
0,016
0,002
1,77E-10
-3,83E-11
3,71E-10
7,58E-11
0,00011
0,00011
0,00011
0
26
-0,001
-0,003
0,001
0,001
1496,565
1496,542
1496,595
0
22,17
22
22,3
0,06
0,181
0,17
0,197
0,004
-1,01E-10
-2,70E-10
7,77E-11
5,31E-11
0,000109
0,000109
0,000109
2,98E-08
27
-0,003
-0,004
-0,001
0
1496,625
1496,597
1496,646
0
18,15
18,1
18,2
0,05
0,003
0
0,008
0,001
-2,77E-10
-4,44E-10
-1,39E-10
4,98E-11
0,000109
0,000109
0,000109
5,16E-08
28
-0,001
-0,004
0,001
0,001
1496,636
1496,594
1496,663
0
22,75
22,7
22,9
0,05
0
0
0,003
0
-1,46E-10
-3,96E-10
6,16E-11
5,29E-11
0,00011
0,00011
0,00011
5,16E-08
29
0,001
0
0,002
0
1496,637
1496,611
1496,671
0
20,19
20
20,3
0,07
0,011
0,008
0,016
0,001
1,12E-10
-4,74E-11
2,58E-10
4,91E-11
0,00011
0,00011
0,00011
0
30
0,003
0,001
0,004
0
1496,599
1496,578
1496,617
0
17,03
16,9
17,1
0,06
0,004
0,001
0,008
0,001
2,87E-10
1,36E-10
4,29E-10
4,93E-11
0,00011
0,00011
0,00011
2,98E-08
31
0
-0,002
0,002
0,001
1496,581
1496,55
1496,603
0,5
22,38
22,3
22,5
0,07
0,027
0,019
0,039
0,002
3,63E-11
-1,78E-10
1,94E-10
5,85E-11
0,00011
0,00011
0,00011
4,21E-08
Изменено: - 01.01.2017 22:39:14
Пользователь
Сообщений: Регистрация: 01.01.2017
01.01.2017 22:35:51
Да данные получаю в этом виде, они ровненько вставляются в эксель это здесь они так сьежились. Нужен макрос...
Какой пример? Надо приврать это 1,496.542 в вот это 1496,542 и это 1496.608 в вот это 1496,608 что бы эксель числа понимал. Он же не поймет что от него нада.
Пользователь
Сообщений: Регистрация: 14.08.2015
01.01.2017 22:53:23
Пример того. что указано в вашем 4 сообщении. Как он выглядит именно в вашем файле xls/xlsx/csv/богегознаеткакоеещерасширение. То есть загрузить сюда сам файл.
Потому что не видя его - единственное, что можно посоветовать, это либо воспользоваться советом от Юрий М, либо тем,что написано в сообщении .
Нет. Или циклом перебрать ячейки диапазона, или забрать диапазон в массив, обработать, выгрузить обратно на лист. Если строк не тысячи, то можно по ячейкам: выделяем диапазон и выполняем макрос:
Код
Sub TestReplace()
Dim rCell As Range
For Each rCell In Selection
rCell = Val(Replace(rCell, ",", ""))
Next
End Sub
Пользователь
Сообщений: Регистрация: 21.12.2012
01.01.2017 23:37:16
А как быть с данными 21.10.2017 , которые отображаются 21.окт
Модератор
Сообщений: Регистрация: 14.09.2012
Контакты см. в профиле
01.01.2017 23:40:13
Кузьмич, это вопрос мне или автору? )) Если мне, то не знаю, откуда они (даты) там взялись. Можно добавить проверку.
Пользователь
Сообщений: Регистрация: 21.12.2012
01.01.2017 23:43:20
Посмотрел файл
(21.67 КБ)
а есть еще и такие -4.574734E-11
Изменено: - 02.01.2017 01:37:05
Пользователь
Сообщений: Регистрация: 01.01.2017
01.01.2017 23:47:42
Цитата
Kuzmich написал: А как быть с данными 21.10.2017 , которые отображаются 21.окт
Вообщем я понял, что вы не знаете как это элементарно сделать. Красивый форум а толку мало
Изменено: - 02.01.2017 00:38:44
Пользователь
Сообщений: Регистрация: 14.08.2015
02.01.2017 01:35:06
Zimba, Вам предложили вариант в сообщении , за вас все сделали в сообщении . И если это элементарно - зачем вам какие-то красивые форумы?
С наступившим новым годом Вас)
Модератор
Сообщений: Регистрация: 14.09.2012
Контакты см. в профиле
02.01.2017 11:02:55
Цитата
Zimba написал: я понял, что вы не знаете как это элементарно сделать. Красивый форум а толку мало
Как сделать - Вам показали. Или это у Вас такая манера говорить спасибо?
Пользователь
Сообщений: Регистрация: 31.12.2012
02.01.2017 11:31:24
Цитата
Вообщем я понял, что вы не знаете как это элементарно сделать. Красивый форум а толку мало
А я понял, что ты просто тролль! Мало того, что сам не знаешь что тебе надо, так ещё обвиняешь форум и форумчан! Тебе уже указали не несоответствие в твоих сообщениях: Определись сначала как в исходных данных: 1.256,012 1,496.542
Изменено: - 02.01.2017 11:31:51
Пользователь
Сообщений: Регистрация: 01.01.2017
02.01.2017 12:06:45
Юрий М, Вы мне кинули кусок кода который не работает, посмотрели мой файл и обратно выложили без изменений его на форум. Спасибо конечно что пытаетесь. Александр Моторин, ну почему же в 12 сообщении исходные данные и таблица. Чтож не понятного уже пятый раз пишу, что надо что бы эксель принимал исходные данные. Как же он поймет число 1,496.542? Сперва запятую надо убрать, а потом точку заменить на запятую...
Модератор
Сообщений: Регистрация: 14.09.2012
Контакты см. в профиле
02.01.2017 12:11:52
Цитата
Zimba написал: Юрий М ,<...>, посмотрели мой файл и обратно выложили без изменений его на форум.
Вы ничего не путаете? Я файл вообще не выкладывал. Подскажите номер сообщения, в котором я ПРИКРЕПИЛ файл.
Пользователь
Сообщений: Регистрация: 01.01.2017
02.01.2017 12:35:13
Юрий М, Пардон, сообщение 19 смотрел и обратно выложил. Ваш код у меня не работает. Не понимаю как его задействовать, помогите разобраться...
