EXCEL VBA删除指定内容

1。VBAC5=ACD/ADE9：Z20范围内查找到ACD或AD删除其内容C5输入ACD⼀AD

2025-04-14 17:26:24

推荐回答（1个）

回答1：

以下可适应C5中包含有多个需要查找内容的情况，比如C5=ACD/AD/EF/HG：

Sub 删除()
Set regex = CreateObject("VBScript.RegExp")
regex.Pattern = "[" & Replace([c5], "/", "|") & "]"
Set Rng = [e9:z20]
arr = Rng.Value
For i = 1 To UBound(arr)
    For j = 1 To UBound(arr, 2)
        If regex.test(arr(i, j)) Then arr(i, j) = Empty
    Next
Next
Rng.Value = arr
End Sub