точно-точно.. заработался...

в формуле =$J$2<30 вручную убираешь знак $ перед J и протягивай сколько угодно...

Цикл Do/While  
Константы:  
X-нужная длина материала  
N-Количество витков в ряду  
S-Толщина проволоки  
A-Начальный диаметр барабана  
 
Цикл:  
L=0  
A=....  
S=....  
X=....  
Do while L<=X  
L=L+2*3,14*N*(A+S/2)/2  
A=A+S  
Loop  
sheets("Лист1").cells(1,1)=A*N '- кол-во витков  
sheets("Лист1").cells(1,1)=l ' - предельная длина

в 2003 экселе есть интересная функция - сводная таблица из данных в нескольких диапазонах консолидации. В справке подробно написано.

Пробегаем по ячейкам проверяемого диапазона и сравниваем, есть ли такое значение в списке. Если нет, добавляем. Недавно делал что-то подобное:  
 
Sub EqpUnic_List()  
Dim Ai, X As Long  
Dim EqpBD, EqpUnic As String  
 
Ai = 3  
X = 2  
 
Ei = 9  
Do While Sheets("Ремонты").Cells(Ei, 4) <> ""  
EqpBD = Sheets("Ремонты").Cells(Ei, 5)  
E = 0  
Bi = 2  
EqpUnic = 1  
Do While EqpUnic <> ""  
 EqpUnic = Sheets("Списки").Cells(Bi, 2)  
 If EqpBD = EqpUnic Then E = E + 1  
 Bi = Bi + 1  
Loop  
If E = 0 Then  
 Sheets("Списки").Cells(X, 2) = EqpBD  
 X = X + 1  
End If  
Ei = Ei + 1  
Sheets("Списки").Cells(1, 3) = "Обновление " & Round(50 + Ei * 50 / 65536, 1) & "%"  
Loop  
End sub

Как передать диапазон в массив? Если условий несколько?... с языком не дружу, поэтому и спрашиваю...

Добрый день!  
Помогите решить задачку: Нужен код для подсчета значений ячеек, у которых соседние ячейки удовлетворяют определенным условиям. Что-то типа суммпроизв(--(A1:A10>Xi);--(B1:B10<Yi);C1:10), только обязательно через макрос (MS Excel 97-2003 и 2007). Пробовал вот так:  
 
A=1  
B=1  
C=1  
Do while A<>""  
if cells(A,1)> Xi then  
 if cells(B,2)<Yi then X=X+cells(C,3)  
end if  
loop  
 
Работает, но т.к. ячеек много и условий несколько, считает достаточно долго.  
Может быть, кто подскажет синтаксис через worksheetfunction.sumproduct?  
Пробовал вот так, выдает ошибку Type mismatch:    
set Myrange1=range(cells(1,1), cells(10,1)  
set Myrange2=range(cells(1,2), cells(10,2)  
Set Myrange3=range(cells(1,3), cells(10,3)  
X=evaluate("worksheetfunction.sumproduct(--(myrange1>Xi), --(myrange2<Yi), myrange3)"  
Напишите, как правильно, плиз...