门户网站推广介绍方案,wordpress 图片模板,体验营销案例,域名查询中国万网看到一篇博客《VBA#xff0c;用VBA进行分列#xff08;拆分列#xff09;的2种方法》#xff0c;使用VBA对字符串进行拆分 目录 Excel分列功能将字符串拆分为二维数组#xff0c;Split函数举例 将字符串拆分为一维数组#xff0c;正则表达式举例 Excel分列功能
Sub 测…看到一篇博客《VBA用VBA进行分列拆分列的2种方法》使用VBA对字符串进行拆分 目录 Excel分列功能将字符串拆分为二维数组Split函数举例 将字符串拆分为一维数组正则表达式举例 Excel分列功能
Sub 测试1()Range(a:a).TextToColumns other:True, otherchar:
End Sub代码运行可以将左边拆分为右边但分隔符只能有1个
将字符串拆分为二维数组Split函数
分隔符只能有2个且分隔符是有顺序的具体看举例
Function str_split2d(ByVal source_str$, ByVal delimiter)delimiter为分隔符数组只能有2个元素source_str按分隔符拆分为二维数组(数组从1开始计数)Dim s1$, s2$, srr, res, result, s, t, i, j, max_cIf UBound(delimiter) - LBound(delimiter) 1 Then Debug.Print 参数错误: Exit Functions1 delimiter(LBound(delimiter)): s2 delimiter(UBound(delimiter))srr Split(source_str, s1): ReDim res(1 To UBound(srr) - LBound(srr) 1, 1 To 10 ^ 3)For Each s In srrtemp Split(s, s2): i i 1: j 0For Each t In tempj j 1: res(i, j) tNextIf j max_c Then max_c jNextReDim result(1 To i, 1 To max_c) 结果数组For i 1 To UBound(res)For j 1 To max_cresult(i, j) res(i, j)NextNextstr_split2d result
End Function举例
Sub 测试2()Dim resres str_split2d([a1], Array(;, ,))[d1].Resize(UBound(res), UBound(res, 2)) res
End Sub将字符串拆分为一维数组正则表达式
Split函数虽然能够拆分字符串但是如果分隔符数量较多那么就需要不断循环遍历分隔符对拆分后的字符串继续进行拆分这显然是比较麻烦的 而正则表达式是处理字符串的强大工具对于处理多个分隔符代码较为简单 更多关于正则表达式内容详见《Excel·VBA自定义正则表达式函数、使用》
Function 正则拆分字符串(ByVal source_str$, ByVal delimiter$)delimiter为分隔符source_str按分隔符拆分为一维数组(数组从1开始计数)Dim pat$, result, i, numpat [^ delimiter ] 正则匹配模式^非With CreateObject(vbscript.regexp) 正则表达式.Global True.Pattern patSet mhs .Execute(source_str): num mhs.CountIf num 0 Then 正则拆分字符串 WorksheetFunction.Transpose(WorksheetFunction.Transpose(Array(source_str))): Exit FunctionReDim result(1 To num)For i 0 To num - 1result(i 1) mhs(i).ValueNext正则拆分字符串 resultEnd With
End Function举例
Sub 测试3()Dim resres 正则拆分字符串([a1], ,;)[a3].Resize(UBound(res), 1) WorksheetFunction.Transpose(res)res 正则拆分字符串([d1], ,;|)[d3].Resize(UBound(res), 1) WorksheetFunction.Transpose(res)
End Sub
