Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти  
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Дан ряд чисел через запятую. размножить значение в хвосте.
 
#1
22 Апр 2019 15:25:47
вот есть значение
20030102,000000,1.64

хотелось бы сделать
20030102,000000,1.64,1.64,1.64,1.64

(если интересно: было price, а нужно open high low close, чтобы программа проглотила значение)

спасибо
Изменено: Artsem K - 22 Апр 2019 17:39:53
 
 
 
#2
22 Апр 2019 15:32:35
Код
=A1&ПОВТОР(ПРАВСИМВ(A1;5);3)
Согласие есть продукт при полном непротивлении сторон.
 
 
 
#3
22 Апр 2019 15:36:07
еще вариация
Код
=ПОДСТАВИТЬ(ЛЕВБ(A1;16)&ПОВТОР(ПРАВБ(A1;4)&",";4);",";"";6)
Лень двигатель прогресса, доказано!!!
 
 
 
#4
22 Апр 2019 15:38:57
А вот макрос тогда:
Код
Sub AddValues()
    Dim arrIn, arrP, lngI As Long, bytB As Byte
    arrIn = Range("A1").CurrentRegion.Value
    For lngI = 1 To UBound(arrIn, 1)
        arrP = Split(arrIn(lngI, 1), ",")
        For bytB = 1 To 3
        arrIn(lngI, 1) = arrIn(lngI, 1) & "," & arrP(UBound(arrP))
        Next bytB
    Next lngI
    Range("D1").Resize(UBound(arrIn, 1), 1) = arrIn
End Sub


З.Ы. Здравствуйте.
Кому решение нужно - тот пример и рисует.
 
 
 
#5
22 Апр 2019 17:37:12
Ради прикола, командой CMD
Код
for /f "tokens=1,2,3 delims=," %i in (T10YIE.csv) do @echo %i,%j,%k,%k,%k,%k >> new.csv
 
 
 
#6
27 Апр 2019 15:23:10
да, сделал (формулой, макросы мне недоступны и неизвестны), и рад.

п.с. но программа отобразила файл как совокупность точек [барный график]. выбрал [линейный график], и рад.
Изменено: Artsem K - 27 Апр 2019 15:25:33
 
 
 
Страницы: 1
Читают тему (гостей: 1)
Наверх