我通过录制和修改宏创建了以下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
对象实际上是整个表而不仅仅是标题行。如何修改子程序以实现我的目标?