回复：求助 一个单元格有文字和数字 要把单元格的数字加10

我看过学习过上面大佬说的那个帖子，这个是我之前写的，刚改了个+10，你试试看。
Sub zhengze()
Dim a, b, c, d, e, f, g, rng, mat
Set regx = CreateObject("vbscript.regexp")
regx.Global = True
regx.Pattern = "\d+"
a = Cells(Rows.Count, 1).End(xlUp).Row
For Each rng In Range("a1:a" & a)
d = rng.Value
Set mat = regx.Execute(rng.Value)
For Each b In mat
If b.Value * 1 >= 0 Then
c = b.Value + 10
Else: c = b.Value
End If
d = Replace(d, b, c)
rng.Offset(0, 1) = d
Next
Next
End Sub