如何在SAS宏中循环遍历列表中的元素？

要实现从带引号的列表中依次取出无引号元素并执行数据处理流程，修改后的SAS代码如下：

%let list = ("Apple" "Pear" "Grapes");
%let input_path = C:\your\actual\path; /* 替换为实际路径 */
%let variables = var1 var2; /* 替换为实际排序变量 */

%macro px(list);
    /* 统计列表中的元素个数 */
    %let item_count = %sysfunc(countw(&list.));
    
    %do k=1 %to &item_count.;
        /* 取出第k个元素并去除引号 */
        %let item = %sysfunc(dequote(%scan(&list., &k.)));
        
        /* 第一步：读取对应数据集 */
        data data_1;
            set output_&item.;
            /* 这里添加你的数据处理逻辑 */
        run;
        
        /* 排序数据集 */
        proc sort data = data_1;
            by &variables.;
        run;
        
        /* 第二步：进一步数据处理 */
        data data_2;
            set data_1;
            /* 这里添加你的数据处理逻辑 */
        run;
        
        /* 导出结果：每个元素对应独立sheet，避免覆盖 */
        proc export data = data_2
                    outfile= "&input_path.\&item._summary.xlsx"
                    dbms=xlsx replace;
                    sheet = "&item._SUMMARY";
        run;
    %end;
%mend;

%px(&list.);

关键修改点说明 #

• 列表元素计数：使用%sysfunc(countw(&list.))统计列表中的元素数量，替代原代码中错误的dim(&list.)（dim仅适用于SAS数据步数组，不适用于宏变量列表）。
• 去除引号并提取元素：通过%scan(&list., &k.)取出第k个带引号的元素，再用%sysfunc(dequote())去除双引号，得到无引号的元素（如Apple）。
• 避免结果覆盖：修改导出的文件名和sheet名称，加入当前处理的元素名（如Apple_summary.xlsx、Apple_SUMMARY），防止多次循环后结果被覆盖。
• 修正数据集名错误：原代码中proc sort引用的data1应为data_1，保持与前面数据步定义的数据集名一致。

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