data a;
input v1$ mean_v1 v2$ mean_v2 v3$ mean_v3 @@;
cards;
a 5.6 b 7.3 c 4.8
;
run;
proc transpose data=a out=b;
var _all_;
run;
proc sort data=b;
by _name_;
run;
data b;
set b;
col2=lag3(col1);
drop _name_ ;
rename col1=v col2=mean_v ;
label col1="v" col2="mean_v";
if _n_>=4;
run;

只要是字符数字交错出现就可以，具体变量有多少个，名字是什么无所谓

data a;
input v1$ sdsd yy2$ mv2 vkkkk3$ ooea @@;
cards;
a 5.6 b 7.3 c 4.8
;
run;

proc transpose data=a  out=final;var _all_;run;

data final;
set final;
if mod(_n_,2)=1  then v=col1;v=lag(v);
if mod(_n_,2)=0 then mean_v=col1;
if v=mean_v=' ' then delete;
keep v mean_v;
run;

变量个数和描述变量名写死的前提下这样写就可以了
需要变化的话，改个宏吧......

Here is an example to use arrays.

data tmp;
v1='a';
mean_v1=5.6;
v2='b';
mean_v2=7.3;
v3='c';
mean_v3 =4.8;
fmtname='mapv.';
run;

data tmp2;
  length vname $2;
   set tmp;
   array mean(*) mean_v1 mean_v2 mean_v3;
   array v(*) v1 v2 v3;
   do i = 1 to dim(mean);
      vname=v(i);
      mean_v=mean(i);
      output;
   end;
   keep vname mean_v;
run;

proc print;run;

这样可以不？各位大侠
data temp;
   input  v $ mean_v @@;
   cards;
a 5.6 b 7.3 c 4.8;/*有多少复制多少*/
;
run;
proc print data = temp;
run;