提取数字的VBA程序的修改

excelhome9819

各位老师好，请教一个提取数字的VBA程序的修改问题。

我希望把G列数据源中的数值提取到L列，VBA程序如下
Sub 提取G列数值()
Dim rex As Object, rng As Range, met
Set rex = CreateObject("vbscript.regexp")
With rex
.Global = True
.Pattern = "\d+\.?\d*"
For Each rng In Range("G2", Cells(Rows.Count, 1).End(xlUp))
Set met = .Execute(rng)
rng(1, 12) = met(0).Value  
Next
End With
End Sub


可是运行提示rng(1, 12) = met(0).Value 出错，请问怎么修改，谢谢！程序请见附件

vb爱好者洗衣机

因为单元格为空，匹配不到，met（0）无对象，加一句“if met.count>0 then ..... end if ”就行了。

鄂龙蒙

For Each rng In Range("G2", Cells(Rows.Count, 8).End(xlUp))

ezhou2020

提取数字的写成VBA Function，为什么要写成VBA Sub？

shiruiqiang

Sub 提取G列数值()
Dim rex As Object, rng As Range, met
Set rex = CreateObject("vbscript.regexp")
With rex
.Global = True
.Pattern = "\d+\.?\d*"
For Each rng In Range("G2：G" & Sheets(1).Range("g65536").End(xlUp).Row)
Set met = .Execute(rng)
rng.Offset(0, 5) = met(0).Value
Next
End With
End Sub

梦幻的流星

建议把vba基础打好才学习其他的进阶知识
VBA用获取字符前面或后面数值.zip (14.54 KB, 下载次数: 10)

2021-9-19 14:54 上传

点击文件名下载附件

excelhome9819

梦幻的流星 发表于 2021-9-19 14:54
建议把vba基础打好才学习其他的进阶知识

你好 当单元格为空或者单元格出现加号（+）的时候，会出错。这里需要完善下，

excelhome9819

梦幻的流星

VBA用获取字符前面或后面数值.zip (14.71 KB, 下载次数: 10)

2021-9-19 16:47 上传

点击文件名下载附件

excelhome9819

梦幻的流星 发表于 2021-9-19 16:47

谢谢，感谢老师的指导。