WPS/SAS如何通过Excel存储的列名批量保留数据集指定列？

原代码的核心问题是每次执行call symputx都会覆盖宏变量columns_to_keep的旧值，循环结束后仅保留Excel中最后一行的列名。要实现批量保留所有指定列，只需将所有列名拼接成空格分隔的字符串（符合SAS keep语句的语法要求），以下提供两种可靠的修改方案：

方案1：使用数据步累加列名 #

libname excelin excel "C:\Users\Xxxxxx\Xxxxx\WPS\your_excel_file.xlsx";

/* 初始化宏变量为空，避免初始值干扰 */
%let columns_to_keep=;

data _null_;
    set EXCELIN.'Sheet1$'n end=eof;
    /* 用空格拼接已有列名与当前列名，更新宏变量 */
    call symputx('columns_to_keep', catx(' ', &columns_to_keep, column));
    /* 可选：最后一行输出确认日志，验证列名列表 */
    if eof then put "[INFO] 待保留列名：" &columns_to_keep;
run;

data newdata;
    keep &columns_to_keep;
    set ACCOUNTS;
run;

/* 释放Excel文件锁，避免后续无法编辑Excel */
libname excelin clear;

方案2：使用PROC SQL拼接列名（更简洁） #

libname excelin excel "C:\Users\Xxxxxx\Xxxxx\WPS\your_excel_file.xlsx";

proc sql noprint;
    /* 将查询到的所有列名用空格分隔，直接赋值给宏变量 */
    select column into :columns_to_keep separated by ' '
    from EXCELIN.'Sheet1$'n;
quit;

data newdata;
    keep &columns_to_keep;
    set ACCOUNTS;
run;

libname excelin clear;

关键说明 #

• 两种方案均会将Excel Sheet1第一列的所有行值，拼接成空格分隔的列名字符串，供keep语句调用。
• 新增libname excelin clear是为了释放Excel文件的占用锁，否则后续可能无法修改或打开该Excel文件。

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