6# sas_user 谢谢你，我将你的程序应用了还不错，下面是我要写的程序：options mprint;  %macro data_avg;
       %let a=%str(B20,B21,J11,J12,J13,J13A,J14,J15,J16,J17,J17A,J18,J36);
          %do i=1 %to 13;
             %let x=%scan(&a,&i);
                %do q=5 %to 17;
                   %do p=1 %to 12;
                    proc sql;

       select avg(_COL&q) into:mean

   from fenxi.b

   where _COL0="&x" and mon=&p;

  quit;

  data a;

       set a;

   if  _COL0="&x" and mon=&p and _COL&q=. then _COL&q=&mean;

  run;
                   %end;
            %end;
      %end;
%mend;
%data_avg

2# soporaeternus
我想请教一下，程序里的  if  _n_=1 有什么作用？我把它去掉了，为什么结果就不对了呢？麻烦，多谢解答。

8# zhaoping603 我试着回答一试试，数据录入的data步是自动循环的，_N_=1是每次循环的开始

就是仅在第一次data步循环的时候
就是在最开始计算下均值，之后再逐个读入数据来填充

10# soporaeternus
谢谢了，具体还有点迷糊。呵呵。

9# fzcoolbaby
多谢。

8# zhaoping603
_n_是sas自定义的循环变量。可以用来控制数据的读入。这里要求在第一个循环的时候做以下的事情：
1. 赋值EOF给end(另一个自定义变量，当最后一个记录时，end=1)
2. 设置观察值数量nobs（自定义变量）
3. 累加x值sum
4. 累加missing值的数量
5. 当读到最后一个变量的时候，计算均值,这里作者没有用非missing值的数量，而是用所有观察值的数量为分母。
6. 合并两个数据集。
当读到最后一个值时（EOF)，do loop条件满足，_n_=1第一个循环结束。
两个数据集的合并是一个loop一个观察值。

13# sas_user
非常感谢，很详细。

可以考虑使用PROC STANDARD，很方便

谢谢，收益了！

学习了