Question

excel VBA，从字符串中提取数字。

一个字符串，例如：“中性盐雾试验，持续72小时，生锈率：17.23%(316钢：2.42%)，增比：34.27%(指：51.00%)” 我想把上述字符串中的4个百分比数字分别提取出来，放入4个单元格中。请问VBA代码？

Answer 1

效果如下图所示，代码如下：
Sub mytest()
Dim x, y, br(), str
Dim reg As Object
Set reg = CreateObject("vbscript.regexp")
str = Range("a1").Text '假如这段字符在A1单元格内
With reg
.Global = True
.Pattern = "\d+\.\d+\%" '制订提取规则
Set smt = .Execute(str) '提取字符
For Each mt In smt
y = y + 1
ReDim Preserve br(1 To y)
br(y) = mt '把字符存入数组
Next
End With
Range("b1").Resize(1, y) = br '把提取的数据放置于B1到E1这四个单元格内
End Sub