Трансформация относительных ссылок в абсолютные

[d-kiselev]

Добрый день!

Спасибо всем, что вы есть

У меня есть вопрос для мозгового штурма ...

Есть массив данных, который является сводным отчетом и отображает значения ячеек, которые находятся в смежных таблицах. Все ссылки в ячейках имеют абсолютный вид (Пример: A1), а мне для общего отчета в другом листе необходимо из них сделать относительные (пример: $A$1)

Вопрос:
При помощи каких инструментов можно добавить знаки "$A$1" к формулам в ячейках , учитывая то, что общее количество ячеек около пяти тысяч?

[EducatedFool]

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

Sub ConvertFormulaToAbsolute()
    Application.ReferenceStyle = xlA1
    Dim cell As Range
    For Each cell In Selection.Cells
        cf = cell.Formula
        If Not cf = "" Then cell.Formula = Application.ConvertFormula(cf, xlA1, xlA1, True)
    Next
End Sub

Не обязательно выделять только ячейки с формулами.
Не выделяйте весь лист - макрос будет работать очень долго.


Если надо обработать все формулы на текущем листе, используйте такой макрос: (выделять ячейки не требуется)

Sub ConvertFormulaToAbsolute_inUsedRange()
    Application.ReferenceStyle = xlA1
    Dim cell As Range, cf As String
    For Each cell In ActiveSheet.UsedRange.Cells
        cf = cell.Formula
        If Not cf = "" Then cell.Formula = Application.ConvertFormula(cf, xlA1, xlA1, True)
    Next
End Sub

[d-kiselev]

EducatedFool все очень исправно работает!
Огромное спасибо за столь оперативный ответ!!!