判断一列中=0所在的行，并删除，几十万条数据

xs0231221

判断一列中=0所在的行，并删除，几十万条数据，求大神给我一个速度比较快的

蓝桥玄霜

删除的代码：

xs0231221

蓝桥玄霜 发表于 2020-1-29 13:41
删除的代码：

老师，这个怎么把不是0的数据也给删除了

xs0231221

把数字的那列0所在的行都删掉，这个只是一部分

一把小刀闯天下

4楼附件，为了避免被审核还是上图吧，，，

网海遨游

这样行不?请测试

xs0231221

网海遨游 发表于 2020-1-29 14:17
这样行不?请测试

可以到是可以，把代码复制进我的表里面就提示我错误

xs0231221

网海遨游 发表于 2020-1-29 14:17
这样行不?请测试

能留个QQ吗？我这个文件太大了，用您给我发的，已经变成未响应了

xs0231221

一把小刀闯天下 发表于 2020-1-29 14:13
4楼附件，为了避免被审核还是上图吧，，，

能留个QQ吗？

网海遨游

问题可能出现在你的名表上.

Sub test()
  Application.DisplayAlerts = False: Application.ScreenUpdating = False
  Dim sht, arr, i, n, j, brr()
Set sht = Sheets("sheet0")
  arr = sht.[a1].CurrentRegion
  For i = 1 To UBound(arr)
    If arr(i, 3) <> 0 Then
      n = n + 1
      ReDim Preserve brr(1 To 3, 1 To n)
      For j = 1 To 3
        brr(j, n) = arr(i, j)
      Next j
    End If
  Next i
  sht.Range("a1:c" & UBound(arr)).Clear
  sht.[a1].Resize(UBound(brr, 2), UBound(brr)) = Application.Transpose(brr)
  MsgBox "OK，完成！！！", 48, "温馨提示……"
  Application.DisplayAlerts = True: Application.ScreenUpdating = True
End Sub