鼠标在另一个选项卡宏中选择和筛选

Question

我想要创建一个宏，在其中我可以使用鼠标选择标签“容量”中的名称，通过按热键Ctrl+Shift+Z，宏将在名称筛选器中的选项卡“分配”中激活和搜索该名称。

我很难理解如何使用宏复制所选内容并将其粘贴到筛选条件中。

我试过了

   Sub Macro1()
    '
    ' Macro1 Macro
    ' Resource allocaiton breakdown
    '
    ' Keyboard Shortcut: Ctrl+Shift+Z
    '
            Selection.Copy
            Sheets("Allocation").Select
            ActiveSheet.Range("$A$9:$FL$529").AutoFilter Field:=6
            ActiveSheet.Range("$A$9:$FL$529").AutoFilter Field:=1
            ActiveSheet.Range("$A$9:$FL$529").AutoFilter Field:=6, Criteria1:="Target.Value"

End Sub

但不管用，

我是VBA的新手

请告知

Answer 1

1. 你应该avoid using Select in Excel VBA。
2. 不能将单元格值“复制”到筛选条件中，而是使用单元格值作为Criteria1将条件设置为该值。

所以像这样的事情应该有效：

Option Explicit

Public Sub FilterForSelectedValue()
    Dim SelectedFilter As Range
    Set SelectedFilter = Selection

    Worksheets("Allocation").Range("$A$9:$FL$529").AutoFilter Field:=6, Criteria1:=SelectedFilter.Value

End Sub