满足条件再进行筛选

youyichen

附件表格，先在数据1列筛选n1，筛选后，然后在数据3这列看有没有n2（隐藏单元格有n2不算），如果有在数据3列筛选n2，如果没有就不进行第二次筛选。
Sub 宏2()
Dim n1 As Integer
  Dim n2 As Integer
Columns("B:E").Select
    Selection.AutoFilter
     n1 = Application.InputBox("n1=", , , , , , , 1)
      n2 = Application.InputBox("n2=", , , , , , , 1)
    ActiveSheet.Range("$B$1:$E$6868").AutoFilter Field:=1, Criteria1:=n1
   if ........ then ActiveSheet.Range("$B$1:$E$6868").AutoFilter Field:=1, Criteria1:=n2
  end if
End Sub

cutecpu

Sub demo()

   With Range("$B$1:$F$6868")
      .AutoFilter Field:=5, Criteria1:=""
      n1 = Application.InputBox("n1=", Type:=1)
      .AutoFilter Field:=1, Criteria1:=n1
      n2 = Application.InputBox("n2=", Type:=1)
      For i = 1 To [a1].End(xlDown).Row
         If Rows(i).Hidden Then
            Cells(i, "f").Value = "　"
         Else
            Cells(i, "f").Value = ""
            If Cells(i, "d").Value = n2 Then exists2 = 1
         End If
      Next
      If exists2 Then .AutoFilter Field:=3, Criteria1:=n2
   End With

End Sub


祝順心，南無阿彌陀佛！

youyichen

感谢版主，有没有不用循环的方法呢，实际的表格数据几千行。能不能用find函数结合可见单元格SpecialCells(xlCellTypeVisible)来判断，但是总是报错，烦劳版主

youyichen

cutecpu 发表于 2021-4-18 15:22
Sub demo()

   With Range("$B$1:$F$6868")

感谢版主，有没有不用循环的方法呢，实际的表格数据几千行。能不能用find函数结合可见单元格SpecialCells(xlCellTypeVisible)来判断，但是总是报错，烦劳版主

cutecpu

youyichen 发表于 2021-4-18 15:51
感谢版主，有没有不用循环的方法呢，实际的表格数据几千行。能不能用find函数结合可见单元格SpecialCells ...

您好，循環最主要是 給新增的輔助列 F 填值( 全型空白代表該行為隱藏行)
然後再搭配 AutoFilter 過濾，要不然 AutoFilter 沒辦法過濾隱藏行！

王宪

youyichen 发表于 2021-4-18 15:51
感谢版主，有没有不用循环的方法呢，实际的表格数据几千行。能不能用find函数结合可见单元格SpecialCells ...

用ado给你做的，速度没问题