1 在Excel文件中按先名顺序把所有Sheet合并到一起，并标序顺号；2 全部加载到FoxTable 一个表中，名为表A；
3 在FoxTable再建一个表名为表B，格式和表A相同；
4 在杂项命令窗口编一段如下程序，执行即可
Dim s As Row
For Each a As Row In Tables("表A").Rows
r=DataTables("表B").find("姓名='" & a("姓名") & "' And 选课='" & a("选课") & "'")
If r Is Nothing Then
s=Tables("表B").AddNew
s("姓名")=a("姓名")
s("选课")=a("选课")
s("成绩")=a("成绩")
s("学分")=a("学分")
s("备注")=a("备注")
Else
r("成绩")=a("成绩")
r("学分")=a("学分")
r("备注")=a("备注")
End If
Next
不知还有什么更简单的方法了
加好友 
发短信
Post By：2016/10/6 7:26:00 [显示全部帖子]
