如何用SAS批量填充列空值：基于两列均值比例计算

针对你需要用A列值乘以「目标列与A列比值的均值」来填充60列空值的需求，以下是两种无需重复编写逻辑的高效批量处理方法：

方法一：宏循环生成Proc SQL代码 #

先自动获取所有需处理的目标列（排除A列），再通过宏循环批量生成计算语句：

1. 获取目标列列表

/* 从WORK库的TABLE_ONE表中获取除A外的所有列名，存入宏变量&cols */
proc sql noprint;
    select name into :cols separated by ' '
    from dictionary.columns
    where libname='WORK' and memname='TABLE_ONE' and name ne 'A';
quit;

2. 宏循环生成填充逻辑

%macro fill_missing;
proc sql;
    create table new as
    select A
        %do i=1 %to %sysfunc(countw(&cols.));
            %let col=%scan(&cols.,&i.);
            /* 对空值用A*均值系数填充，非空值保留原值 */
            , case 
                when &col. is missing then 
                    (sum(&col./A) over () / sum(case when &col. is not missing then 1 else 0 end over ())) * A 
                else &col. 
              end as &col.
        %end;
    from table_one;
quit;
%mend;

/* 执行宏 */
%fill_missing;

方法二：数据步数组+系数表（更高效） #

先计算每列的均值系数，再用数组批量遍历填充，适合大数据量场景：

1. 生成系数表

/* 计算每个目标列的(列/A)均值，存储到临时表coeffs */
proc sql noprint;
    create table coeffs as
    select
        %do i=1 %to %sysfunc(countw(&cols.));
            %let col=%scan(&cols.,&i.);
            sum(&col./A) / sum(case when &col. is not missing then 1 else 0 end) as coeff_&col.
            %if &i. ne %sysfunc(countw(&cols.)) %then ,;
        %end;
    from table_one;
quit;

2. 数组批量填充

/* 合并系数表与原表，用数组遍历填充空值 */
data new;
    if _n_=1 then set coeffs; /* 仅读取一次系数表 */
    set table_one;
    
    array target_cols[*] &cols.; /* 目标列数组 */
    array coeff_vals[*] coeff_:; /* 系数列数组（匹配所有coeff_开头的变量） */
    
    do i=1 to dim(target_cols);
        if missing(target_cols[i]) then target_cols[i] = coeff_vals[i] * A;
    end;
    
    drop i; /* 删除循环变量 */
run;

注意事项 #

• 替换代码中的WORK库名和TABLE_ONE表名为实际值；
• 原代码中sum(case when B is missing then . else 1)的逻辑可简化为sum(case when B is not missing then 1 else 0 end)，更清晰明确；
• 若目标列包含特殊字符（如示例中的C_01），SAS默认支持无需额外处理。

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