用高级筛选,条件直接输单元格或数组赋值单元格
例举参考
Private Sub CommandButton1_Click()
Sheet1.Activate
[x1:x4] = Application.Transpose(Array("日期", "2014/1/1", "2014/1/2", "2014/1/3"))
If Cells.Rows.Count = Cells.SpecialCells(12).Rows.Count Then
Range("$A$1:$E$" & Cells(Rows.Count, 1).End(3).Row).AdvancedFilter 1, [x1:x4]
Else
ActiveSheet.ShowAllData
End If
End Sub |
|