未完成订单(12306一直显示有未完成订单)

数据表截图

订单号

订单等级

订单数量

完成数

10001

高级

30

25

10002

高级

40

23

10003

高级

40

20

用宏实现表中订单完成情况计算，并把未完成结果复制到另一表中。

function 订单统计(){

Range("E1").Value2="未完成订单数";//单元格赋值

Range("E2").Formula="=C2-D2";//输入公式

Range("E2").Select();

Selection.AutoFill(Range(Range("D2").Offt(0,1),Range("D2").End(xlDown).Offt(0,1)),xlFillDefault); //自动填充，计算所有行。

}

运行结果：

function 订单统计(){

Range("E1").Value2="未完成订单数";

Range("E2").Formula="=C2-D2";

Range("E2").Select();

Selection.AutoFill(Range(Range("D2").Offt(0,1),Range("D2").End(xlDown).Offt(0,1)),xlFillDefault);

Range("E1").Select();

Selection.AutoFilter(undefined, undefined, xlAnd, undefined, undefined);//设置筛选

Range(Range("D1").Offt(0,1),Range("D1").End(xlDown).Offt(0,1)).AutoFilter(5, ">0", xlAnd, undefined, undefined);//条件筛选

Range(Range("A1"),Range("D1").End(xlDown).Offt(0,1)).Select();

}