把所有SHEET中符合条件的行都删除掉

扬名天下中国人 · 发表于 2014-9-1 15:03

大全，帮忙，用宏把所有SHEET中符合条件的行都删除掉

扬名天下中国人 · 发表于 2014-9-1 15:05

大侠们，帮帮忙

a68508122 · 发表于 2014-9-1 16:01

本帖最后由 a68508122 于 2014-9-1 16:11 编辑

扬名天下中国人发表于 2014-9-1 15:05
大侠们，帮帮忙

test01.rar (11.71 KB, 下载次数: 16)
以上
拼速度

扬名天下中国人 · 发表于 2014-9-2 08:46

a68508122 发表于 2014-9-1 16:01
以上
拼速度

谢谢大侠是我想要的

扬名天下中国人 · 发表于 2014-9-2 09:23

a68508122 发表于 2014-9-1 16:01
以上
拼速度

大侠，我试了一下，就是能不能保留格式，就是删除掉1和2的行，3不能删，3上面有颜色的话，这个颜色也要保留

饭浇盖 · 发表于 2014-9-2 12:52

Sub nn()
On Error Resume Next
a = Sheets.Count
For j = 1 To a
n = Sheets(j).UsedRange.Rows.Count
For i = 2 To n
If Sheets(j).Cells(i, "a") = "1" Then m = i
If Sheets(j).Cells(i, "l") = "2" Then m = i
Next
Sheets(j).Range(Sheets(j).[a1], Sheets(j).Cells(m, "q")).Delete
Next
End Sub

扬名天下中国人 · 发表于 2014-9-2 15:13

饭浇盖发表于 2014-9-2 12:52
Sub nn()
On Error Resume Next
a = Sheets.Count

首先谢谢啊前面都看得明白，这句Sheets(j).Range(Sheets(j).[a1], Sheets(j).Cells(m, "q")).Delete里"q"是指的什么意思啊

饭浇盖 · 发表于 2014-9-2 15:25

q是随便取得一个值，只要大于l 列就可以就是把这一块都删了

饭浇盖 · 发表于 2014-9-2 15:26

这个代码只能适合前面只有1 和 2 的行如果里面穿插进3的话就不行了就要另外代码，先提取隔行地址然后最后一起删掉

扬名天下中国人 · 发表于 2014-9-2 15:35

饭浇盖发表于 2014-9-2 15:26
这个代码只能适合前面只有1 和 2 的行如果里面穿插进3的话就不行了就要另外代码，先提取隔行地址然后 ...

我试了一下，是这样子的，能改成穿插进去3也可以删除吗

		自动登录	找回密码
密码			免费注册

[求助] 把所有SHEET中符合条件的行都删除掉

评分

最新热点 /1