Excel 删除包含数千行的多个数据集中包含零的行

亲爱的社区：

我需要一些数据分析方面的帮助。我目前很困惑，对于有数千行的多个数据集，如何删除其中包含0的行。我很确定我可以使用VisualBasic来实现这一点，但由于我没有太多编程经验，我希望您能提供帮助

我附上了一张图片，其中突出显示了两个我想删除的行的示例。我希望所有红色和黄色的内容都被删除，而所有绿色和白色的内容都被删除。如果有人知道如何做到这一点，请帮助

非常感谢您的时间和考虑

致以最良好的祝愿

---

BurekKebab

这是一个非常简单的问题，可以通过多种方式完成

您可以运行我提供的宏来清除行（您说的是delete，但我认为您的意思是clear）

此宏在要删除的区域中循环单元格，查找零，然后删除行与指定区域的交点

例如，我将数据放在

A-E

在本例中，我在

C-E

或

Range（“C1:E18”）

当找到零时，我清除行和范围相交

整个过程也可以简单地使用过滤器完成——您可以运行宏并删除3列为空的行

Sub DeleteTheZeroes(TheRange As Range)
Dim c
For Each c In TheRange
    If c.Value = 0 Then Intersect(c.EntireRow, TheRange).Value = ""
Next c
End Sub

Sub Test()
'Change the range as needed when calling the macro
'You could also use DeleteTheZeroes Selection and highlight the data
DeleteTheZeroes Range("C1:E18")
End Sub

---

这非常简单，可以通过多种方式完成

您可以运行我提供的宏来清除行（您说的是delete，但我认为您的意思是clear）

此宏在要删除的区域中循环单元格，查找零，然后删除行与指定区域的交点

例如，我将数据放在

A-E

在本例中，我在

C-E

或

Range（“C1:E18”）

当找到零时，我清除行和范围相交

整个过程也可以简单地使用过滤器完成——您可以运行宏并删除3列为空的行

Sub DeleteTheZeroes(TheRange As Range)
Dim c
For Each c In TheRange
    If c.Value = 0 Then Intersect(c.EntireRow, TheRange).Value = ""
Next c
End Sub

Sub Test()
'Change the range as needed when calling the macro
'You could also use DeleteTheZeroes Selection and highlight the data
DeleteTheZeroes Range("C1:E18")
End Sub

---

也请考虑共享正在使用的数据集，因为这将有助于用户更好地理解如何构造数据和所期望的结果。考虑Dropbox、谷歌驱动器或另一个基于云的文件共享网站。堆栈溢出不是针对ME服务的代码，这将采用VBA。虽然不是VBA脚本，但一个（相当繁琐）的方法是按值排序（列式）。然后手动删除您目视检查过的可以删除的行。由于在同一行中有绿色高亮显示的数据以及您要删除的数据，因此您似乎并不真的要删除行。删除数据时，您的意思是希望单元格变空，还是希望下面的单元格向上移动到间隙中？无论如何，您可能会发现

=product（）

函数很有用。如果你把它指向可能包含零的整个单元格范围，如果任何单元格为零，它将返回零。然后，您只需在该列中使用该公式进行筛选，您就可以找到任何相关列中的所有零行。此外，请考虑共享正在使用的数据集，因为这将有助于用户更好地理解如何构造数据以及所需结果。考虑Dropbox、谷歌驱动器或另一个基于云的文件共享网站。堆栈溢出不是针对ME服务的代码，这将采用VBA。虽然不是VBA脚本，但一个（相当繁琐）的方法是按值排序（列式）。然后手动删除您目视检查过的可以删除的行。由于在同一行中有绿色高亮显示的数据以及您要删除的数据，因此您似乎并不真的要删除行。删除数据时，您的意思是希望单元格变空，还是希望下面的单元格向上移动到间隙中？无论如何，您可能会发现

=product（）

函数很有用。如果你把它指向可能包含零的整个单元格范围，如果任何单元格为零，它将返回零。然后，您只需使用该公式对列进行筛选，就可以在任何相关列中找到所有带零的行。非常感谢！这就是我要找的。非常感谢！这就是我要找的。