在隐藏模式下过滤 Excel 行(VB 代码)

Question

我想在Excel中过滤大量行并复制它们的值，而无需在Excel中运行过滤器，仅在VB代码中没有在Excel中可视化操作。这个过程非常慢，我想要一个更敏捷的替代方案：

'
        xlSheet.Range("A1:Z100000").AutoFilter(1, "Criteria", , , False)
        xlSheet.Range("C1:F100000").Copy()
        xlSheet2.Range("A1").PasteSpecial(Paste:=XlPasteType.xlPasteValues, Operation:=XlPasteSpecialOperation.xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=False)
        Application.CutCopyMode = CType(False, XlCutCopyMode)
        xlSheet.Range("A1:Z100000").AutoFilter(False)
'

有什么建议吗？谢谢！

Answer 1

我想

为这个问题建议这个代码，

子Exception_Review((

应用程序.屏幕更新 = 假暗淡过滤器条件 将当前工作表名称调暗为字符串 将新文件名作为字符串 '获取当前工作表的名称 当前工作表名称 = ActiveSheet.Name范围("A2：K25"(。选择选择。自动筛选 选择。自动筛选字段：=13， 条件 1：="否" 选择。特殊单元格(xlCellTypeVisible(.选择"选择"。复制工作表。添加 ActiveSheet.Name = "异常审阅"范围("A1"(。选择活动表.粘贴Application.CutCopyMode = False单元格。选择选择。列.自动调整范围("A1"(。选择(当前工作表名称(。激活选择。自动筛选字段：=1 选择.自动筛选
范围("A1"(。选择应用程序。屏幕更新 = 真结束子