为什么Excel 2010 VBA在应用AutoFilter时隐藏行？

你好，

出于某种原因，在Excel 2010和2016中，当我应用筛选器时，它会折叠这些行。 这意味着当我尝试复制并粘贴到另一个工作表时，只有列标题被复制。 （附图）

我试图取消隐藏行和更改行高度等（手动和VBA），但除非我手动做所有200 +行macros失败。 在Excel 2007中它工作正常，因为它不折叠行。

代码行是这样的：

Selection.AutoFilter Field：= 1，Criteria：= Range（“A1”）。Value，Operator：= xlFilterValues

****我添加了一个新的图像，除非我手动拖出行，他们仍然保持隐藏，即使有数据***

我只是不明白为什么所有的行都隐藏了？