data test;
infile cards dlm=',';
input num @@;
cards;
1,2,1,1,5,5,1,1,1,1
;

data wanted;
  set test;
  lagnum=lag(num);
  if _n_=1 then grp=1;
  else do;
  if num ne 1 then grp+1;
  if num=1 and lagnum ne num and lagnum ne . then grp+1;
  end;
  drop lagnum;
run;

个人感觉其实数据处理在excel中药比sas中方便很多，sas是大型的统计分析软件，更适合处理复杂的东西，
刚给在excel中编了个公式试了一下，如下


在c39中输入
=IF(AND(B39=1,B38=1),C38,C38+1)

excel表处理
1        1
2        2
1        3
1        3
3        4
5        5

假设红色位置为c39在其中输入公式
=IF(AND(B39=1,B38=1),C38,C38+1)