[已解决][求] 删除行代码修改

huweifvba · 发表于 2011-9-29 12:36

sub  删除行()
dim x
  for x = range("A65536").end(xlup).row to 2 step - 1
if cells(x,5)+cells(x,6)+cells(x,7)+cells(x,8)+cells(x,9)+cells(x,10)+cells(x,11)+cells(x,12)+cells(x,13)+cells(x,14) = 0 then
rows(x).delete
end if
next
end sub

目的是当一行中E列到O列的和等于0时删除整行，从第五行开始运行。  我想sheet1、sheet2、sheet3、sheet4同时运行这个宏应该怎么改？

最佳答案

月排行榜 / 总排行榜

mxg825

2011-9-29 14:11

本帖最后由 mxg825 于 2011-9-29 14:31 编辑

你再复制一次代码更新了!

跳转到最佳答案楼层

mxg825 · 发表于 2011-9-29 12:42

if cells(x,5)+cells(x,6)+cells(x,7)+cells(x,8)+cells(x,9)+cells(x,10)+cells(x,11)+cells(x,12)+cells(x,13)+cells(x,14) = 0 then

这一句可以换成：
If Application.Sum(Range(Cells(X, 5), Cells(X, 14))) = 0 Then

mxg825 · 发表于 2011-9-29 12:45

如果是四个工作表都可以用的话，放在模块里！

还是运行这个宏，四个表同时处理？

huweifvba · 发表于 2011-9-29 12:47

是修改这个宏，目的是四个表同时处理

raulerini · 发表于 2011-9-29 12:51

最外面再加一个嵌套，
for each ws in thisworkbook.sheets
....代码...
next

huweifvba · 发表于 2011-9-29 13:11

回复 raulerini 的帖子

老师，还是不明白，帮我写写全，谢谢

mxg825 · 发表于 2011-9-29 13:15

本帖最后由 mxg825 于 2011-9-29 13:49 编辑

Sub 批量删除() '放在模块里
Dim sht As Object
For Each sht In ThisWorkbook.Sheets '集合全部工作表（循环）
If InStr("Sheet1、Sheet2、Sheet3、Sheet4", sht.Name) > 0 Then '需要删除处理的工作表名【sheet1....】按自己要求修改
With sht
For x = .Range("A65536").End(xlUp).Row To 2 Step -1
If Application.Sum(.Range(.Cells(x, 5), .Cells(x, 14))) = 0 Then
.Rows(x).Delete
End If
Next
End With
End If
Next
End Sub

复制代码

更新了

huweifvba · 发表于 2011-9-29 13:23

回复 mxg825 的帖子

测试过了，还是不行哦，在公司不能上传附件，不然就上传了。

mxg825 · 发表于 2011-9-29 13:50

注意第4句
If InStr("Sheet1、Sheet2、Sheet3、Sheet4", sht.Name) > 0 Then

Sheet1、Sheet2、Sheet3、Sheet4 你四个要处理的工作表名称!

huweifvba · 发表于 2011-9-29 14:03

我用的就是这个名称测试的

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