keep是肯定要keep的，不存在无法枚举的问题。按dictionary.columns里的varnum把变量名做成list，然后宏循环keep即可。

按照你的规则，37列的原始数据集应该分割为36个小数据集才对，不是37个。

编写程序如下：

%Macro subDataset;
%do i=1 %to 37;
Proc sql;
select name into :vname&i
from   dictionary.columns
where  UPCASE(libname)="MYLIB" and UPCASE(memname)="MYDATASET"
    and varnum in (&i);
quit;
%end;
%do j=2 %to 37;
data want&J;
set MYLIB.MYDATASET(keep=&vname1 &&vname&j);
run;
%end;
%mend;
%subDataset;