删除所有单元格的值为零或空的行

黑山上的鹰

Book1.rar (16.31 KB, 下载次数: 7)

2018-7-1 23:08 上传

点击文件名下载附件

请问：怎样修改程序，当某行所有单元格均为零值或空值时，删掉该行（不是合计为0）。

第1-2行，1-4列为标题，谢谢！！！

4

列为标题列，谢谢。

ahnyt

看看是不是这个意思，看表2

黑山上的鹰

ahnyt 发表于 2018-7-2 08:49
看看是不是这个意思，看表2

谢谢，就是这个意思，但数据量很大，运行速度有点慢。

ahnyt

黑山上的鹰 发表于 2018-7-2 09:29
谢谢，就是这个意思，但数据量很大，运行速度有点慢。

那个可以使用数组解决

ahnyt

黑山上的鹰 发表于 2018-7-2 09:29
谢谢，就是这个意思，但数据量很大，运行速度有点慢。

试试这个，数组的。有问题加我QQ

一把小刀闯天下

'拿数组来做可能速度会快点

Option Explicit

Sub test()
  Dim arr, i, j, n
  arr = [a1].CurrentRegion.Value
  n = 2
  For i = 3 To UBound(arr, 1)
    For j = 5 To UBound(arr, 2)
      If arr(i, j) > 0 Then Exit For
    Next
    If j < UBound(arr, 2) + 1 Then
      n = n + 1
      For j = 1 To UBound(arr, 2): arr(n, j) = arr(i, j): Next
    End If
  Next
  With [a1]
    .Resize(Rows.Count, UBound(arr, 2)).ClearContents
    .Resize(n, UBound(arr, 2)) = arr
  End With
End Sub

黑山上的鹰

一把小刀闯天下 发表于 2018-7-2 10:43
'拿数组来做可能速度会快点

Option Explicit

非常好，谢谢。

黑山上的鹰

一把小刀闯天下 发表于 2018-7-2 10:43
'拿数组来做可能速度会快点

Option Explicit

Dim arr, i, j, n
  arr = [a1].CurrentRegion.Value
  n = 2
  For i = 3 To UBound(arr, 1)
    For j = 5 To UBound(arr, 2)
      If arr(i, j) <> 0 Then Exit For
此处应该为不等与0，不然将有负数的行删掉了

一把小刀闯天下

黑山上的鹰 发表于 2018-7-2 13:31
Dim arr, i, j, n
  arr = [a1].CurrentRegion.Value
  n = 2

恩，没注意还有负数

可以改成：
If val(arr(i, j)) <> 0 Then Exit For

如果出错还可以定位一下到底出了什么问题