[已解决]如果自动删除值为零的行？

luzhiguo

如图，如何自动删除值为零的行？我知道可以通过排序来解决，但那是比较麻烦的选择，能否有更简单的函数或命令去解决这个问题？

最佳答案

月排行榜 / 总排行榜

不解木野狐

2012-2-7 23:40

我的代码和2楼的有点不同，你看着选吧

1. Sub 自动删除为零的行()
   
2.    Dim RAG As Range, X
   
3.       For X = Range("C65536").End(3).Row To 2 Step -1
   
4.          If Cells(X, 3).Value = 0 Then
   
5.             Cells(X, 3).EntireRow.Delete
   
6.       End If
   
7.    Next
   
8. End Sub

复制代码

跳转到最佳答案楼层

雄鹰

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 2 To [c65536].End(xlUp).Row
   If Cells(i, 3) = 0 Then
      Rows(i).Delete shift:=xlUp
   End If
End Sub


Sub 删除0行()
For i = 2 To [c65536].End(xlUp).Row
   If Cells(i, 3) = 0 Then
      Rows(i).Delete shift:=xlUp
   End If
Next
End Sub

任选一个都行。
删除0值行.rar (5.96 KB, 下载次数: 68)

2012-2-7 23:19 上传

点击文件名下载附件

luzhiguo

雄鹰 发表于 2012-2-7 23:14
Sub 删除0行()
For i = 2 To [c65536].End(xlUp).Row
   If Cells(i, 3) = 0 Then

请问2楼，是不是按你的公式编制了宏，然后再怎么执行呢？我是VBA未入门啊，请指教！

不解木野狐

我的代码和2楼的有点不同，你看着选吧

1. Sub 自动删除为零的行()
   
2.    Dim RAG As Range, X
   
3.       For X = Range("C65536").End(3).Row To 2 Step -1
   
4.          If Cells(X, 3).Value = 0 Then
   
5.             Cells(X, 3).EntireRow.Delete
   
6.       End If
   
7.    Next
   
8. End Sub

复制代码

不解木野狐

luzhiguo 发表于 2012-2-7 23:40
请问2楼，是不是按你的公式编制了宏，然后再怎么执行呢？我是VBA未入门啊，请指教！

如果您对宏不算多了解的话，那就看看我做的动画演示吧，不过我不知道是不是你所要求的效果{:912:}

luzhiguo

不解木野狐 发表于 2012-2-7 23:40
我的代码和2楼的有点不同，你看着选吧

谢谢答案，请问详细的操作方法？将你的代码复制到什么地方，然后怎样执行呢？