作者：乔山办公网日期：
返回目录：excel表格制作
代码不是很难，但由于不清楚源数据的结构，其中对数据的处理，能看明白是什么动作，但是不知道处理结果，所以不好说~~
要不你Hi我，传给我文件看看，我再详细解释给你
Sub 扩重()
'上面这一行是是宏开始的标准格式，表示现在开始新定义一个名字叫来做【扩重】的宏
Worksheets("扩重评估").Range("A2:D100000") = ""
'这一句表示把表【扩重评估】A-D列、2-10万行的内容清空，这个语句写得很不科学，源一应该使用UsedRange等办法检测表格实际大小，而不是固定10万行，百二是不要这样赋值为空串，应该考虑行的删除rows.delete、或者内容清空range.clearcontents。当前这度样代码处理后的文件就固定有10万行，一是当知数据超过10万的时候就可能造成垃圾数据，二是当数据只有几行的时候文件也非常大。
算了，这代码没什么好学道的，建议你不看了。实在想看就指出不理解的个别语句进行讨论吧。
iCol=Cells(1,colunms.count).end(xltoleft).column
这是第1行的
你确定你的程序是完整的吗？
tmp、riqi都没赋值就拿来用了