3个回答
展开全部
Sub s()
Dim rg As Range, c As Range
Set rg = [a39:j1039]
t1 = [l30]
t2 = [o32]
ca = 1
cb = 3
For Each c In rg
s1 = Mid(c, ca, 1)
s2 = Mid(c, cb, 1)
If InStr(t1, s1) > 0 And InStr(t2, s2) > 0 Then c = ""
Next
End Sub
来自:求助得到的回答
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
看不到文件,你可以直接录制高级筛选然后删除的动作就可以了,高级筛选可以根据条件区域筛选,可以录制的不要去想怎么写。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询