哦，恍然大悟，之前没反应过来，十分感谢！再问一下哈，嘿嘿。。。如果不知道数据集的观测数n为多少怎么办？我知道最笨的方法是对于30个数据集做一下means过程，然后自己计算确定%eval(&i+m)中的m=n+i-6。有简单方法吗？再次感谢！

data a1;
input bh1 sz1;
cards;
5 13
7 12
8 11
4 3
5 13
7 12
8 11
4 3
;

%macro repeat(data=);
proc sql;
select count(*) into:n from &data; /*获取数据集的观测数，并赋值给宏变量&n*/
quit;
data a;
%do i=6 %to 1 %by -1;
set &data(keep=bh1 firstobs=&i obs=%eval(&n+&i-6));
col&i=bh1;
keep col&i;
%end;
run;
%mend;
%repeat(data=a1) /*对于数据集a1操作，30个数据集只需将a1不断更改即可*/

谢谢，看来我要好好的学习一下数组和宏。不过这个程序会丢掉class数据集的第一个观测值,我把内循环改成do j=0 to 5;name(j+1)=col(i+j);但是无论改还是不改，程序都会出现警告，如下：
WARNING: 输入数据集为变量“col1”指定了多个长度。这可能会造成数据截断。
。。。。。。。
WARNING: 输入数据集为变量“col19”指定了多个长度。这可能会造成数据截断。
能改进吗？谢谢！

Thangk you very.I will study array to make up my shortage.

确实上个程序会丢掉第一个观测。试试这个：
data name;
   set sashelp.class end=last;
   keep name;
   if last then call symputx("nobs",_n_);
run;

proc transpose data=name out=name1;
   var name;
run;

data name2;
    array name(6) $;
        array col(&nobs) $ col1-col&nobs;
        set name1;
    do i=1 to &nobs-5;
            do j=0 to 5;
                   name(j+1)=col(i+j);
                end;
                   output;
        end;
        keep name:;
        stop;
run;

这个事可以的，我试过，不过有警告，之前的回复说了，求改进，嘿嘿。。。谢谢。还有为什么要对name数据集转置为name1数据集，有什么作用？数据集name1在这里什么用？疑惑中。

还想问个问题，关于stop语句的。我只知道stop语句可以停止当前的data步，不影响后面的data步或者proc步的执行，但是在这里的作用是什么？循环从i=1到184不就自动结束了吗？谢谢！

刚才的回复有问题，不好意思啊，我知道name1数据集的作用。现在的程序可以，我试过，结果正确，不过有警告，之前的回复说了，求改进，嘿嘿。。。谢谢。但是 keep name:;这句我不怎么理解，疑惑中。我还不知道keep语句的这种用法，求详细解析，谢谢！

A data step stops a internal loop when end-of-file is reached or a stop statement is executed.

The end-of-file  is ignored when point access is used in a data step. So a explicit stop statement is needed to stop its looping.

我这边运行没有警告：

1    data name;
2       set sashelp.class end=last;
3       keep name;
4       if last then call symputx("nobs",_n_);
5    run;

NOTE: There were 19 observations read from the data set SASHELP.CLASS.
NOTE: The data set WORK.NAME has 19 observations and 1 variables.
NOTE: DATA statement used (Total process time):
      real time           0.29 seconds
      cpu time            0.01 seconds


6
7    proc transpose data=name out=name1;
8       var name;
9    run;

NOTE: There were 19 observations read from the data set WORK.NAME.
NOTE: The data set WORK.NAME1 has 1 observations and 20 variables.
NOTE: PROCEDURE TRANSPOSE used (Total process time):
      real time           0.04 seconds
      cpu time            0.03 seconds


10
11   data name2;
12       array name(6) $;
13           array col(&nobs) $ col1-col&nobs;
14           set name1;
15       do i=1 to &nobs-5;
16               do j=0 to 5;
17                      name(j+1)=col(i+j);
18                   end;
19                      output;
20           end;
21           keep name:;
22           stop;
23   run;

NOTE: There were 1 observations read from the data set WORK.NAME1.
NOTE: The data set WORK.NAME2 has 14 observations and 6 variables.
NOTE: DATA statement used (Total process time):
      real time           0.10 seconds
      cpu time            0.04 seconds

Keep name:; 这句表示keep所有以“name”开头的变量。相当于：
keep name1 name2 name3 name4 name5 name6; /*将所有变量一一列出*/
keep name1-name6;  /*表示keep name1, name2,.. 一直到 name6*/
keep name1--name6; /*按照变量在数据集中的位置keep name1 和name6之间的所有变量，对名字没有要求*/

很详细，谢谢！

I  got it.Thank you very much。