proc sort  data=a  out=b nodup;
by   x;
run;

楼上正解
字数
字数
字数
字数
字数

稍微补充一点：
*** Data;
data test;
    input x y;
        cards;
1 1
1 3
1 1
2 3
2 3
2 4
2 3
;

*** This cannot always remove all duplicate records;
proc sort data=test out=test1 nodup;
  by x;
run;
   
*** This works;
proc sort data=test out=test2 nodup;
   by x y;
run;

*** Proc sql always works;
proc sql;
   create table test3 as
    select distinct * from test;
quit;

楼上完全正解，谢谢大家的热心指导啊。。。

if first 是很好用的方法！