获取Excel中所有未隐藏的行

Question

有没有办法在VBA中获取所有行的数组，然后将它们复制到新工作表中？

我假设正确的属性是rows（index）.Hidden，但我不知道如何使用它。

有简单的方法吗？ 我的问题主要在于我无法将某些东西视为行。

Answer 1

选择可见行：

Sheets("yourSheet").Rows.SpecialCells(xlVisible).Copy
Sheets("secondSheet").Range("A1").PasteSpecial xlPasteValues

但你实际上可以将某些东西变暗为Rows，因为Rows属性返回一个Range，所以你只需将变量变暗为Range。

如果您想在以后使用时清除剪贴板：

Application.CutCopyMode=False

另请注意，在Excel中使用复制和粘贴效率很低 如果可以，您应该将一个范围分配给另一个范围。