作者：绿色风
分类：
时间：2022-08-17
浏览：110
楼主
liuguansky |
Q：下面是部分数据，现在要求将汉字和数字混合的字符分开来？
数据很多有15万行
A：- Sub test()
- Dim FN$, Txt As Object, RegEx As Object, Arr, Arrt, N&, I&, T%, Str$
- FN = ThisWorkbook.Path & "\新建 文本文档.txt"
- Set RegEx = CreateObject("vbscript.regexp")
- RegEx.Global = True
- With CreateObject("scripting.filesystemobject")
- Set Txt = .opentextfile(FN)
- ReDim Arr(1 To 7, 1 To 1)
- Arrt = Split("序号 城市 日期 污染指数 首要污染物 空气质量级别 空气质量状况", " ")
- For N = LBound(Arr) To UBound(Arr)
- Arr(N, 1) = Arrt(N - 1)
- Next N
- Do While Not Txt.atendofstream
- Str = Txt.readline
- If Str Like "#*" Then
- I = UBound(Arr, 2) + 1
- ReDim Preserve Arr(1 To 7, 1 To I)
- RegEx.Pattern = "(\d{4}\-\d{2}\-\d{2}|\d+|[ⅡⅠⅤ]+)"
- Str = WorksheetFunction.Trim(RegEx.Replace(Str, " $1 "))
- RegEx.Pattern = "(\d )([ⅡⅠⅤ])"
- Str = RegEx.Replace(Str, "$1 $2")
- Arrt = Split(Str, " ")
- For N = LBound(Arr) To UBound(Arr)
- Arr(N, I) = Arrt(N - 1)
- Next N
- End If
- Loop
- Txt.Close
- Set Txt = Nothing
- End With
- Application.ScreenUpdating = False
- Application.Calculation = xlCalculationManual
- Cells.ClearContents
- For I = LBound(Arr) To UBound(Arr)
- For N = LBound(Arr, 2) To UBound(Arr, 2)
- Cells(N, I) = Arr(I, N)
- Next N
- Next I
- Application.Calculation = xlCalculationAutomatic
- Application.ScreenUpdating = True
- Set RegEx = Nothing
- End Sub
|
2楼
eliane_lei |
进来学习，谢谢分享 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一