这个很容易就能做到，用一个程序：
forvalues i = 1/200 {
local j = 5*`i'
ge a`i' = A`j'
}
keep a1-a200
save 后面省略了！！

data  work.ex;
array A(20);
do i=1 to 20;
A(i)=1;
end;
drop i;
;
run;


proc sql noprint;
select name into :col_name separated by ' '
from sashelp.vcolumn
where libname='WORK' and memname='EX'
and compress(name,'','d')='A' and
mod(input(compress(name,'','kd'),best32.),5)=0;
quit;

data ex1;
set ex;
keep &col_name;
run;

多谢回复！
我是个sas初学者，你的这个方法我看的最明白。sas选取obs比变量更灵活，转置一下方便多了

多谢您的回复！
测试成功！
但是中间那段 sql的语句， 我看着有些吃力。还得多多学习