excel - 选择具有空白行的范围单元格

Question

我一直难以弄清楚如何编写此选择范围宏以包含空白行。工作表是具有可变列数和行数的图表。这是我到目前为止所拥有的:

Sub Macro1()
    Range("A5").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
End Sub

宏中的选择步骤只会到那个空白行，不会再进一步​​(显然是因为它是空白的呵呵)。出于这个原因，我尝试调整这种不连续类型的代码，但没有运气:

Sub SelectRangeDown_Discontiguous()
    Range("A5", Range("A65536").End(xlUp)).Select
End Sub

我希望有人可以帮助我找出编写此代码的最佳方法？我在正确的道路上吗？

Answer 1

如果您使用 .End(xlToRight)或 .End(xlDown)您将在空白单元格处停下来。如果您使用 Range("A65536").End(xlUp)那么您只选择一列，但您正在获取从 A5 到最后一个填充单元格的所有内容，并绕过临时空白单元格。横向扩展后一种方法。

Sub Macro1()
    with Range("A5")
        .resize(cells(rows.count, "A").end(xlup).row - (.row - 1), _
                cells(5, columns.count).end(xltoleft).column - (.column - 1)).Copy
    end with
End Sub

使用 .Parent 会更好 Worksheet Object .

您不需要 .Select为了 .Copy它¹。

¹ 见 How to avoid using Select in Excel VBA macros了解更多摆脱依赖选择和激活来实现目标的方法。