多语言展示
当前在线:1954今日阅读:39今日分享:10

在EXCEL表格中,正向零宽断言的妙用!

本篇经验将通过实例和大家分享,【在EXCEL表格中,正向零宽断言的妙用!】
工具/原料
1

电脑壹台

2

OFFICE办公软件

方法/步骤
1

如图所示,B列单元格中的数据很凌乱,要在凌乱的数据中求金额和,该如何操作呢?

2

在工作表中,点击菜单栏【开发工具】,在其工具栏内,点击【visual basic】!

3

会进入VBA编辑界面!点击菜单栏【插入】,在其下拉菜单中,选择【模块】!

4

会弹出模块编辑窗口!

5

在代码编辑窗口输入以下代码:Sub test()Set regx = CreateObject('vbscript.regexp')With regx  .Global = True  .Pattern = '\d+\.?\d*(?=[元块])'  For Each Rng In Range('b2', Cells(Rows.Count, 'b').End(xlUp))    Set mat = .Execute(Rng)    For Each m In mat      y = y + m * 1    Next    Rng.Offset(0, 1) = y: y = 0  NextEnd WithEnd Sub

6

注意零宽断言的格式:?=...

7

在VBA窗口中,点击【运行】按钮!

8

“总金额”被瞬间求出!

推荐信息