n:=range("C2:D10")，表示讲A1:B10内容复制到C2:D10单元格据表").UsedRange '将数据表有数据的区域赋给数组crr
用来表示日期按什么格式显示，如Format(Calendar2.Value, "yyyy-m-d") ].End(xlUp).Row，表示i为A列最后一行不为空的行
编号，发货单号，承运商，数量),表示讲编号等四个字段复制到A1:D1单元格
将k9+1的整行删除
）.Clearcontents
；bond表示加粗
g，目的是释放内存，加快速度
