function 多表汇总(){ var sht1=Sheets("汇总"); sht1.Range("a1:d1").Value2=["月份","工号","姓名","销售额"]; sht1.Range("a2:d"+sht1.UsedRange.Rows.Count).ClearContents() for(var sht of Sheets){ if(sht.Name!="汇总"){ var maxr=sht.UsedRange.Rows.Count; var lastrng=sht1.Cells(Rows.Count,2).End(3)(2,1); sht.Range("a2:c"+maxr).Copy(lastrng); var fisrtrng=sht1.Cells(Rows.Count,1).End(3)(2,1); fisrtrng.Resize(maxr-1,1).Value2=sht.Name; } }}
本节主要学习:
1、工作表的UsedRange属性
2、单元格区域中内容的清除方法ClearContents
3、单元格区域的扩展方法End
4、单元格区域的重新确定Resize
联系客服