SAS宏在临床试验中应用－移除重复记录数据

shiyiming

[code:9d4cb]%macro remove(data=,  /*原始数据集*/
               out= /*输出移除重复数据的数据集*/ );

proc sort in=&data out=&out noduplicates;
by _all_;
run;
proc print data=&out;
run;
%mend;

data kkk;
input id v1-v2;
datalines;
1  11  12
2  21  22
1  11  12
3  31  32
;
run;

%remove(data=kkk,out=out);[/code:9d4cb]

shiyiming

[color=blue:58072]我来论坛没多少次，就发现collen的好几个程序好管用，
这种无私奉献的精神值得提倡！[/color:58072]

shiyiming

谢谢，您的这个程序非常实用，我以前也编写了一个宏程序，但没有您的精练，向您学习。
[code:38cb0]%MACRO repeatd(data,var=,outdata=,prnopt=T);
options nodate nonumber;title;
%if &outdata= %then %let outdata=&data;;
%if &var= %then %do;
  proc iml;use &data;setin &data;
   xx=rowcat((contents()+" ")`); call symput ('var',xx);quit;
%end;
%let nv=%wordcnt(string=&var, delim=%str( ));
proc sort data=&data; by &var;
data &outdata;set &data;_tmp=0;
  %do i=1 %to &nv;
    %let nvi=%scan(&var, &i);if &nvi=lag(&nvi) then _tmp=_tmp+1;
  %end;
%if &prnopt=T %then %do;
  proc print;where _tmp=&nv;var &var;
   title "Duplicated Observations Were Deleted";run;title;
%end;
data &outdata;set &outdata;if _tmp=&nv then delete;drop _tmp;run;
%MEND repeatd;[/code:38cb0]