如果表中的值满足条件,则Vba宏从表复制行

Question

我正在尝试制作一个宏:

1. 经过一张桌子
2. 查看该表的B列中的值是否具有特定值
3. 如果有,将该行复制到另一个工作表中的范围

结果类似于过滤表,但我想避免隐藏任何行

我是vba的新手,并不知道从哪里开始,任何帮助非常感谢.

Answer 1

这正是您使用高级过滤器所做的.如果是一次性,你甚至不需要宏,它可以在数据菜单中找到.

Sheets("Sheet1").Range("A1:D17").AdvancedFilter Action:=xlFilterCopy, _
    CriteriaRange:=Sheets("Sheet1").Range("G1:G2"), CopyToRange:=Range("A1:D1") _
    , Unique:=False