Редактирование текста в ячейке

[norline]

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

1 ячейка) CCAP 0402 1pF 21V COG SMC0402C1R0G210NT

2 ячейка) 0402 1pF±2% COG 21V многослойные -55+125°C SMD 1x0.5mm упаковка=10000шт.


в 1ой ячейке меняется 11 позиция (1pF) на значение (+0.5) и соответственно меняется 32,34 позиция (1R0)

было
CCAP 0402 1pF 21V COG SMC0402C1R0G210NT
стало
CCAP 0402 1.5pF 21V COG SMC0402C1R5G210NT
CCAP 0402 2pF 21V COG SMC0402C2R0G210NT
CCAP 0402 2.5pF 21V COG SMC0402C2R5G210NT

на 2 ячейке меняется 6 позиция на то значение что пишем в 1ой ячейке в 11 позиции

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

на деле сейчас лишь с помощью макроса выделяю по 5строк (т.к. повторяется 5 раз) и удаляю,вставляю символы по этим позициям одновременно по 5 строкам.

[OgE®_M@G]

Здравствуйте norline. Файл прикрепить можете.

[norline]

Да конечно, файл добавил

[OgE®_M@G]

Вот что получилось. Добавленные столбцы окрашены желтым. Так пойдет.

[OgE®_M@G]

И еще вопрос можно ли заменить CCAP 0402 1pF 21V COG SMC0402C1R0G210NT на такой например CCAP 0402 1,5pF 21V COG SMC0402C1R0G210NT, то есть использовать запятую вместо точки? Тогда формулу можно немного преобразовать.

[norline]

Спасибо за проявленный вами интерес к проблеме, но это совсем не то что нужно

-
по вашему предложение просто идет подставка текста .5
а нужно чтоб по определенной позиции в ячейке шел процесс сложения на 0.5
я вот и не понимаю, может это нереально сделать)

просто 1pF это значение емкости
оно плавает от 1 до 420 к примеру
шаг 0.5 и вот нужно расписать до 420
в ручную каждый раз менять это в каждой ячейке.. ладно 420 а если 100000

[nerv]

UDF. Надеюсь с системным разделителем проблем не будет. Под это дело не адаптировал.

Function io(x As String, i As Single) As String
    Dim z As Variant
    With CreateObject("VBScript.RegExp")
        .Pattern = "\d+(?:\.\d+)?(?=pF)"
        z = Val(.Execute(x)(0).Value) + i
        io = .Replace(x, z)
        z = Replace(Format(z, "#.0"), ",", "R")
        .Pattern = "\d+R\d"
        io = .Replace(io, z)
    End With
End Function