SubtotalFill(2,"月份,销售单位信息_企业名称,矿产品名称","吨位_票重,补征金额,份数","2,2,4")And ReplaceFor(Grid,1,"小计",2,"=","",1,"<>","总计")And ReplaceFor(Grid,2,"小计",3,"=","")And Select(1,1,1,Cols) And SendKeys("{Tab 3}~") and Do(290) And Move(1,1) And OpenWindow(0) And LockAll()