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

jdzmm42g 于 2022-12-14 发布在其他

关注(0)|答案(1)|浏览(101)

我正在“数据”工作表上从“检查扇区”工作表上的单词开始按单词进行筛选，然后我将结果复制到“检查扇区”A5单元格。我做了宏，但我做得不好，有人能帮我在ActiveSheet上修复它吗？范围（“$A$1：$D$1000”）。自动筛选字段：= 4，条件1：= Array（，，）_，运算符：= xlFilterValues。

以下是完整代码：

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

excel

来源：https://stackoverflow.com/questions/73781413/filter-by-words-and-copy-to-new-place

1条答案

按热度按时间

kq0g1dla1#

您可以将值存储在变量中，并在筛选参数Criteria1时调用它，而不是从“Check SECTOR”中复制单词。

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

赞(0）回复(0）举报 2022-12-14

我来回答

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

以下是完整代码：

1条答案

相关问题

热门标签

最新问答