В настоящее время пытаюсь помочьпо этому вопросу - но наткнулся на очень странную проблему:

При попытке добавить условное форматирование для перекрывающихся диапазонов (в VBA) Excel 2007 выдает ошибки 1004 или 9 (ошибка индекса вне диапазона). Мне удалось свести ошибочный код к следующему:

Sub Produce1004()
    Cells.FormatConditions.Delete
    Range("A1").FormatConditions.Add Type:=xlExpression, Formula1:="=1"
    Range("A1:A2").FormatConditions.Add Type:=xlExpression, Formula1:="=1"
    Range("A1:A2").FormatConditions(Range("A1:A2").FormatConditions.Count).Font.ColorIndex = 7
End Sub

Sub ProduceError9()
    Cells.FormatConditions.Delete
    Range("A1:A3").FormatConditions.Add Type:=2, Formula1:="=1"
    Range("A1:A2").FormatConditions.Add Type:=2, Formula1:="=1"
    Range("A1:A2").FormatConditions.Add Type:=2, Formula1:="=1"
    Range("A1:A2").FormatConditions(Range("A1:A2").FormatConditions.Count).Font.ColorIndex = 3
End Sub

Это'последняя строка в обеих подпрограммах, которая вызывает ошибку. Ошибка возникает только в Excel 2007, нормально работает в 2010 году.

Кто-нибудь знает обходной путь?