Страницы: 1
RSS
Дан ряд чисел через запятую. размножить значение в хвосте.
 
вот есть значение
20030102,000000,1.64

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

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

спасибо
Изменено: Artsem K - 22.04.2019 17:39:53
 
Код
=A1&ПОВТОР(ПРАВСИМВ(A1;5);3)
Согласие есть продукт при полном непротивлении сторон
 
еще вариация
Код
=ПОДСТАВИТЬ(ЛЕВБ(A1;16)&ПОВТОР(ПРАВБ(A1;4)&",";4);",";"";6)
Лень двигатель прогресса, доказано!!!
 
А вот макрос тогда:
Код
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


З.Ы. Здравствуйте.
Кому решение нужно - тот пример и рисует.
 
Ради прикола, командой CMD
Код
for /f "tokens=1,2,3 delims=," %i in (T10YIE.csv) do @echo %i,%j,%k,%k,%k,%k >> new.csv
 
да, сделал (формулой, макросы мне недоступны и неизвестны), и рад.

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