如何写这句过滤数据的vba

吴中泉

swjia8315 发表于 2023-6-11 16:33
你好，请看下附件哈，多谢~~

如图

ttiemike

可以使用AutoFilter方法来实现该功能。以下是实现该功能的VBA代码：

Sub FilterNonZero()
Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("表一") '将“表一”替换为实际的工作表名称
ws.Range("F1").AutoFilter Field:=1, Criteria1:="<>0", Operator:=xlAnd, Criteria2:="<>"
End Sub

这段代码将在“表一”的F列中筛选出值不等于0或空白的行。它使用AutoFilter方法，并将Criteria1参数设置为“<>0”，表示不等于0，将Operator参数设置为xlAnd，表示同时满足两个条件，将Criteria2参数设置为“<>”，表示不等于空白。请注意，此代码应该放在标准模块中。