Сделайте перевод c паскаль на excel
for i: =0 to n do
begin
if c[i]=0 then c[i]: =1;
begin
for i: =i+1 to n do
begin
if c[i]< > 0 then c[i]: =0;
if c[i]=0 then exit;
end;
end;
end;

Это точный аналог фрагмента паскалевского кода. Работать не будет, поскольку недопустимо использовать в качестве параметра вложенного цикла For ту же переменную i, что и во внешнем цикле For.

   For i = 0 To N

       If c(i) = 0 Then

           c(i) = 1

           For i = i + 1 To N

               If c(i) <> 0 Then c(i) = 0

               If c(i) = 0 Then Return

           Next

       End If

   Next