VBA复制可见单元格并粘贴为值-最有效的方法

Question

随着数据量和单个文件的增加，我开始遇到更多的内存问题。因此，我的问题是：复制/粘贴这些表的最有效的内存和速度方法是什么？

>

(...).specialcells(xlCellTypeVisible)。复制目标:=(...)-我还没有找到包含XLValues参数的方法（我想最大限度地减少复制格式化所占用的资源，因为没有公式）

将定义的范围用于复制/粘贴目的（使用xlCellTypeVisible参数命名范围，转换到另一个范围仅获取值，并将该范围发送到目的地）-这将需要为范围添加额外的变量

Answer 1

幸运的是，Autofilter有一个内置功能来促进这一点。假设我们从：

并用以下方法对其应用筛选器：

Sub Macro1()
    Columns("A:B").AutoFilter
    ActiveSheet.Range("$A$1:$B$8").AutoFilter Field:=2, Criteria1:=">50", Operator:=xlAnd
End Sub

==>自动筛选器具有范围属性，该属性允许:<==

Sub Kopy()
    Dim rng As Range
    Set rng = ActiveSheet.AutoFilter.Range
    rng.Copy Sheets("Sheet2").Range("A1")
End Sub

null