问EXCEL 字符串 数字字母 如何实现快速分列??

suozhiwoai

原始文本: AA 1233,230BBBB DDE 666DEOB DSFS FSAASR 555FSFSKFS-DSFSS

实现效果: AA        1233,230BBBB DDE        666DEOB DSFS FSAASR        555FSFSKFS-DSFSS

想要处理大量这样的数据，相对比这个更长. 实现 数字+字母的组合.

我的思路是: 在数字前加一个文本中没有的字符，然后使用分列实现最总结果。

遇到问题: 没有找到快速在数字前加特殊字符的方法.

跪求大神指导。

苏小亓

提问技巧

1.提问之前可以先在论坛搜索相关帖子

2.提问的时候尽量问题说明白点 要有效果图 有表格附件

3.如果别人帮你解决了问题一定要记得回复别人结果 和说声谢谢 有鲜花的话也可以送几朵

4.问题解决后你可以学习别人解决问题的方法

[新手必读]发帖须知、上传附件、截图动画、压缩解压、靓帖推荐：
http://club.excelhome.net/thread-184567-1-1.html

Excel Home论坛学习及使用完全攻略(新人必读)：
http://club.excelhome.net/thread-449518-1-1.html

EH技术论坛的最佳学习方法：
http://club.excelhome.net/thread-117862-1-1.html

山菊花

Sub Test()
    Dim regEx As Object, objStrAll As Object, Arr
    Dim strT$, strMsg$, intI%, m As Boolean, cTxt$
   
    strT = "AA 1233,230BBBB DDE 666DEOB DSFS FSAASR 555FSFSKFS-DSFSS"
   
    If Not Left(strT, 1) Like "#" Then
        strT = "0" & strT
        m = True
    End If
    Set regEx = CreateObject("VBScript.RegExp")
    With regEx
        .Global = True
        .Pattern = "\d+\S*"
        Set objStrAll = .Execute(strT)
    End With
   
    cTxt = ""
    For intI = 0 To objStrAll.Count - 1
        cTxt = IIf(intI = 0, "", cTxt & " ") & objStrAll(intI)
    Next
    If m Then cTxt = Mid(cTxt, 2)
    Arr = Split(cTxt)
   
End Sub