如果excel单元格中有汉字-数字-汉字 如何一次性全部拆分为三列

正则表达式

If Selection.Cells.Count = 0 Then Exit Sub
    '秋色烽火原创代码，转载请保留信息。 2018-05-23
    Dim rng As Range
    Dim reg, mh, mhk
    
    Set rng = Selection.Cells
    
    Set reg = CreateObject("vbscript.regexp")
    reg.Pattern = "([^\d]+)(\d+)([^\d]+)"
    reg.Global = True
    
    For I = 1 To rng.Cells.Count
        Set mh = reg.Execute(rng.Cells(I, 1))
        If mh.Count <> 0 Then
            For Each mhk In mh
                Debug.Print mhk.SubMatches.Item(0) & vbCrLf & mhk.SubMatches.Item(1) & vbCrLf & mhk.SubMatches.Item(2)
            Next
        End If
    Next