按单词过滤并复制到新位置答案

【问题标题】：Filter by words and copy to new place按单词过滤并复制到新位置
【发布时间】：2022-12-15 00:09:56
【问题描述】：

我从“检查扇区”表上的单词中按“数据”表上的单词进行过滤，然后将结果复制到“检查扇区”A5 单元格。

Sub Macro12()
'
' Macro12 Macro
'

'
    Range("B3").Select
    Selection.Copy
    Sheets("DATA").Select
    ActiveSheet.Range("$A$1:$D$1000").AutoFilter Field := 4, Criteria1 := Array(,,) _
        , Operator := xlFilterValues
    Columns("A:D").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Check SECTOR").Select
    Range("A5").Select
    ActiveSheet.Paste
End Sub

我该如何解决

ActiveSheet.Range("$A$1:$D$1000").AutoFilter Field := 4, Criteria1 := Array(,,) _
    , Operator := xlFilterValues

【问题讨论】：

标签： excel vba

【解决方案1】：

您可以不用复制“Check SECTOR”中的单词将值存储在变量中并在过滤时调用它对于参数 Criteria1。

Sub Macro12()

    Dim val As String
    val = Sheets("Check SECTOR").Range("B3").Value
    Sheets("DATA").Select
    ActiveSheet.Range("$A$1:$D$1000").AutoFilter Field:=4, Criteria1:=val _
        , Operator:=xlFilterValues
    Columns("A:D").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Check SECTOR").Select
    Range("A5").Select
    ActiveSheet.Paste
End Sub

【讨论】：