data x;
input c1$ c2$  id$@;
cards;
q1 q2   dd
q3 q5   ww
q2 q6   ff
;
run;
data y;
input  q1 q2 q3 q4 q5 q6@;
cards;
2 3 4 5 8 9
1 2 3 4 5 6
;
run;
proc sql noprint ;
select id into:id separated by "*" from x ;
select count(*) as count into:count from x;
quit;
%a;
%macro a;
%do i=1 %to &count.;
%let idname=%scan(&id,&i.,*);
%b(&idname.);
%end;
%mend a;
%macro b(idname);
data  &&idname.;
set x;
where id="&idname.";
run;
proc sql noprint;
select c1,c2 into:c1 ,:c2 from &&idname.;
create table n&&idname. as select &c1.,&c2. from y;
quit;
data &&idname;
set n&&idname.;
r=3*&c1.+2*&c2.;
run;
%mend b;

思路不错，稍有点错，不过完全能够解决我的问题了，掌声和鲜花献给crackman同学~~