[已解决]求高手帮忙。。。

139079696

我不知道呀 发表于 2013-4-22 21:07
Sub tt2()
    Dim i As Integer
    Dim j As Integer

不显示答案了。。。。其实很接近了，单选题能正常使用，就是多选题答案只显示最后一个，就差一点漏洞就能完美了

我不知道呀

139079696 发表于 2013-4-23 00:40
不显示答案了。。。。其实很接近了，单选题能正常使用，就是多选题答案只显示最后一个，就差一点漏洞就能 ...

我测试过很正常，给你个附件，你点按钮看看吧！

139079696

我不知道呀 发表于 2013-4-23 19:46
我测试过很正常，给你个附件，你点按钮看看吧！

谢谢，辛苦您了，还是有点小问题

139079696

我不知道呀 发表于 2013-4-22 21:07
Sub tt2()
    Dim i As Integer
    Dim j As Integer

这个文件，是我从考场复制出来的完整试卷，但题目格式不对多了好多空格，无法提取题目，求大哥帮忙修改下
Book1.rar (34.59 KB, 下载次数: 3)

2013-4-28 21:29 上传

点击文件名下载附件

我不知道呀

139079696 发表于 2013-4-28 21:30
这个文件，是我从考场复制出来的完整试卷，但题目格式不对多了好多空格，无法提取题目，求大哥帮忙修改下 ...

如想提取，就用公式吧你在B4单元格中输入公式=IF(LEFT(A4,8)="        ",MID(A4,FIND("、",A4,1)+1,100),"")然后直接下拉，就能提取了