Замена формулы на значения

[war777]

Подскажите, возможно ли подставить полученное по формуле  значение из столбца А  в столбец В ? Копировать/вставить не подойдёт.

[DV68]

А копировать/ПКМ/спецвставка/значение не подойдет?

[war777]

Я ж написал , что не подойдёт(( Хотелось бы, чтобы без лишних движений мышкой)) С VBA вроде возможно, только он меняет все/выбранные формулы  на листе/книге, а мне нужно по отдельным столбцам....да и незнаком я с VBA ещё))

[_Boroda_]

макрос
тупо берет весь столбец А и ставит в столбец В значениями

Код Выделить Развернуть

Sub tt()
[b:b] = [a:a].Value
End Sub

[war777]

А если таких столбцов 50+ и нужно подставить А в С, В в D, Е в G, F в H, I в K, J в L и так далее..
если не затруднит.
С уважением.

[war777]

Вот пример

[_Boroda_]

Тогда так (см. вложение)
первая и последняя строки не копируются
если последнюю тоже нужно копировать, то r_ = Range("A" & Rows.Count).End(xlUp).Row - 1

Код Выделить Развернуть

Sub tt()
r_ = Range("A" & Rows.Count).End(xlUp).Row - 2
c_ = Cells(1, Columns.Count).End(xlToLeft).Column
For i = 1 To c_ Step 4
    Cells(2, i + 2).Resize(r_, 2) = Cells(2, i).Resize(r_, 2).Value
Next
End Sub

[war777]

Спасибо.. и ещё одна маленькая просьба...что нужно изменить в коде если нужные столбцы начинаются с H и до BL(левая часть таблицы статична)
С уважением

[_Boroda_]

Н - это 8-й столбец, следовательно, цикл по столбцам должен начинаться не с 1, а с 8
For i = 8 To c_ Step  4