Sub s()
  Dim v_Cell As Range
  Dim v_Operator( 1  To  8 ) As String
  Dim v_Condition As Long, i As Long
  
  v_Operator(xlBetween) = ">="
  v_Operator(xlNotBetween) = "<"
  v_Operator(xlEqual) = "="
  v_Operator(xlNotEqual) = "<>"
  v_Operator(xlGreater) = ">"
  v_Operator(xlLess) = "<"
  v_Operator(xlGreaterEqual) = ">="
  v_Operator(xlLessEqual) = "<="

  Application.ScreenUpdating = False
  For Each v_Cell In Selection.Cells
    'если в ячейке есть условные форматы (коллекция FormatConditions не пуста)
    If v_Cell.FormatConditions.Count >  0  Then
      'для каждого условия проверяем, выполняется ли оно, и если да - "запоминаем" номер этого условия
      For i =  1  To v_Cell.FormatConditions.Count
        v_Condition =  0 
        With v_Cell.FormatConditions(i)
          Select Case .Type
          Case xlExpression 'условный формат - "формула"
            If Evaluate(.Formula1) Then
              v_Condition = i
              Exit For
            End If
          Case xlCellValue  'условный формат - "значение"
            Select Case .Operator
            Case xlBetween  'использован оператор "между"
              If Evaluate(v_Cell.Value & v_Operator(.Operator) & .Formula1) _
              And Evaluate(.Formula2 & v_Operator(.Operator) & v_Cell.Value) Then
                v_Condition = i
                Exit For
              End If
            Case xlNotBetween  'использован оператор "вне"
              If Evaluate(v_Cell.Value & v_Operator(.Operator) & .Formula1) _
              Or Evaluate(.Formula2 & v_Operator(.Operator) & v_Cell.Value) Then
                v_Condition = i
                Exit For
              End If
            Case Else  'использован другой оператор
              If Evaluate(v_Cell.Value & v_Operator(.Operator) & .Formula1) Then
                v_Condition = i
                Exit For
              End If
            End Select
          End Select
        End With
      Next i
      If v_Condition >  0  Then 'если условный формат "активен" то используем его
        'здесь код только для цвета ячейки, но также можно перенести из условного формата
        'формат шрифта, границы, узора
        v_Cell.Interior.Color = v_Cell.FormatConditions(v_Condition).Interior.Color
      End If
      v_Cell.FormatConditions.Delete
    End If
  Next v_Cell
  Application.ScreenUpdating = False
End Sub

  For Each v_Cell In Selection.Cells
    ...
  Next v_Cell

  v_Cell.FormatConditions(i).Formula1

Sub s()
  For Each v_Cell In Selection.Cells
    If v_Cell.FormatConditions.Count >  0  Then
      Debug.Print v_Cell.Address; Tab; v_Cell.FormatConditions( 1 ).Formula1
    End If
  Next v_Cell
End Sub

$N$ 41          =$A51= 1 
$N$ 42          =$A51= 1 
$N$ 43          =$A51= 1 
$N$ 44          =$A51= 1 

Sub s()
  For Each v_Cell In Selection.Cells
    v_Cell.Activate
    If v_Cell.FormatConditions.Count >  0  Then
      Debug.Print v_Cell.Address; Tab; v_Cell.FormatConditions( 1 ).Formula1
    End If
  Next v_Cell
End Sub

$N$ 41          =$A41= 1 
$N$ 42          =$A42= 1 
$N$ 43          =$A43= 1 
$N$ 44          =$A44= 1 

  Worksheets("Лист1").Range("A1").FormulaLocal = v_Formula
  f_Evaluate = Evaluate(Worksheets("Лист1").Range("A1").Formula)

  v_Formula = f_DeleteSomeOne(v_Formula, "что_нужно_найти", "на_что_найденное_поменять")