你好！ 谢谢你对本帖的建议和讨论，但是运行程序后发现所得到的结论和原始的意义不同，原始的意义是想要小于100的数据，且小于100的数据如果两个或是两个以上连在一起的话归为一组，最后求出这样的组数和这些组中数据的个数！（就是这些连在一起且小于100的数据一共有多少个） 2# myc_sas

哦，第一个问题是我没看清楚，就是说如果两个大于100的数之间只有一个小于100的，这个也应该忽略，对吧。

不过，你说我给的例子里只有一组？为什么最后3个不算作一组呢？还有，你要组数，以及每组的个数，而不是每组的数字和？

看看这个对不对吧，结果出来，j应该是每个组的个数，一共有多少行，就有多少组。

data test2(drop=i);
    set test end=last;
    if i<100 then do;
        j+1;
    end;
    else do;
        if j>1 then do;
            output;
        end;
        j=0;
    end;
run;

谢谢你，还是不对，如果数据集改成这样的话
70
80
30
160
110
200
168
30
963
45
185
972
9
15
42
123
34
44
55
88
99
结果出来两组 但是每组只有三个，运行一下看看test2，
应该总共有三组才对，第一组是3个 第二组是3个，第三组5个才对
应该对才是 9# myc_sas

对  ，比如有这样的一个数据
70
80
30
160
110
200
168
30
963
45
185
972
9
15
42
123
34
44
55
88
99
这样的话符合要求就只有三组，共计11个数字，第一组是70 80 30 第二组是9 15 42 第三组是34 44 55 88 99 8# myc_sas

，，，，，，，，，，，

11# jpingl1273

嗯，昨天最后时间紧，没仔细检查，忘记加最后的那个判断了。

data test2(drop=i);
    set test end=last;
    if i<100 then do;
        j+1;
    end;
    else do;
        if j>1 then do;
            output;
        end;
        j=0;
    end;
    if last and j>1 then do;
        output;
    end;
run;

结果还是一样！！！
和前面的程序的结果一样！！！呵呵    13# myc_sas

不会啊，我这里运行出来应该就是你要的结果，一共三组，个数分别是3，3，5

完整的代码：

data test;
    infile datalines;
    input i;
    datalines;
70
80
30
160
110
200
168
30
963
45
185
972
9
15
42
123
34
44
55
88
99
;
run;

data test2(drop=i);
    set test end=last;
    if i<100 then do;
        j+1;
    end;
    else do;
        if j>1 then do;
            output;
        end;
        j=0;
    end;
    if last and j>1 then do;
        output;
    end;
run;

呵呵  忘了给你说了   对着呢  谢谢你哈  好人一生平安！谨祝 15# myc_sas

try this:
data test;
    infile datalines;
    input i;
    datalines;
70
80
30
160
110
200
390
67
88
23
78
23
789
23
232
32
2323
123
23
22
2322
22
222
22
22
33
33
33
33
168
30
963
45
185
972
9
15
42
;
run;
data new;
set test;
k=(i lt 100);
run;
data result3(keep=i counter summ);
set new;
by k notsorted;
if first.k then cnt=0;
cnt+1;
if last.k then do;
   if not(cnt ge 2 and k=1) then delete;
      else do;
               counter+1;
                     do j=_n_-cnt+1 to _n_;
                            set new(keep=i) point=j;
                                summ=sum(summ,i);
                                output;
                         end;
                        end;
end;
run;

xiexie ha     heheh

xiexie ha     heheh

学习了，呵呵~~~