Excel Advanced Filter仅返回标题行

时间:2017-07-27 19:03:47

标签: excel vba excel-vba advanced-filter

我通过录制和修改宏创建了以下VBA高级过滤器子例程。期望的目标是它将按Sheet3中指定的条件过滤Sheet5中的表(如果没有条件运行,则返回整个表),然后将其复制(不带标题行) CopyToRange

中的Sheet5
Sub FilterMe()
'
'   FilterMe Macro

    Sheet3.Range("B4").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Sheet5.Range("AN3:BT4"), CopyToRange:=Sheet5.Range("D7:AJ7"), Unique:= _
        False

End Sub

但是,无论我输入什么标准,都会返回标题行。如果我没有输入任何标准,则不返回任何内容。

我已经通过Ctrl + Shift + *确认它引用的CurrentRegion对象实际上是整个表而不仅仅是标题行。如何修改子程序以实现我的目标?

0 个答案:

没有答案