More...
VBA代码:
Sub test() Dim reg As Object Dim mat, m, st Dim rg As Range Set reg = CreateObject("VBScript.RegExp") For Each rg In Range("a1:a" & [a65536].End(xlUp).Row)
[<] [224] [225] 226 [227] [228] [>]