按键精灵Delay 500

Sub 正则Delay500()
For i = 1 To 128
Set regx = CreateObject("vbscript.regexp")
       regx.Pattern = "^\Delay d+"
       regx.Global = True
Cells(i, 3) = regx.Replace(Cells(i, 1), "$1500")
Next
End Sub