Недавно я столкнулся с такой проблемой - есть таблица из 1000+ строк и два столбца ( находятся не рядом). В первом столбце куча цифр и формул ПРОМЕЖУТОЧНЫЕ.ИТОГИ. Во втором столбце стоят уже другие цифры, а на месте формул пусто. И вот мне нужно скопировать формулы (со сдвигом) из первого столбца во второй. Пробовал делать как в этой теме: http://www.excelworld.ru/forum/2-37980-1 Но там копируются значения (а мне нужно, чтобы скопировались формулы).
Option Explicit
Public Sub Фильтр_Копировать_Параллельно()
Dim rng As Range
Set rng = Selection.SpecialCells(xlCellTypeVisible)
On Error Resume Next
Dim rngInput As Range
Set rngInput = Application.InputBox(Prompt:="Выберите ячейку или введите в формате A1:", Type:=8)
On Error GoTo 0
If Not rngInput Is Nothing Then
Dim СтолбецСмещения
СтолбецСмещения = rngInput.Column - rng.Column
Else
Exit Sub '==>>
End If
Dim eL As Range
For Each eL In rng
eL.Copy
eL.Offset(0, СтолбецСмещения).PasteSpecial xlPasteFormulas
Next
MsgBox "Всё !"
End Sub
Дмитрий(The_Prist) Щербаков, спасибо. Путём разных преобразований создал из кусков советованного кода ужасного кадавра (. Но конкретно по моей задаче он сработал.