data have;
        set have;
        by id;
        if first.id then seq=1;
        else seq+1;
run;
data want;
        set have;
        do i=1 to nobs;
        set have(rename=(id=idh point=pointk seq=seqh)) nobs=nobs  point=i;
        if id<idh and seq=seqh then output;
        end;
run;
proc sort data=want out=want(drop=seq seqh);
        by id  idh seq seqh;
run;

真是高手啊， 多谢多谢了。不知道怎么把金币给你，是设为最佳答案就可以了吗？

想追问一下比如这样的

Id point
1   15
1    7
1   23
1  33
1  22
1  35
1  12
1  15
1   56
2     9
2     4
2     11
2    78  
2    83  
2    90  
2    77  
2    66  
2    88
3     71
3     65
3     83
3     72
3     73
3     74
3    91  
3    92  
3    93
4     45
4     21
4     63
4     82
4     83
4     84
4     100
4     101
4     102

id 2, id 3,id 4完全重复id 1的模式。想要变成
Id point idh pointk
1    15  2     9
1     7  2     4
1    23  2     11
1    33  3     71
1    22  3     65
1    35  3     83
1    12  4     45
1    15  4     21
1    56  4     63
2    78  3     72
2    83  3     73
2    90  3     74
2    77  4     82
2    66  4     83
2    88  4     84
3    91  4     100
3    92  4     101
3    93  4     102

怎么写啊？

jl60156,真是高手啊， 多谢多谢了。不知道怎么把金币给你，是设为最佳答案就可以了吗？

想追问一下比如这样的

Id point
1   15
1    7
1   23
1  33
1  22
1  35
1  12
1  15
1   56
2     9
2     4
2     11
2    78  
2    83  
2    90  
2    77  
2    66  
2    88
3     71
3     65
3     83
3     72
3     73
3     74
3    91  
3    92  
3    93
4     45
4     21
4     63
4     82
4     83
4     84
4     100
4     101
4     102

id 2, id 3,id 4完全重复id 1的模式。想要变成
Id point idh pointk
1    15  2     9
1     7  2     4
1    23  2     11
1    33  3     71
1    22  3     65
1    35  3     83
1    12  4     45
1    15  4     21
1    56  4     63
2    78  3     72
2    83  3     73
2    90  3     74
2    77  4     82
2    66  4     83
2    88  4     84
3    91  4     100
3    92  4     101
3    93  4     102

怎么写啊？

just revise the previous code as the following


data want;
        set have;
        do i=1 to nobs;
        set have(rename=(id=idh point=pointk seq=seqh)) nobs=nobs  point=i;
        if id<idh and id eq ceil(seqh/3) and seq eq ((mod(seqh,3)+(mod(seqh,3) eq 0)*3) +(idh-2)*3) then output;
        end;
run;

佩服，能分析成这样细真的是有功夫啊，受教了，真心感谢。