Имеется сводная таблица с полями, пытаюсь через меню Формулы-Вычисляемое поле... прописать формулу приоритетов:=ЕСЛИ(И('Оборачиваемость в днях'<15;Рентабельность>11);"Первый приоритет";"Второй приритет"),
в сводной не работает.

Sub MySub()  
Я вот так сделал  
Dim i As Integer  
Dim my_Array() As Variant  
Dim myRange As Range  
i = 2  
Do While Cells(i, 1) = 2008  
ReDim Preserve my_Array(i)  
Set myRange = Cells(i, 1)  
my_Array(i - 1) = Cells(i, 1).Value  
i = i + 1  
Loop  
End Sub

А как изменить размерность массива с солхранением значений?

Добрый день!  
Требуется заполнить динамический массив значениями столбца ячеек, содержащих год например 2008, пока значение ячейки в столбце не станет 2009годом.  
Как построить код?  
Спасибо!

Добрый день!  
ПОдскажите пожалуйста как справиться с задачей.  
В одной ячейке число месяца, в другой - номер месяца, в третьей - год.  
Требуется объединить эти ячейки в одну дату.  
Не нашел пользовательской функции.  
Спасибо!

Добрый день!  
В сводной таблице заполнены не все ячейки с ценами. Предполагается что цены в пустых ячейках должны быть такими же как и в предыдущем  месяце.    
Как заполнить формулой пустые ячейки?  
Спасибо!