Сбор всех формул с листа на отдельный лист" (макрос)

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

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

11.09.2017 11:07:39

Добрый день! Подскажите как можно решить данную задачу:

Нужно собрать все адреса ячеек с формулами и сами формулы с листа "Исходные данные" и вывести их как сделано на листе "Список формул";

Спасибо!

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

Восстановление формул 2.xlsm (15.69 КБ)

Изменено: Macedon - 11.09.2017 11:21:51

kuklp

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

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

E-mail и реквизиты в профиле.

11.09.2017 11:37:23

Цитата
Macedon написал: как сделано на листе "Список формул";

- хлопотно и не нужно в общем. В один столбец адрес, в соседний формулу. Потом и восстанавливать проще. Но это при условии что строки\ячейки с листа-исходника не будут удаляться\добавляться. Если будут, то каждый раз надо восстанавливать резервные формулы..

Код

Sub www()
    Dim c As Range, r As Range
    With Sheets("Исходные данные") '.UsedRange
        For Each c In Sheets("Исходные данные").Cells.SpecialCells(xlCellTypeFormulas, 23)
            Set r = Sheets("Список формул").Cells(Rows.Count, 1).End(xlUp)(2)
            r(1, 2).NumberFormat = "@": r(1, 2).Value = c.Formula: r = c.Address
        Next
    End With
End Sub

Я сам - дурнее всякого примера! ...

Macedon Пользователь Сообщений: 106 Регистрация: 06.10.2013	#3 11.09.2017 11:48:45 kuklp,вот это да! Спасибо Вам огромное!