exce表格将题目与答案分开 请大神帮忙

stbeibei

要上传题目到题库，几千道题目，求大神帮忙指导如何快速处理

把模板中题干一栏的答案提取道H/I/J/K对应答案编号的空格，同时把题目中的答案部分去掉。

时间紧 任务重 恳求大家帮忙 无尽感激

论坛搜索 都看了 都是WORD的

stbeibei

模板题目截取一部分 需要完整的 可以上传 谢谢！

chxw68

1. Sub test()
   
2.   Dim r%, i%
   
3.   Dim arr, brr
   
4.   Dim reg As New RegExp
   
5.   With reg
   
6.     .Global = True
   
7.     .Pattern = "\([A-Z]\)(.*?)(?=\([A-Z]\)|$)"
   
8.     Set mh = .Execute(Range("c2"))
   
9.   End With
   
10.   With Worksheets("sheet1")
    
11.     r = .Cells(.Rows.Count, 1).End(xlUp).Row
    
12.     arr = .Range("a2:k" & r)
    
13.     For i = 1 To UBound(arr)
    
14.       Set mh = reg.Execute(arr(i, 3))
    
15.       If mh.Count > 0 Then
    
16.         For j = 0 To mh.Count - 1
    
17.           arr(i, 8 + j) = mh(j).SubMatches(0)
    
18.         Next
    
19.         arr(i, 3) = reg.Replace(arr(i, 3), "")
    
20.       End If
    
21.     Next
    
22.     .Range("a2").Resize(UBound(arr), UBound(arr, 2)) = arr
    
23.   End With
    
24. End Sub
    

复制代码

chxw68

详见附件。

gbgbxgb

亏楼主还老师！选项说成答案？“提取道”？

罗达

chxw68 发表于 2020-3-3 20:33
详见附件。

改成后期绑定可能好些

chxw68

罗达 发表于 2020-3-3 20:43
改成后期绑定可能好些

谢谢提醒！

stbeibei

gbgbxgb 发表于 2020-3-3 20:37
亏楼主还老师！选项说成答案？“提取道”？

杠精还真是多

stbeibei

chxw68 发表于 2020-3-3 21:19
谢谢提醒！

非常感谢老师的帮助