Проверка ячейки на то содержит ли она значение из массива

[Maryver]

Макрос выполняет для каждой ячейки в диапазоне следующие действия:
1.запомнить старую формулу
2.изменить значение на определенную величину
3.запомнить результат
4.вернуть формулу на место

Столкнулась с проблемой: если данные заданы в виде массива, макрос выдает ошибку. Как найти ячейки относящиеся к массиву и обработать их так же как и остальные?

[А)-(дрей]

Уважаемый автор, выкладывайте примеры кода - будет результативнее, уверяю вас!

[Maryver]

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

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

Set ParamChange = Range(RefEdit1.Value)
    
        If ParamChange.Count = 1 Then
        ParamOld1 = ParamChange.Formula
        Column2 = ParamChange.Value
        
        Else
        ReDim ParamOld(ParamChange.Count)
        ReDim ParamOldValue(ParamChange.Count)
        pch = 0

'Fill array with old formulas
            For Each ParamCell In ParamChange
            pch = pch + 1
            ParamOld(pch) = ParamCell.Formula
            Next ParamCell
        pch = 0

'Fill array with old values
            For Each ParamCell In ParamChange
            pch = pch + 1
            ParamOldValue(pch) = ParamCell.Value
            Next ParamCell
            
            
        End If

'Restore
    If ParamChange.Count = 1 Then
        ParamChange.Formula = ParamOld1
    Else
    pch = 0
      For Each ParamCell In ParamChange
      pch = pch + 1
      ParamCell.Formula = ParamOld(pch)
      Next ParamCell
    End If

[Hugo121]

Попробуйте проверить ячейку на IsArray() - нет примера под рукой...
P.S. Ошибся - с подсказки SAS888 - проверять нужно на HasArray...

[SAS888]

Можно сделать так:
Запоминать формулы в двумерном массиве. В первой размерности хранить саму формулу, а во второй - признак того, является ли эта формула формулой массива.
При вставке формул из массива на лист, контролировать признак "массивности" и в зависимости от этого, вставлять в ячейку требуемую формулу.
Т.е. приблизительно так:
1. Формирование массива:

Option Base 1
ReDim ParamOld(ParamChange.Count, 2): pch = 0
For Each ParamCell In ParamChange
    pch = pch + 1
    ParamOld(pch, 1) = ParamCell.Formula
    ParamOld(pch, 2) = IIf(ParamCell.HasArray, 1, 0)
Next

Вставка формул на лист:

Option Base 1
pch = 0
For Each ParamCell In ParamChange
    pch = pch + 1
    If ParamOld(pch, 2) = 0 Then ParamCell.Formula = ParamOld(pch, 1) Else ParamCell.FormulaArray = ParamOld(pch, 1)
Next

[Maryver]

Спасибо за помощь!