why？
他的数据应该是两列吧？
如果是两列应该没有问题，而且数据长度最大的应该就是第一个。

可以试试这个。其实数据不大，没必要这折腾。

你的代码和他要的结果不一致,他要的结果是:


                                                           sex     fat
                                                            m     13.3
                                                            m     19.0
                                                            m     20.0
                                                            m      8.0
                                                            m     18.0
                                                            m     22.0
                                                            m     20.0
                                                            m     31.0
                                                            m     21.0
                                                            m     12.0
                                                            m     16.0
                                                            m     12.0
                                                            m     24.0
                                                            f     22.0
                                                            f     26.0
                                                            f     16.0
                                                            f     12.0
                                                            f     21.7
                                                            f     23.2
                                                            f     21.0
                                                            f     28.0
                                                            f     30.0
                                                            f     23.0

没事,凑个热闹:

data test;
input sex $ @1 fat_all $ 3-50;
datalines;
m 13.3 19 20 8 18 22 20 31 21 12 16 12 24
f 22 26 16 12 21.7 23.2 21 28 30 23
;
run;

data test1;
set test;
do i=1 to 13;
fat=input(scan(fat_all,i, " "), 5.);
if fat=. then delete;
output;
end;
drop i fat_all;
run;

其实, 5楼(chendonghui1987) CODE很简洁.

需要retain sex的吧

关键是还要注意程序的可扩展性和通用性。

这个试了下可以啊，多谢！

想请教一下诸位高手，怎么读入这样的数据？
var1 var2 var3 var4 var5 var6
12
1 2 3 4 5 6
1 3 5 6 7 8
1 3 5 6 7 9
11
1 3 4 7 8 9
1 3 5 6 7 8
1 3 5 3 7 9
1 3 5 6 7 8
2
1 3 5 6 7 9
1 2 5 6 8 9

这里那3行特殊的12  11 2是什么意思？表达什么含义？

你可以就看成是var0或作为一个set，每个set里再分别有２－４组var1-var6。