如何在excel中制作动态过滤器？

如何解决如何在excel中制作动态过滤器？

我刚刚得到了帮助，更正了一个 vba 代码以过滤一张工作表上的数据并将过滤后的数据复制到新工作表。过滤器使用字段 2（第二列）作为过滤范围，使用 A2 单元格作为条件。 我想要更改以完成我的任务的最后一件事是使过滤范围动态化，这样，如果我在单元格 A2 的另一列中键入某些内容，那么过滤将基于该另一列完成，例如第 5 或第 24 列。

我现在拥有的代码是：

Sub copy_filtered_data()
    Dim count_col As Integer,count_row As Long
    Dim orig As Worksheet,output As Worksheet
    
    ThisWorkbook.Sheets("Sheet3").Cells.ClearContents
    Worksheets("Sheet1").Activate
    
    Set orig = ThisWorkbook.Sheets("Sheet1")
    Set output = ThisWorkbook.Sheets("Sheet3")
    
    count_col = orig.Cells(7,Columns.Count).End(xlToLeft).Column
    count_row = orig.Cells(Rows.Count,1).End(xlUp).Row
    
    If orig.AutoFilterMode Then orig.AutoFilterMode = False
    orig.Range("A7").AutoFilter Field:=2,_
        Criteria1:=IIf(orig.Range("A2").Value = "","*",orig.Range("A2").Value)
    
    orig.Range(orig.Cells(7,1),orig.Cells(count_row,count_col)).SpecialCells(xlCellTypeVisible).copy
    output.Cells(1,1).PasteSpecial xlPasteValues
    
    Application.CutcopyMode = False
    Worksheets("Sheet1").ShowAllData
    Worksheets("Sheet3").Activate
    ActiveSheet.Range("A1").Select
End Sub