摘要: 改进主要集中在标准答案选项的组合提取;各题得分的判断. ①将学生答案进行分列处理: 原效果图: Sub 分列操作() Dim i As Integer, totalR As Integer, j As Integer totalR = Range("A65536").End(xlUp).Row For i = 2 To totalR For j = 1 To Len(Cells(i, 4).Val... 阅读全文
posted @ 2011-04-20 07:58 surfacetension 阅读(403) 评论(0) 推荐(1) 编辑