摘要: Option Base 1 '此为对字串进行分列处理,将每个学生的每个小题的选项进行分列。 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, 5).Va... 阅读全文
posted @ 2012-10-20 11:33 surfacetension 阅读(585) 评论(0) 推荐(0) 编辑