Дан ряд чисел через запятую. размножить значение в хвосте.

Модератор

Сообщений: 19887 Регистрация: 10.01.2013

22.04.2019 15:32:35

Код
=A1&ПОВТОР(ПРАВСИМВ(A1;5);3)

Согласие есть продукт при полном непротивлении сторон

Сергей

Пользователь

Сообщений: 11247 Регистрация: 01.01.1970

22.04.2019 15:36:07

еще вариация

Код
=ПОДСТАВИТЬ(ЛЕВБ(A1;16)&ПОВТОР(ПРАВБ(A1;4)&",";4);",";"";6)

Лень двигатель прогресса, доказано!!!

Пытливый

Пользователь

Сообщений: 4725 Регистрация: 22.12.2012

22.04.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

З.Ы. Здравствуйте.

Кому решение нужно - тот пример и рисует.

Казанский

Пользователь

Сообщений: 8839 Регистрация: 11.01.2013

22.04.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

Читают тему