data ex;
infile cards missover;
input city $ field $ module $  traffic1 $   traffic2 $;
cards;
上海  宝山  大华板块         7号线    737,738
上海  宝山  大华板块          11号线    58,78
上海  嘉定  嘉定新城板块    3号线      嘉环二线
上海  嘉定  嘉定新城板块     11号线   
;
run;

proc sql;
create table ex1 as
select * from
(select city,field,module,traffic1 as traffic from ex
union all
select city,field,module,traffic2 as traffic from ex)
order by city,field,module;
quit;



proc transpose data=ex1 out=ex2(drop=_name_);
by city field module;
var traffic;
run;

你这里同一个【城市+区域+板块】组合会出现多少次
如果最多出现两次的话，就比较好办
如果次数不定就有些麻烦了

只不过问这种问题的
如果不是最后表格展示需要
基本可以通过改进算法来避免这种转换

有几次出现几次……T.T

顶!!!!!!

data ex;
infile cards missover;
length module $20.;
input city $ field $ module $  traffic1 $   traffic2 $;
cards;
上海  宝山  大华板块         7号线    737,738
上海  宝山  大华板块          11号线    58,78
上海  嘉定  嘉定新城板块    3号线      嘉环二线
上海  嘉定  嘉定新城板块     11号线   
;
run;

proc sort data=ex;
by city field module;
run;

data want;
set ex;
by city field module;
retain traffic_new1;
traffic_new=catx(',',of traffic1-traffic2);
if first.module then traffic_new1=traffic_new;
else traffic_new1=catx(',',traffic_new1,traffic_new);
if last.module then output;
drop traffic1 traffic2 traffic_new;
run;