如何通过循环运行SAS宏并将迭代结果存储为单个表？

完全可以实现，核心思路是让每次宏迭代的结果输出到临时数据集，再逐步追加到最终的汇总表中，同时保留每次迭代的权重参数，方便对应结果。以下是修改后的完整方案：

关键修正与实现步骤 #

1. 修正浮点运算问题：原代码用%eval处理权重计算会丢失小数（比如i=1时结果为0而非0.5），改用%sysevalf支持浮点计算。
2. 让宏输出带参数的结果：调整%cal_sum宏，用PROC MEANS的OUTPUT选项生成结果数据集，并把权重参数作为变量存入，确保结果与参数一一对应。
3. 迭代追加结果：初始化空的汇总表，每次迭代后将临时结果追加到汇总表中。

修改后的完整代码 #

DATA HAVE;
input yr_2001 yr_2002 yr_2003 area;
cards;
1 1 1 3
0 1 0 4
0 0 1 3
1 0 1 6
0 0 1 4
;
run;

%macro cal_sum(w1,w2);
/* 计算加权和 */
data wsum;
set Have;
wsum= yr_2001*&w1. + yr_2002*&w2.;
run;
/* 输出均值到临时表，关闭打印输出 */
proc means data = wsum noprint mean;
var wsum;
output out=temp_result mean=mean_wsum;
run;
/* 给结果表添加权重参数变量，清理冗余内容 */
data temp_result;
set temp_result;
w1 = &w1.;
w2 = &w2.;
keep w1 w2 mean_wsum;
run;
%mend;

%macro res;
/* 初始化空的汇总结果表 */
data final_results;
length w1 w2 mean_wsum 8;
stop;
run;

%do i=1 %to 2;
%do j=1 %to 2;
%let p1=%sysevalf(&i.*1/2);
%let p2=%sysevalf(&j.*1/2);
%cal_sum(&p1.,&p2.);
/* 追加临时结果到汇总表 */
proc append base=final_results data=temp_result force;
run;
%end;
%end;

/* 查看最终汇总表 */
proc print data=final_results;
title "各权重组合下的加权均值汇总";
run;
%mend;

%res

代码说明 #

• PROC MEANS添加noprint参数避免重复打印，output out=temp_result mean=mean_wsum指定将均值输出到临时表，变量名设为mean_wsum。
• data temp_result步手动添加w1和w2变量，把当前迭代的权重参数存入结果，用keep语句只保留需要的变量，清理PROC MEANS自动生成的冗余标识变量。
• proc append负责将每次的临时结果追加到汇总表，force参数确保变量匹配时自动兼容。
• %sysevalf替代%eval，正确计算0.5、1.0这类浮点权重值。

运行后，final_results表会包含4行数据，每行对应一组权重(w1,w2)和对应的加权均值，完全满足将所有迭代结果整合到单个表的需求。

内容的提问来源于stack exchange，提问作者student_R123