摘要：
3月6日发表的同题的文章,现在想想其实只能算是小儿科,因为那个程序一方面太繁琐,另一方面还有着更致命的问题:如果遇到查不到的项目,那么很容易就会引起错误,从而得到错误的结果.现在可以借助字典功能来实现更科学的查询,更严谨的结果.分析如下:表一为"一中二中信息总表.xls"示意图:此表存储着所有学生的班级/姓名/学籍号.此为需要查询的目的表.表二是需要填入班级号(行政班)的"第6学段模块学习成绩表.xls"的样表:此表为需要填入班级号,假设其中已填写的班级号为教学班班级号,现在需要按注册学籍号从表一中提取对应原班级号,并填入表二中相应位置.以前都是利用查找 阅读全文
摘要：
现在想解决的问题是:①如何把不同工作簿中相同格式的工作表合并到新工作簿中?②如何把同一工作簿中相同格式的工作表合并到同一工作表?先来解决第1个问题:如何把不同工作簿中相同格式的工作表合并到新工作簿中Sub 如何合并工作簿至同一工作簿中() '首先遍历指定文件夹下的所有xls文件 Application.DisplayAlerts = False Application.ScreenUpdating = False Dim i, k, totalR1, totalC1, totalR2, totalC2 As Integer Dim sr As FileSearch '定义一个文 阅读全文