在SAS Guide中循环删除匹配column2值的column1对应行的问题

要实现依次用column2的每个值，动态删除当前表中column1匹配的记录，数组方法失效的核心原因是：数组在DATA步编译阶段就基于初始数据集生成，后续数据集更新后数组不会同步刷新，导致匹配逻辑始终用的是初始数据，无法对应动态变化后的表。

以下两种方法可以完美实现需求：

方法1：宏循环 + 逐次DATA步删除 #

这种方法直接按顺序提取column2的所有值，循环执行删除操作，每次删除后覆盖原数据集，确保下一次迭代基于最新的表。

/* 1. 提取column2的所有值到宏变量列表，用引号包裹避免特殊字符问题 */
proc sql noprint;
    select quote(trim(column2)) into :val_list separated by ' ' from original_table;
quit;

/* 2. 循环处理每个值 */
%let i = 1;
%let total = %sysfunc(countw(&val_list.));
%do %while(&i. <= &total.);
    %let current_val = %scan(&val_list., &i.);
    /* 保留column1不等于当前值的记录，覆盖原表 */
    data original_table;
        set original_table;
        if column1 ne &current_val.;
    run;
    %let i = %eval(&i. + 1);
%end;

方法2：DATA步 + CALL EXECUTE 动态生成代码 #

这种方法通过临时表存储column2的顺序值，用call execute动态生成删除代码，确保每次操作基于最新的数据集。

/* 1. 按原始顺序存储column2的所有值到临时表 */
data val_table;
    set original_table(keep=column2);
run;

/* 2. 创建主表的临时副本 */
data work.temp_main;
    set original_table;
run;

/* 3. 循环读取每个值，动态生成删除代码 */
data _null_;
    set val_table end=last_val;
    /* 生成删除当前值的代码 */
    call execute(cats('
        data work.temp_main;
            set work.temp_main;
            if column1 ne "', trim(column2), '";
        run;
    '));
    /* 最后将临时表替换为原表 */
    if last_val then do;
        call execute('
            data original_table;
                set work.temp_main;
            run;
        ');
    end;
run;

注意事项 #

• 文本匹配时务必用trim()处理，避免字段前后的空格导致匹配失败；
• 如果column2包含单引号等特殊字符，方法1中用quote()函数包裹值可以避免语法错误；
• 两种方法都会逐次修改原数据集，建议操作前先备份原始表。

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