data a;
input hangye $ gongsi $  date @;
cards;
能源  001 2001
能源  001 2002
能源  001 2003
能源  004 2001
能源  004 2002
能源  004 2003
制造  003 2001
制造  003 2002
制造  003 2003
制造  005 2001
制造  005 2002
制造  005 2003
;
run;
proc sort data=a ;
by hangye gongsi;
run;
data b;
set a;
by hangye gongsi;
if first.hangye=1 then n=0;
if first.gongsi=1 then do;
   n+1;
end;
run;