nnsea 发表于 2023-12-18 22:39:56

去编号

Sub 去编号()
Set regx = CreateObject("vbscript.regexp")
With regx
.Global = True
.Pattern = "+-+[\.]?"
For Each Rng In
Cells(Rng.Row, "b") = .Replace(Rng, "")
Next
End With
End Sub
页: [1]
查看完整版本: 去编号