Sub 隐藏行() Dim i% For i = 2 To 2000 '2000代表总行数,可以替换成你需要的数值 If Cells(i, 7) = "" Then Exit Sub Else If Cells(i, 7) = 0 Then Rows(i).EntireRow.Hidden = True End If End If Next End Sub 测试过是可以的
Sub t() For i = 3 To Range("G65536").End(xlUp).Row If Range("G" & i) = 0 Then Range(i & ":" & i).EntireRow.Hidden = True End If Next End Sub 需要说明的是,这里“空值”视为0