求助：如何把工作表里A1的内容变成C2那样的形式

prowl

A1里有4道题，如何根据数字把题和选项变成C2那样的形式。先谢谢老师了

limonet

关键字：(?=\.)
=REGEXREPLACE(A1,"(\d+|[A-D])(?=\.)",CHAR(10)&"$1",,0)

limonet

Sub limonet()
    Dim Arr As Variant
    With CreateObject("vbscript.regexp")
        .Pattern = "(\d+|[A-D])(?=\.)"
        .Global = True
        Arr = Split(Mid(.Replace(Range("A1"), "￥$1"), 2), "￥")
    End With
    Range("B1").Resize(UBound(Arr) + 1) = WorksheetFunction.Transpose(Arr)
End Sub

limonet

关键字：￥￥￥

quqiyuan

参与一下，仅供参考。。。
写的长了，可以对A列有数据都可以处理

quqiyuan

代码如下。。。Sub test()
    Set reg = CreateObject("vbscript.regexp")
    Set rg = CreateObject("vbscript.regexp")
    Dim brr(1 To 10000, 1 To 1)
    With Sheet1
        arr = .Range("a1:a" & .Cells(.Rows.Count, 1).End(3).Row)
        If IsArray(arr) Then
            For i = 1 To UBound(arr)
                With reg
                    .Pattern = "\d+\..+?(?=[\d])|\d+\..+?$"
                    .Global = True
                    If .test(arr(i, 1)) Then
                        Set s = .Execute(arr(i, 1))
                    End If
                End With
                For j = 0 To s.Count - 1
                    With rg
                        .Pattern = "\d+.*?(?=[A-E]\.)|[A-E]\..*?(?=[A-E]\.)|[A-E]\..*$"
                        .Global = True
                        If .test(arr(i, 1)) Then
                            Set ss = .Execute(s(j))
                        End If
                    End With
                    For k = 0 To ss.Count - 1
                        n = n + 1
                        brr(n, 1) = ss(k)
                    Next
                Next
            Next
        Else
            With reg
                .Pattern = "\d+\..+?(?=[\d])|\d+\..+?$"
                .Global = True
                If .test(arr) Then
                    Set s = .Execute(arr)
                End If
            End With
            For j = 0 To s.Count - 1
                With rg
                    .Pattern = "\d+.*?(?=[A-E]\.)|[A-E]\..*?(?=[A-E]\.)|[A-E]\..*$"
                    .Global = True
                    If .test(arr) Then
                        Set ss = .Execute(s(j))
                    End If
                End With
                For k = 0 To ss.Count - 1
                    n = n + 1
                    brr(n, 1) = ss(k)
                Next
            Next
        End If
        .[c2].Resize(n, 1) = brr
    End With
    Beep
End Sub

prowl

quqiyuan 发表于 2024-9-23 19:58
参与一下，仅供参考。。。
写的长了，可以对A列有数据都可以处理

感谢老师帮助

prowl

limonet 发表于 2024-9-23 18:52
关键字：￥￥￥

感谢老师提供帮助

prowl

limonet 发表于 2024-9-23 18:36
关键字：(?=\.)
=REGEXREPLACE(A1,"(\d+|[A-D])(?=\.)",CHAR(10)&"$1",,0)

感谢提供帮助