想要将某列中为0的行全部删除，谢谢！

lwjia

Sub shang()
Do
   h = ActiveSheet.[e65536].End(3).Row
     With ActiveSheet.Range("e2:e" & h)
        Set hh = .Find(0, LookIn:=xlValues)
          On Error GoTo ren
            hhh = CStr(hh.Row)
            Rows(hhh).Delete

         End With
  Loop While Not hh Is Nothing
ren:
  Set hh = Nothing
End Sub

绝版剩男

楼上正解{:soso_e113:}，删除行的时候 要从后往前删

lwjia

此是最快的方法了
sub kkk()
ActiveSheet.Range("$A$2:$I$296").AutoFilter Field:=5, Criteria1:="0"
     Rows("3:296").Select
    Selection.Delete Shift:=xlUp
    Selection.AutoFilter
end sub

launsong

ili 发表于 2015-7-1 10:24
行的删除要从下面往上删除。
如：
sub aaa

谢谢楼上，我大概看明白是什么意思了。请问如何把r定义为"(3)钣金明细1"的e65536？
就是说我无论在那一页用这段代码都指向"(3)钣金明细1"这个工作表，谢谢！

ili

launsong 发表于 2015-7-1 11:26
谢谢楼上，我大概看明白是什么意思了。请问如何把r定义为"(3)钣金明细1"的e65536？
就是说我无论在那一 ...

在单元格前面指定表名就好了。
sheets("(3)钣金明细1").[e65536].end(xlup).row
代码中的其他单元格同理指定表名。
当然还可以用 with来简化。

launsong

ili 发表于 2015-7-1 10:24
行的删除要从下面往上删除。
如：
sub aaa

谢谢，我大概看明白了。请问如何定义r=“(3)钣金明细1”这个工作表的[e65536]呢？
就是说我再哪个表单运行此代码，都是指向“(3)钣金明细1”的E列计算的，谢谢。

launsong

ili 发表于 2015-7-1 11:35
在单元格前面指定表名就好了。
sheets("(3)钣金明细1").[e65536].end(xlup).row
代码中的其他单元格同 ...

非常感谢。

launsong

lwjia 发表于 2015-7-1 11:20
此是最快的方法了
sub kkk()
ActiveSheet.Range("$A$2:$I$296").AutoFilter Field:=5, Criteria1:="0"

这个果然快，只是打印区域没有了。

gxl19870625

launsong 发表于 2015-7-1 11:43
谢谢，我大概看明白了。请问如何定义r=“(3)钣金明细1”这个工作表的[e65536]呢？
就是说我再哪个表单运 ...

代码写在模块里面,不要写在工作表里面就行;只是写在模块里的代码,需要写指定的工作表.

gxl19870625

launsong 发表于 2015-7-1 11:43
谢谢，我大概看明白了。请问如何定义r=“(3)钣金明细1”这个工作表的[e65536]呢？
就是说我再哪个表单运 ...

1. Option Explicit
   
2. Sub CancelValue0()
   
3. Dim rng As Range
   
4. 
   
5. For Each rng In Sheets(3).Range("E3:E" & Sheets(3).UsedRange.Rows.Count) '工作表"(3)钣金明细1"排在第3
   
6.     If rng.Value = 0 Then
   
7.        rng = "#N/A"
   
8.     End If
   
9. Next rng
   
10. 
    
11. Sheets(3).Range("E3:E" & Sheets(3).UsedRange.Rows.Count).SpecialCells(2, 16).EntireRow.Delete
    
12. End Sub
    

复制代码