data a;
input id $ group;
tmp=compress(id,'','kd');
cards;
1A001 1
1B001 .
1A002 1
1B002 .
1A003 .
1B003 .
1A004 1
1B004 .
1A005 1
1B005 .
1A006 .
1B006 .
2A001 1
2B001 .
2A002 1
2B002 .
2A003 .
2B003 .
2A004 1
2B004 .
2A005 1
2B005 .
2A006 .
2B006 .
;
run;


data res;
set a;
retain s;
by tmp notsorted;
if first.tmp then s=0;
s+group;
if s>0 then output;
drop tmp s;
run;

单纯例子数据可以实现，但是，如果group是字符型或多值的话，本过程无能为力，谢谢回复。

不错，在group值不同及ID的区分组别不同时均可以实现。不过效率稍低，实际运行时间长些。

你稍微修改一下不就好了