Макрос не вписывает формулу

[agregator]

Здравствуйте, уважаемые программисты. Руками эта формула записывается в ячейку, а макросом нет.

=СЧЁТЕСЛИ('1'!C$17:J$18;V23)+СЧЁТЕСЛИ('2'!C$17:J$18;V23)+СЧЁТЕСЛИ('3'!C$17:J$18;V23)+СЧЁТЕСЛИ('4'!C$17:J$18;V23)+СЧЁТЕСЛИ('5'!C$17:J$18;V23)+СЧЁТЕСЛИ('6'!C$17:J$18;V23)+СЧЁТЕСЛИ('7'!C$17:J$18;V23)+СЧЁТЕСЛИ('8'!C$17:J$18;V23)+СЧЁТЕСЛИ('9'!C$17:J$18;V23)+СЧЁТЕСЛИ('10'!C$17:J$18;V23)+СЧЁТЕСЛИ('11'!C$17:J$18;V23)+СЧЁТЕСЛИ('12'!C$17:J$18;V23)+СЧЁТЕСЛИ('13'!C$17:J$18;V23)+СЧЁТЕСЛИ('14'!C$17:J$18;V23)+СЧЁТЕСЛИ('15'!C$17:J$18;V23)+СЧЁТЕСЛИ('16'!C$17:J$18;V23)+СЧЁТЕСЛИ('17'!C$17:J$18;V23)+СЧЁТЕСЛИ('18'!C$17:J$18;V23)+СЧЁТЕСЛИ('19'!C$17:J$18;V23)+СЧЁТЕСЛИ('20'!C$17:J$18;V23)+СЧЁТЕСЛИ('21'!C$17:J$18;V23)+СЧЁТЕСЛИ('22'!C$17:J$18;V23)+СЧЁТЕСЛИ('23'!C$17:J$18;V23)+СЧЁТЕСЛИ('24'!C$17:J$18;V23)+СЧЁТЕСЛИ('25'!C$17:J$18;V23)+СЧЁТЕСЛИ('26'!C$17:J$18;V23

Скажите, что можно сделать, чтобы она прописывалась макросом. Или может можно применить другую формулу. Excel 2003

[аналитика]

записал макрос - попытался выполнить - ошибка.
первая мысль - ограничение на длину формулы, но потом посмотрел на записанную рекордером цепочку - там почему-то не правильно записалось на переносе строки...

"=COUNTIF('1'!R17C[-20]:R18C[-13],RC[-1])+...+COUNTIF" & _
"7C[-20]:R18C[-13],RC[-1])+...

Sub HellFormula(n As Integer)    
    Dim s As String: s = "="
    Dim i As Integer
    For i = 1 To n
        s = s & "COUNTIF('" & i & "'!R17C[-20]:R18C[-13],RC[-1])+"
    Next i
    s = Left(s, Len(s) - 1)
    ActiveCell.FormulaR1C1 = s
End Sub

Sub test()
    HellFormula 26
End Sub

так у меня работает (xl2010)

[Serge 007]

Сообщение от agregator

Или может можно применить другую формулу?

Вариант, см. вложение

[agregator]

Serge 007, спасибо работает.