本篇经验将和大家分享【在VBA中，正则表达式的实例应用（20）】——数据分列（方法一）
工具/原料
1
电脑一台
2
OFFICE办公软件
方法/步骤
1
如图所示，将A1单元格中的数据分列列示！
2
在工作表中，点击菜单栏【开发工具】，在其工具栏内，点击【visual basic】!
3
会进入VBA编辑界面！点击菜单栏【插入】，在其下拉菜单中，选择【模块】！
4
会弹出模块编辑窗口！
5
在代码编辑窗口输入以下代码：Sub 业务分组()Set regx = CreateObject('vbscript.regexp')With regx .Global = True For Each ar In Array('[一-龢]+(?= \d+)', '\d+[\u4e00-\u9fa5]{1}') .Pattern = ar m = m + 1 Set mat = .Execute([a1]) For Each rg In mat n = n + 1 Cells(n + 1, m + 1) = rg Next n = 0 NextEnd WithEnd Sub
7
点击【数据分列】按钮，不同类型的数据会被分别列示出来！
上一篇：小游戏最终行动的玩法