Sub RemoveParenthesesContent()
Dim rng As Range
Dim cell As Range
Dim value As String
Dim result As String
Set rng = Selection
For Each cell In rng
value = cell.Value
With CreateObject("VBScript.RegExp")
.Global = True
.IgnoreCase = True
.Pattern = "\(.*?\)"
result = .Replace(value, "")
End With
If cell.Offset(0, 1).Value <> "" Then cell.Offset(0, 1).ClearContents
cell.Offset(0, 1).Value = result
Next cell
End Sub
VBA 去除选中内容中的()和其中的内容 并将删除后的内容添加到下一列
最新推荐文章于 2024-10-04 17:52:38 发布