如何使用 vba 代码复制所有可见单元格？ [复制]答案

【问题标题】：How do I copy all visible cells with vba code? [duplicate]如何使用 vba 代码复制所有可见单元格？ [复制]
【发布时间】：2019-12-01 05:02:42
【问题描述】：

我有一个大型数据集。在 A 列中，我有分支代码。我已经根据特定的分支代码过滤了我的数据。现在假设过滤我的数据后还剩下 3300 行。如果我只选择所有 F5 可见单元格，然后将数据复制并粘贴到新工作表中，它只会复制大约 300 行。（在 VBA 中以及当我手动执行时）为什么会发生这种情况？有没有办法调整我的代码，以便将所有数据复制到新工作表中？

我将在下面显示我的代码

Sheets("Open Orders").Select
Range("Table_OpenOrders[[#Headers],[Branch Plant]]").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.copy
Sheets("Copy Open Orders").Select
Range("A1").Select
Selection.PasteSpecial paste:=xlPasteValues, Operation:=xlNone, SkipBlanks 
 _
          :=False, Transpose:=False
Columns("D:F").Select
Application.CutCopyMode = False

【问题讨论】：

How to avoid using Select in Excel VBA

标签： excel vba

【解决方案1】：

这是将所有可见单元格从Open Orders 复制到Copy Open Orders 的代码。

sheets("Open Orders").Range("A1:AA100000").SpecialCells(xlCellTypeVisible).Copy
Sheets("Copy Open Orders").PasteSpecial xlPasteValues

【讨论】：

您的电子表格在过滤之前有多少行？
问题已解决，谢谢