2个回答
展开全部
软件版本：Office2007
举例说明如下：
1.将底色为黄色的范围内的内容删除：
2.Alt+F11，输入代码如下：
Range("B3:C7").ClearContents '将区域B3:C7内容清空
3.F5执行代码，关闭VBE，返回Excel得到结果如下：
本回答由电脑网络分类达人 刘杰推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
Sub s()
Dim rg As Range, c As Range
Set rg = [a39:j1039]
t1 = [l30]
t2 = [o32]
ca = Array(1, 4)
cb = Array(2, 3)
For Each c In rg
s1 = (Val(Mid(c, ca(0), 1)) + Val(Mid(c, ca(1), 1))) Mod 10
s2 = (Val(Mid(c, cb(0), 1)) + Val(Mid(c, cb(1), 1))) Mod 10
If InStr(t1, s1) > 0 And InStr(t2, s2) > 0 Then c = ""
Next
End Sub
来自：求助得到的回答
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
