楼主能否把原始数据给我看看，否则我不知道数据中有什么变量~

%let p=12;
data e (drop=i j);
        set a;
        if balance ne '.';
        n+1;
        by cid;
/*        (n指代每组的序号)*/
        if first.cid then n=1;
        array a[&p.] b1-b&p.;
        a[1]=lag(balance);
        do i=2 to &p.;
                a[i]=lag(a[i-1]);
        end;
       
        j=&p.;
        do until (j=0);
        if(n<=j) then a(j)=.;
        j=j-1;
        end;

        mean6=mean(of b1-b6);
        mean12=mean(of b1-b12);
run;

您可以尝试上面这段代码

do j=12 to 2 by -1;
if j gt cns then lags(j)=.;
  put j=;
end;

我猜楼主是在说这段代码？
这段代码很精彩，比如说刚开始，j=12，在这个时候，1<12，则lags[12]第一行数据=.；同理2、3、4、5、6、7、8、9、10、11都小于12，因此lags[12]的前11个数据都为.；
但是我认为，楼主要求moving average by 12，因此这里if j gt cns应改写为if j ge cns，这样就可以实现lags[12]前12个数据都为.了，您觉得呢？
然后当j=11时，lags[11]的前10个数据都为.；
一次类推，希望能够帮到您

现在我们来看楼主的第一个问题：
if j gt cns then lags(j)=.;
  put j=;
end;
这个if是不可以放在do i=12 to 2 by -1前面的，否则j gt cn无从谈起；
if first.cid then do
       cns=0;
       do i=1 to 12;lags(i)=.;
       end;
    end;
cns+1;

这个if的位置是为了找到每一组的第一条数据，然后为每组数据进行赋值；但是如果放在后面也不是不可以，我想如果放在后面的话程序跑不出cns的数值，那加一个retain应该可解决问题。


希望可以帮到您