字符区间如何拆分

gwjkkkkk

Option Explicit
Sub TEST1() '模板1
    Dim ar, br, i&, j&, k&, r&, Matches As Object, iStart&, iEnd&, strLetter$
   
    ar = [A1].CurrentRegion.Value
    ReDim br(1 To UBound(ar) * 10, 1 To UBound(ar, 2) - 1)

    With CreateObject("VBScript.RegExp")
        .Pattern = "([A-Z])(\d+).?[A-Z](\d+)"
        For i = 1 To UBound(ar)
            If .test(ar(i, 5)) Then
                Set Matches = .Execute(ar(i, 5))(0)
                strLetter = Matches.submatches(0)
                iStart = Matches.submatches(1)
                iEnd = Matches.submatches(2)
                For k = iStart To iEnd
                    r = r + 1
                    For j = 1 To UBound(br, 2)
                        br(r, j) = ar(i, j)
                    Next j
                    br(r, 5) = strLetter & k
                Next k
            Else
                r = r + 1
                For j = 1 To UBound(br, 2)
                    br(r, j) = ar(i, j)
                Next j
            End If
        Next i
    End With
   
    [I1].CurrentRegion.ClearContents
    [I1].Resize(r, UBound(br, 2)) = br
    Beep
End Sub

gwjkkkkk

。。。。。。。。。。。。