dm "clear output";
dm "clear log";
PROC IMPORT OUT= WORK.OLD
            DATAFILE= "C:\mysas\input\test\original.xls"
            DBMS=EXCEL REPLACE;
     SHEET="'1$'";
     GETNAMES=YES;
     MIXED=YES;
     SCANTEXT=YES;
     USEDATE=YES;
     SCANTIME=YES;
RUN;
data old1 (drop=date) ;
set old;
newdate=input(cat(date),YYMMN6.);
format newdate MONYY7.;
run;
proc sort data=old1 out=old2;
by company product newdate;
run;
*Remove the product with only one observation (will cause error in expand proc).;
data old3;
set old2;
by company product newdate;
if first.product=1 and last.product=1 then delete;
run;
proc expand data=old3 out=old4(drop=quant) to=month;
by company product;
id newdate;
run;
data new;
merge old2 old4;
by company product newdate;
run;
data new (drop=quant  rename=(quant1=quant));
set new;
retain quant1;
if quant ^= . then quant1=quant;
run;
data new;
set new;
date=substr(put(newdate,MMDDYY10.),7)||substr(put(newdate,MMDDYY10.),1,2);
run;


*Not sure if it's what you need.;

2# funnyxuke

谢谢你的关注，你的解答非常接近了，但是还是没有实现我所要的。首先如果company100001全部补足后，应该有220行，但用你的code我运算后，只有114行。少了6行。 其次 我发现company100001的199103月有02680410这个产品，但199104 199105两个月都没有补上这个产品，从而导致199103月有9行（9个产品），但199104 199105两个月只有8个产品。主要原因是199103月是这个产品02680410出现的最后月份，所以你的语句中可能没有再对这个产品进行补足在随后的两个月199104 199105，是否是这样？能否解决这个问题？！
希望再次给予帮助！多谢

company 100001 product 02680410
1991年3月已经是最后一个数据拉，这个也要往下衍生吗? 你要补中间的gap,还是要往后面延伸？
前面的product到12月份最后数据的就没有延伸。







3# funwin

可以加一个判断，如果最后1个是12月就不加，其他的多加2个月？
是这个意思吗？

5# funnyxuke

其实 我要补的是缺失的月份，默认缺失的月份和上一个已知月份的产品和数量一样，而不是看产品是不是最后一个。
比如199003月有A产品，那么丢失的199004 199005月 也要有A产品。除非199003是最后一个月，那就不需要补充后面的月份的数据了。