发布网友 发布时间:2022-04-22 02:57
共2个回答
热心网友 时间:2023-06-29 15:59
Sub 删除()
Dim c As Range
For Each c In [a6:k10]
Set findcell = [f6:f10].Find(c, lookat:=xlWhole)
If findcell Is Nothing Then c.ClearContents
Next
End Sub
热心网友 时间:2023-06-29 15:59
Sub Macro1()
Range("A1:E10,G1:K10").ClearContents
End Sub