http://pan.baidu.com/s/1i3Q9i4H详细见文件
1.A39：J1038为范围
2.条件在C3（单元格内可以有多个字符）
EXCEL VBA删除与条件不符合的内容
答案:1 悬赏:80 手机版
解决时间 2021-03-24 03:27
- 提问者网友：心牵心
- 2021-03-23 18:10
最佳答案
- 五星知识达人网友：不如潦草
- 2021-03-23 19:17
Sub s()
Dim r As Range, c%(1 To 5)
t = [c3].Text
c(1) = 1
c(2) = 2
For Each r In [a39:j1038]
For i = 1 To 5
If c(i) Then
If InStr(t, Mid(r, c(i), 1)) Then
GoTo xxx
End If: End If
Next
r = ""
xxx:
Next
End Sub
Dim r As Range, c%(1 To 5)
t = [c3].Text
c(1) = 1
c(2) = 2
For Each r In [a39:j1038]
For i = 1 To 5
If c(i) Then
If InStr(t, Mid(r, c(i), 1)) Then
GoTo xxx
End If: End If
Next
r = ""
xxx:
Next
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯