0值行自动隐藏或删除？

duomi

请教各位高手，如何将该透视表E列0值所在行自动隐藏或删除。谢谢！

附件如下：

[ 本帖最后由 duomi 于 2010-8-25 21:15 编辑 ]

suwenkai

有2种方法,一种有筛选的方法,另外一种是用SQL语句做.

周晗露

看几段代码改改用。
Sub 隐藏()
Dim rg As Range
    Set rg = Range("J9")
    Rows.Hidden = False
    Do While rg.Row <= Range("J101").End(xlUp).Row
        If rg = 1 Then
            rg.EntireRow.Hidden = True
        End If
        Set rg = rg.Offset(1)
    Loop

End Sub
Sub 清除单元格区域里0数值()
Dim i As Integer
Dim j As Integer
For i = 7 To 33
For j = 4 To 35
If Cells(i, j) = 0 Then
Cells(i, j) = ""
End If
Next j
Next i
End Sub

自动隐藏代码
Private Sub Worksheet_Change(ByVal Target As Range)
    With Target
    If .Column = 10 And .Row > 1 And .Text = "1" Then     'j列
   .EntireRow.Hidden = True
    End With
End Sub

duomi

谢谢两位，还有别的好方法吗