嗯~确实是，谢谢您！

楼主，好像这个编法有一点问题。比如对于第一行
main           ID1         ID2          ID3           ID4
1000        1017        1027        1021        1010
如果1017在后续的行中只出现在ID1的位置，那么您的算法没问题；
但是假如1017出现在了ID2，ID3或者ID4的column，那么您的算法就没有计数计进去了。。
我需要不管1017出现在哪个位置，只要1000和1017出现在了同一行，计数就加一。
是否有办法？谢谢您

看着你这个四位数字像是科目号.
你既然都不管出现那个id中都进行汇总,不如不在求四个tie,把数据源进行转置,
比如第一行1000        1017        1027        1021        1010
把他转置为
1000 1017
1000 1027
1000 1021
1000 1010
这四条记录,其他行类似,这样最后根据这两列进行汇总统计,就可以了.

data work.a;
        input mainid $ id1 $ id2 $ id3 $ id4 $;
        datalines;
1000        1017        1027        1021        1010
1000        2109        2013        1001        1002
1000        1013        1021        1051        1799
1000        1280        1278        1369        1928
1000        7832        2178        1279        1276
1001        1928        1932        1652        3827
1001        1927        1587        8172        9172
1001        1979        9731        9179        7382
1001        1972        8723        7632        8372
1001        2981        9128        9217        3917
1000        1017        1028        1021        1010
1002        1292        9132        7382        8328
1002        9170        9312        7398        9371
1002        9372        7483        8327        4928
1002        8362        9837        7436        8327
1002        3091        3028        3108        3208
;
run;



proc sql noprint;
        create table work.b as
                select distinct mainid,id1 as id,count(mainid) as tie
                from work.a
                group by mainid,id1;

        create table work.c as
                select distinct mainid,id2 as id,count(mainid) as tie
                from work.a
                group by mainid,id2;

        create table work.d as
                select distinct mainid,id3 as id,count(mainid) as tie
                from work.a
                group by mainid,id3;

        create table work.e as
                select distinct mainid,id4 as id,count(mainid) as tie
                from work.a
                group by mainid,id4;
quit;

data work.result;
/*        set work.b(keep = mainid id) work.c(keep = mainid id) work.d(keep = mainid id) work.e(keep = mainid id);*/
        set work.b work.c work.d work.e;
run;


proc sql noprint;
        create table work.result as
                select mainid,id,sum(tie) as tie
                from work.result
                group mainid ,id;
quit;