我需要一个excel的vba逻辑是当字符中出现数字1+S+C+数字2+英文结构时把其中C+数字2和英文分别拆分出来

Sub SplitString() '定义变量 Dim str As String Dim num1 As String Dim num2 As String Dim c As String Dim eng As String

'循环读取每个单元格的值
For Each cell In Range("A1:A" & Cells(Rows.Count, "A").End(xlUp).Row)
    '获取单元格的值
    str = cell.Value
    
    '判断字符串中是否包含"1S"和"C"，以及"C"后面是否跟着数字
    If InStr(str, "1S") > 0 And InStr(str, "C") > 0 And IsNumeric(Mid(str, InStr(str, "C") + 1, 1)) Then
        '获取数字1和数字2
        num1 = Left(str, InStr(str, "1S") - 1)
        num2 = Mid(str, InStr(str, "C") + 1, 1)
        
        '获取"C"和英文字母
        c = Mid(str, InStr(str, "C"), 2)
        eng = Mid(str, InStr(str, "C") + 2)
        
        '将拆分后的数据写入相邻的单元格
        cell.Offset(0, 1) = num1
        cell.Offset(0, 2) = c
        cell.Offset(0, 3) = num2
        cell.Offset(0, 4) = eng
    End If
Next cell

End Sub