EXCEL 中VBA不符合内容删除 excel vba删除内容

如下：

Sub test()
    Dim Rng As Range
    
    For Each Rng In Range("A39:J144")
        If Rng.Value <> Range("B36").Value Then
            '不符合条件则删除，如需符合条件删除，可以把不等号改为等号“=”
            Rng.ClearContents
        End If
    Next Rng
End Sub

excel vba删除不符合条件的内容~

A32输入 ca
用这个代码

Sub 删除()
Dim rng As Range
For Each rng In Range("a39:j1039")
If rng [a32] Then
rng = ""
End If
Next
End Sub

Excel中可以利用range的clearcontents方法，将区域内的内容删除。
软件版本：Office2007
举例说明如下：
1.利用VBA将有底色的区域的内容删除掉：

2.Alt+F11，输入代码如下：

3.F5执行代码，返回Excel，可以看到原来的内容已经被删除掉了：