use array + countc + scan

怎么做到删除重复值呢？

有道理，学习！！

data a;
input id $ var :$30.;
cards;
0001 A009|A001|A000|A001
0002 A014|A013|A012|A011
;
run;
%macro change;
data b;
set a;
%do i=1 %to 4;
var&i.=scan(var,&i.);
%end;
output;
run;
data c;
set b;
%do i=1 %to 3;
aa=var&i.;
%do j=&i.+1 %to 4;
if aa=var&j. then var&j.=.;
%end;
%end;
drop aa var;
run;
%mend change;
%change;

看不懂宏，谢谢大神~