请问如何将A列内容整理成B列样式

529905149

请问如何将A列内容整理成B列样式
选项中带关键词“？”则是正确答案。
A列为原始，整理好显示在B列。
谢谢

DevilW

zlx789

1. Sub test1()
   
2.     maxR = [a65536].End(3).Row
   
3.     anr = 0
   
4.     opArr = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J")
   
5.     For r = 1 To maxR
   
6.         If Range("a" & r).Value = "正确答案：" Then
   
7.             Range("b" & r) = Range("a" & r).Value & opArr(rightR - anr - 2)
   
8.             anr = r
   
9.         ElseIf r = anr + 1 Then
   
10.             Range("b" & r) = Range("a" & r).Value
    
11.         Else
    
12.             If Right(Range("a" & r).Value, 1) = "?" Then
    
13.                 rightR = r
    
14.                 Range("b" & r) = opArr(r - anr - 2) & "." & Mid(Range("a" & r).Value, 1, Len(Range("a" & r).Value) - 1)
    
15.             Else
    
16.                 Range("b" & r) = opArr(r - anr - 2) & "." & Range("a" & r).Value
    
17.             End If
    
18.         End If
    
19.     Next r
    
20. End Sub

复制代码

529905149

Sub test()   ar = Range([a1], [a65536].End(3))     For i = 1 To UBound(ar)         n = n + 1         If n > 1 Then s = Mid("ABCDEF", n - 1, 1)         If ar(i, 1) Like "*[?]" Then            yn = s            ar(i, 1) = Mid(ar(i, 1), 1, Len(ar(i, 1)) - 1)         End If         If InStr(ar(i, 1), "正确答案") = 1 Then             ar(i, 1) = ar(i, 1) & yn             n = 0         End If         If n > 1 Then ar(i, 1) = s & "." & ar(i, 1)     Next   [b1].Resize(UBound(ar), 1) = ar End Sub

529905149

Sub test()
  ar = Range([a1], [a65536].End(3))
    For i = 1 To UBound(ar)
        n = n + 1
        If n > 1 Then s = Mid("ABCDEF", n - 1, 1)
        If ar(i, 1) Like "*[?]" Then
           yn = s
           ar(i, 1) = Mid(ar(i, 1), 1, Len(ar(i, 1)) - 1)
        End If
        If InStr(ar(i, 1), "正确答案") = 1 Then
            ar(i, 1) = ar(i, 1) & yn
            n = 0
        End If
        If n > 1 Then ar(i, 1) = s & "." & ar(i, 1)
    Next
  [b1].Resize(UBound(ar), 1) = ar
End Sub

529905149

DevilW 发表于 2023-5-19 12:10

谢谢老师，如果要是多选题呢？

tel3033

529905149 发表于 2023-5-19 15:23
谢谢老师，如果要是多选题呢？

供参考……

蜗牛等我

zlx789 发表于 2023-5-19 13:16

这个有点厉害了，这个可以

529905149

zlx789 发表于 2023-5-19 13:16

厉害，谢谢

gwjkkkkk

参与一下。。。