[img][/img]

proc import datafile="xxxxxxxxx\TEMP.XLSX"
    out=aa1;
run;

data a2;
  set aa1;
  name=input(substr(product_name,9,2),best.);
  if strip(lowcase(quality_indicator))="good" then subcat=1;
  if strip(lowcase(quality_indicator))="bad" then subcat=2;
  cost=unit_count;  *****seen unit_count as the cost***;
/*  input(cost_amount,??best.);*/
run;
proc sort data=a2;by year name subcat product_details;run;

****get product_name for all bad/good***;
data a3;
  set a2;
  by year name subcat product_details;
  if first.subcat then sum=cost;
    else sum+cost;
  if last.subcat;
run;
proc sort data=a3;by year name subcat product_details;run;

proc transpose data=a3 out=a4 prefix=cost;
  by year name;
  id subcat;
  var sum;
run;

data a5;
  set a4;
  if nmiss(cost1,cost2)=0 then differ=cost2-cost1;**bad minus good***;
  subcat=2;
  keep year name differ subcat;
run;
proc sort data=a5;by year name subcat;run;
proc sort data=a3;by year name subcat;run;

data final;
  merge a3(in=a) a5(in=b);
  by year name subcat;
  if a;
  Bad_Good_Diff=differ;
  keep  year name subcat product_details Bad_Good_Diff
       product_name quality_indicator;
run;         
使用给的数据集，code可以直接copy。
可以得到如上结果

我测试下明天给答复。谢谢帮助。

我的问题都总结在下面的回贴中。

谢谢解答， 请跟进：问题好像出在这一行：proc sort data=a2;by year name subcat product_details;run; 你是不是忘了加 nodup 因为很多产品在加入这个新的subcat 变量后都出现重复的行数。 这个问题解决后， 我不明白下边这段能跑出数据：
data a3;
  set a2;
  by year name subcat product_details;
  if first.subcat then sum=cost;
    else sum+cost; 这里应该是 sum=sum+cost 吧？
  if last.subcat;
run;
proc sort data=a3;by year name subcat product_details;run;

但是当你用proc transpose 的调转数据表后产生的cost2 和 cost1 可以计算diff 啊。我是它们只有一个有数据的情况下不计算diff 但是如果两个都有可以对比一个产品的优劣成本时候，就该有diff 的数值。 这个下面 id subcat 的作用是什么？

proc transpose data=a3 out=a4 prefix=cost;
  by year name;
  id subcat;
  var sum;
run;

这一步之后产生的 a5 dataset 的结果里的diff 都是 . 不该这样把？

这个subcat 是该控制成2 或者是坏的产品的成本与好的产品的成本的差值显示在每个产品的差的成本的总量那一行，但是为啥前面有的产品的cost2 and cost1 都有数据时候，计算的diff 也显示. ?