Копирование формул из одного отфильтрованного столбца в другой отфильтрованный столбец

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

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

09.12.2020 22:01:11

Всем доброго времени суток!

Недавно я столкнулся с такой проблемой - есть таблица из 1000+ строк и два столбца ( находятся не рядом). В первом столбце куча цифр и формул
ПРОМЕЖУТОЧНЫЕ.ИТОГИ. Во втором столбце стоят уже другие цифры, а на месте формул пусто. И вот мне нужно скопировать формулы (со сдвигом)
из первого столбца во второй.
Пробовал делать как в этой теме:
http://www.excelworld.ru/forum/2-37980-1
Но там копируются значения (а мне нужно, чтобы скопировались формулы).

Макрос отсюда тоже что-то не помогает:
https://www.planetaexcel.ru/techniques/2/173/

На всякий случай прилагаю пример, для иллюстрации задачи. Зелёным выделены формулы, которые нужно скопировать.Вопрос.xlsx
Буду благодарен за помощь.

Прикрепленные файлы

Вопрос.xlsx (12.27 КБ)

Александр П.

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

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

10.12.2020 02:07:47

derekT, Вариант. Немного изменил макрос отсюда, 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) Щербаков

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

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

Профессиональная разработка приложений для MS Office

10.12.2020 08:36:36

Может код отсюда поможет: Как вставить скопированные ячейки только в видимые/отфильтрованные ячейки

Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

derekT Пользователь Сообщений: 37 Регистрация: 08.04.2017	#4 10.12.2020 09:52:33 Дмитрий(The_Prist) Щербаков, спасибо. Путём разных преобразований создал из кусков советованного кода ужасного кадавра (. Но конкретно по моей задаче он сработал.