从选择命令中选取值

Question

我在单元格 C1 中有一个数据验证列表。我想从单元格 C1 中选取值并使用它应用过滤器。

当我录制宏时，值“Tompo”被硬编码。如何从单元格 C1 中选取值？

Sub BUfilter()

    BUfilter Macro
    Range("C1").Select
    Selection.Copy
    ActiveSheet.ListObjects("Combined").Range.AutoFilter Field:=17, Criteria1:= _
        "Tompo"
    Range("A1").Select
End Sub

使用单元格 C1 中的值过滤 Field17。

Answer 1

尝试：

Sub BUfilter() 
    ' ' BUfilter Macro 
    dim filter1 as string
    filter1 = Range("C1").value
    ActiveSheet.ListObjects("Combined").Range.AutoFilter Field:=17, Criteria1:= filter1 
    Range("A1").Select
End Sub