data A;
INPUT X $2 6.;
CARDS;
“活泼开朗  四川  小红”
“勇敢  大方  湖南  小张”
“天真  可爱  江苏  小刘”
;
RUN;
data A;
set A;
n=_n_;
run;
proc sql noprint;
select X
into :clist1-:clist999
from A;
quit;
%put &clist1.;
%put &clist2.;
%put &clist3.;
%macro delete_sign(n);
%do i=1 %to &n.;
data A&i;
set A;
if n=&i;
%put i is  &i.;
%put &&clist&i.;
Y=substr(substr("&&clist&i.",1,length(X)-2),3,length(X)-2);
run;
proc sql noprint;
select Y
into :clist&i.
from A&i;;
quit;
data A&i;
set  A&i;
if n=&i;
%put i is  &i.;
%put &&clist&i.;
y_3=compress(scan("&&clist&i.",-1,""));
y_2=compress(scan("&&clist&i.",-2,""));
y_4=compress(scan("&&clist&i.",-3,""));
y_5=compress(scan("&&clist&i.",-4,""));
y_1=compress(y_4||" "||y_5);
length y_1 $20.;
length y_2 $20.;
length y_3 $20.;
DROP y_4 y_5;
run;
%end;
%put &clist1.;
%put &clist2.;
%put &clist3.;
%do i=1 %to %EVAL(&n.-1);
data A%EVAL(&i+1);
set  A&i  A%EVAL(&i+1);
RUN;
%END;
data B;
set  A&i  ;
RUN;
PEOC DATASETS  NOPRINT;DELETE  A1-A&i.  ;QUIT;
%mend;

%delete_sign(3);

感谢cranewind的详细的回复~您这是用的宏吗。。我看不懂额。。如果想输出结果应该怎么修改捏？？
刚运行了一下。。肿么有问题呃。。。

%delete_sign(3);  数据集有几行，3就改成几，循环的次数

太谢谢您啦。。我最后还是用的笨办法。。scan(string,-1,' ');切开再用||合并一下，这样来做的。。您的方法我慢慢研究一下=。=因为目前水平太差看不明白。。

太谢谢您啦。。我最后还是用的笨办法。。scan(string,-1,' ');切开再用||合并一下，这样来做的。。您的方法我慢慢研究一下=。=因为目前水平太差看不明白。。