谢晖

摘要： 问题提出:由于阅卡机的原因,导致无法提取单科成绩,这个程序就是解决这个问题. 代码如下: (1)取得标准选项的各种组合 需要准备的数据:题号及标准选项,C列及后续列为程序生成. Sub 取得标准选项的各种组合() Dim totalR As Integer, i As Integer Worksheets("答案").Activate totalR = Range("A65536").End(xl... 阅读全文