以你另一个帖子的例子，为例：
/*数据*/
data a;
input x y z t;
cards;
3 4 2 1
1 2 3 4
;
run;
proc iml;
   use a;     /*读入数据*/
   read all var  {x y z t};/*变量*/
   read all var _all_ into m;/*数据读入矩阵m*/
   print m ;/*查看*/
   m[2,2:4]=.;/*将第二行观察的，第2-4列数据替换为缺失*/
   create new var{x y z t} ;/*新建数据new*/
   append from m; /*将矩阵数据读入new*/
quit;
proc print data=new;run;/*查看new*/

多谢回答，还有个疑问 就是因为原数据集变量名很多，我怎样将原数据集的变量全部取出来呢？
就是以下步骤：create new var{x y z t} ;/*新建数据new*/
变量名很多，我无法手工输入，谢谢。

数据量大的时候 建议用 HaricH 的方法

谢谢你的解答，还有一个疑问，如果观测2是从第2个变量开始删，观测3是从第3个变量开始删，您的宏如何修改呢？谢谢！
data a;
input x y z t;
cards;
3 4 2 1
1 2 3 4
2 3 3 4
;
run;

data a;
input x y z t w $;
cards;
1 2 3 4 s
3 4 2 1 s
3 4 2 1 s
3 4 2 1 s
3 4 2 1 s
;
run;

%macro cut(ds=,cutnum=);

proc contents data=&ds out=b(keep=name varnum);
run;

proc sql noprint;
        select name into:name_list separated by '-'
        from b
        where varnum>=&cutnum.
        order by varnum
;
quit;

%put &name_list.;

data a;
set a;
drop Var_order;
%let i=1;
%do %while(%scan(&name_list,&i,-) ne %quote());
        %let var=%scan(&name_list,&i,-);
        %let Var_order=%eval(&cutnum.+&i.-1);/*Var_order为变量在数据集中的序号*/
        if _n_>1  then do;
                if &Var_order>_n_-1 then
                        call missing(&var);
        end;
        %let i=%eval(&i+1);
%end;
run;

%mend;


%cut(ds=a , cutnum=2)

明白了谢谢

谢谢你的解答，还有一个疑问，如果观测2是从第2个变量开始删，观测3是从第3个变量开始删，您的宏如何修改呢？谢谢！
data a;
input x y z t;
cards;
3 4 2 1
1 2 3 4
2 3 3 4
;
run;

矩阵里面直接定义元素下标

不是没有导入矩阵吗？

变量太多， 无法手工输入，用iml 必需得输入变量名吧？

ERROR: The text expression length (70395) exceeds maximum length (65534). The text expression
       has been truncated to 65534 characters.
是因为变量名太多了吗？ 如果是举例数据集，你的宏是可以的，但是我的变量有9000多个，怎么解决呢？谢谢

您好！你的方法可以解决变量名手工输入的问题吗？

可以设置个步长。

data a;
input x y z t w $;
cards;
1 2 3 4 s
3 4 2 1 s
3 4 2 1 s
3 4 2 1 s
3 4 2 1 s
;
run;

%macro cut(ds=,cutnum=,step=);

proc contents data=&ds out=b(keep=name varnum);
run;

data _null_;
set b(drop=_all_) nobs=n;
call symputx('total',n);
stop;
run;


%do %while(&cutnum.<=&total.);
        proc sql noprint;
                select name into:name_list separated by '-'
                from b
                where varnum>=&cutnum. and varnum<=&&cutnum.+&step-1
                order by varnum
        ;
        quit;

        %put &name_list.;

        data a;
        set a;
        %let i=1;
        %do %while(%scan(&name_list,&i,-) ne %quote());
                %let var=%scan(&name_list,&i,-);
                %let Var_order=%eval(&cutnum.+&i.-1);/*Var_order为变量在数据集中的序号*/
                if _n_>1  then do;
                        if &Var_order>_n_-1 then
                                call missing(&var);
                end;
                %let i=%eval(&i+1);
        %end;
        run;

        %let cutnum=%eval(&cutnum.+&step.);
%end;
%mend;


%cut(ds=a,cutnum=2,step=1)

我想会不会是因为楼主的变量太多，以至于name_list这个字符串的长度太长，超出了字符串长度的极限？

你并没有改动name_list，所以，我仍然抱有疑问。

是我笨了，看出来了

这里%let i=1之后的那个%do-%end可以修改简化。

我差点就看不懂了。这里应该写清晰些。

前面的做法效率会慢，因为DATA步要执行多次。修改了一下，DATA步只执行一次的。
data a;
input x y z t w $;
cards;
1 2 3 4 s
3 4 2 1 s
3 4 2 1 s
3 4 2 1 s
3 4 2 1 s
;
run;

options mprint;
%macro cut(ds=,cutnum=,step=);

proc contents data=&ds out=b(keep=name varnum);
run;

data _null_;
set b(drop=_all_) nobs=n;
call symputx('total',n);
stop;
run;

%let num=1;
%let cutnum1=&cutnum.;
%do %while(&cutnum1.<=&total.);
        proc sql noprint;
                select name into:name_list&num separated by '-'
                from b
                where varnum>=&cutnum1. and varnum<=&&cutnum1.+&step-1
                order by varnum
        ;
        quit;

        %let cutnum1=%eval(&cutnum1.+&step.);
                %put &&name_list&num;
                %let num=%eval(&num.+1);
%end;

data a;
set a;
if _n_>1  then do;
        %do c=1 %to &num.-1;
                %let i=1;
                %do %while(%scan(&&name_list&c,&i,-) ne %quote());
                        %let var=%scan(&&name_list&c,&i,-);
                        %let Var_order=%eval(&cutnum.+&i.-1);/*Var_order为变量在数据集中的序号*/
                                if &Var_order>_n_-1 then
                                        call missing(&var);
                        %let i=%eval(&i+1);
                %end;
                %let cutnum=%eval(&Var_order+1);
        %end;
end;
run;


%mend;


%cut(ds=a,cutnum=2,step=1)

不过还有一种更好得方法，就是将字典表抓入PDV。代码也少很多。