Доброго времени суток, прошу помочь найти и исправить ошибку в FormulaLocal.
Пытаюсь перевести формулу в vba, чтобы она использовала диапазон до последней заполненной строки в столбце "B" в листе1:
Код |
---|
=СУММ(Ч(ЧАСТОТА(ПОИСКПОЗ('5лист'!B2:B10000&'5лист'!C2:C10000;'5лист'!B2:B10000&'5лист'!C2:C10000;);('5лист'!B2:B10000>=--A1)*('5лист'!B2:B10000<=--A2)*('5лист'!E2:E10000=A3)*ПОИСКПОЗ('5лист'!B2:B10000&'5лист'!C2:C10000;'5лист'!B2:B10000&'5лист'!C2:C10000;))>0);-1) |
Код |
---|
lastrow = Лист1.Cells(Лист1.Rows.Count, 2).End(xlUp).Row
Лист2.[E3].FormulaLocal = "=СУММ(Ч(ЧАСТОТА(ПОИСКПОЗ(5лист!B2:B" & lastrow & 5лист!C2:C" & lastrow;5лист!B2:B" & lastrow&5лист!C2:C" & lastrow;);(5лист!B2:B" & lastrow>=--A1)*(5лист!B2:B" & lastrow<=--A2)*(5лист!E2:E" & lastrow=A3)*ПОИСКПОЗ(5лист!B2:B" & lastrow&5лист!C2:C" & lastrow;5лист!B2:B" & lastrow&5лист!C2:C" & lastrow;))>0);-1)" |