如何在SAS数据步中集成宏实现表行数统计（最小修改）

这是SAS里很典型的宏与数据步执行时机冲突的问题——%count_rows是编译阶段运行的宏，而数据步里的变量要到执行阶段才会赋值，所以直接写rows=%count_rows(name)肯定行不通。结合你的需求（最小代码修改、避免大型循环），我推荐以下两步走的简洁方案：

步骤1：批量生成各表的行数对照表 #

先基于&all.里的表列表，批量调用%count_rows生成一个包含表名和行数的临时表，这里提供两种轻量实现方式，选哪种都可以：

方式A：小型宏循环（代码极简） #

这个循环仅遍历&all.中的表，完全不属于"大型%while循环"，代码量极小：

/* 先清空临时表，避免历史数据干扰 */
proc delete data=work.row_counts; run;

/* 遍历&all.中的每个表，调用现有宏并收集行数结果 */
%macro get_row_counts;
  %let idx=1;
  %let curr_table=%scan(&all., &idx., *);
  %do %while(&curr_table. ne);
    %let row_num=%count_rows(&curr_table.);
    proc sql noprint;
      insert into work.row_counts (table_name, rows)
      values ("&curr_table.", &row_num.);
    quit;
    %let idx=%eval(&idx.+1);
    %let curr_table=%scan(&all., &idx., *);
  %end;
%mend;
%get_row_counts;

方式B：Data步+Call Execute（无宏循环） #

如果完全不想用宏循环，也可以用数据步拆分&all.，再通过call execute动态调用宏：

/* 先定义临时表的结构 */
data work.row_counts;
  length table_name $64 rows 8;
  stop;
run;

/* 拆分&all.表列表，动态调用%count_rows插入结果 */
data _null_;
  length table $64;
  do idx=1 by 1 until(table="");
    table = scan("&all.", idx, "*");
    if table ne "" then do;
      call execute(cats(
        'proc sql noprint; insert into work.row_counts values ("', table, '", ', %count_rows(&table.), '); quit;'
      ));
    end;
  end;
run;

步骤2：修改原数据步关联行数表 #

假设你的原数据步是类似这样生成input-stats的（拆分&all.获取表名）：

data input_stats;
  length table_name $64;
  /* 原代码：拆分&all.得到表名 */
  table_name = scan("&all.", _n_, "*");
  if table_name = "" then stop;
  /* 原有的其他列处理逻辑... */
run;

只需要在原数据步中添加一行关联临时表的代码，就能拿到对应表的行数，修改后如下：

data input_stats;
  length table_name $64;
  table_name = scan("&all.", _n_, "*");
  if table_name = "" then stop;
  
  /* 新增：关联行数对照表，匹配当前表名的行数 */
  set work.row_counts(keep=table_name rows) key=table_name / unique;
  
  /* 原有的其他列处理逻辑... */
run;

为什么这个方案是最小修改？ #

• 不需要重构原数据步的核心业务逻辑，仅新增少量代码
• 批量生成行数的代码是独立模块，完全不侵入原有逻辑
• 无论是宏循环还是call execute方式，都是针对&all.的表列表做轻量遍历，完全符合"避免大型%while循环"的要求

内容的提问来源于stack exchange，提问作者B--rian