excel VBAでの查找，AutoFilterコード

    Set OBJ = Sheets(G_DSNAME).Columns("H:H").Find(What:=ｓｔｒ)
    If Not OBJ Is Nothing Then
        intStart = OBJ.Row + 1

   If intStart = 0 And intEnd = 0 Then
        Sheets(G_DSNAME).Rows("8:8").Select
    Else
        Sheets(G_DSNAME).Rows("5:5").Select
    End If
    Selection.Insert Shift:=xlDown
    Selection.AutoFilter
    Selection.AutoFilter Field:=7, Criteria1:="<>"
    i = 9

    多Filter 的操作
    Do While i <= 24
        Selection.AutoFilter Field:=i, Criteria1:="0"   　　     

        i = i + 1
    Loop
    Sheets(G_DSNAME).AutoFilter.Range.Select
    Selection.Delete Shift:=xlUp