vba 怎么查询删除所有数据连接
答案:2 悬赏:20 手机版
解决时间 2021-02-08 01:15
- 提问者网友：流星是天使的眼泪
- 2021-02-07 21:13
vba 怎么查询删除所有数据连接
最佳答案
- 五星知识达人网友：北方的南先生
- 2021-02-07 22:35
Sub qxx()
S = [f2]
For i = 1 To 10
For j = 1032 To 33 Step -1
k = Mid(Cells(j, i), 2, 1)
If InStr(S, k) > 0 Then
Cells(j, i).Delete shift:=xlUp
End If
Next
Next
End Sub
S = [f2]
For i = 1 To 10
For j = 1032 To 33 Step -1
k = Mid(Cells(j, i), 2, 1)
If InStr(S, k) > 0 Then
Cells(j, i).Delete shift:=xlUp
End If
Next
Next
End Sub
全部回答
- 1楼网友：封刀令
- 2021-02-07 23:12
可以编写一段vba代码完成：
假设是要查找a列包含xxx的，查到后将该行删除
sub test()
dim i&,r&
r=cells(rows.count,1).end(xlup).row '定位a列最后一行
for i=r to 1 step -1 '从最后一行循环至第一行，倒过来循环是为了保证删除行时不会跳过行，从而造成漏行
if instr(cells(i,1),"xxx")>0 then '如果a列第i行单元中包含xxx，则执行删除整行操作
range("a" & i).entirerow.delete ‘删除第i行
end if
next
end sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯