Замена значений в условном форматировании

[fotos]

Возникла следующая задача - на листе ~2000 ячеек с условным форматированием, в каждой ячейке - три условия, в каждом условии - полностью или частично относительная ссылка.
Нужно переделать все относительные ссылки в абсолютные....

Кто может помочь ? Очень муторно руками их все перебивать (((
Нужен довольно простой макрос, я так понимаю что-то типа

With Worksheets(1).Range("G1:M30").Forma tConditions _
.Modify...
End With

но моих знаний тут не хватает...(

[IgorGO]

тут не лечат по фотографиям, а особенно когда даже фотографии нет.

покажите данные, расскажите что хотите получить в результате, может тогда... это кого-то и заинтересует...

[Казанский]

Пробуйте. Этот макрос должен обработать все ячейки с УФ на текущем листе:

Sub FormCondAbsRef()
Dim fc As FormatCondition, C As Range, cellFrml$, fcType&, fcOper, fcFrml1, fcFrml2
On Error Resume Next
For Each C In Cells.SpecialCells(xlCellTypeAllFormatConditions)
    C.Activate
    cellFrml = C.Formula
    For Each fc In C.FormatConditions
        fcType = fc.Type
        fcOper = fc.Operator
        If Err Then Err.Clear: fcOper = Empty
        C.FormulaLocal = fc.Formula1
        If Err = 0 Then
            C.Formula = Application.ConvertFormula(C.Formula, xlA1, xlA1, True)
            fcFrml1 = C.FormulaLocal
            C.FormulaLocal = fc.Formula2
            If Err = 0 Then
                C.Formula = Application.ConvertFormula(C.Formula, xlA1, xlA1, True)
                fcFrml2 = C.FormulaLocal
            Else
                Err.Clear
                fcFrml2 = Empty
            End If
            fc.Modify Type:=fcType, Operator:=fcOper, Formula1:=fcFrml1, Formula2:=fcFrml2
        End If
        Err.Clear
    Next
    C.Formula = cellFrml
Next
End Sub