好像是 keep :DTC   你试一下

data a;
input addtc $ ddtc dd;
cards;
a 1 2
a 2 3
;
run;

data b;
set sashelp.vcolumn;
where libname='WORK' and memname='A' and substr(left(reverse(name)),1,3)='ctd';;
run;
data b;
set b;
if _n_=1 then do; vlist=name;retain vlist;end;
else vlist=compress(vlist||'*'||name);
run;

data b;
set b;
by libname;
if last.libname;
vlist=tranwrd(vlist,'*',' ');
run;
proc sql noprint;
select vlist into :vlist
from b;
quit;
data c;
set a;
keep &vlist;
run;

macro

感谢 mymine，我在qq群里得到的答案，思路和 mymine 一致，有点小出入。

在select into中使用 separated by，可以更简洁。

data a;
input addtc $ ddtc dd;
cards;
a 1 2
a 2 3
;
run;

data b;
set sashelp.vcolumn;
where libname='WORK' and memname='A' and substr(left(reverse(name)),1,3)='ctd';;
run;
proc sql noprint;
select name into :keep
separated by " "
from b;
quit;

data c;
set a;
keep &keep;
run;

这个语句果然不错，以前没有用到过
又学到了一招