excel - 将偏移行添加到给定范围。 Excel VBA

Question

我有一个变量，它在开始时设置为给定范围。

我想要一个循环语句，它将从给定范围的末尾向下取出下一行并将其添加到该范围。

即:

myRows = Range(1:10)

    For Each cell in myRows

       If cell.Value > 2048 Then

           myRows = myRows + myRows.Offset(1, 0) ---This is where i need help---

基本上，我如何在每次循环运行时自动增加范围。

编辑:

另外我如何添加到范围的前面。以及从靶场后面带走。

即

范围 (1:10) 未隐藏 范围(11:20)已隐藏

我想在未隐藏范围中添加一个，这将远离隐藏范围，因此它:

范围 (1:11) 未隐藏 范围(12:20)已隐藏

Answer 1

您将 myRows 作为 Variant 数据类型。您需要将其声明为 Range 对象。

将 myRows 调暗为范围

然后您需要使用 Set 关键字来分配 Range 对象。

设置 myRows = Range("1:10")

然后，使用范围.Resize方法:

设置 myRows = myRows.Resize(myRows.Rows.Count+1, myRows.Columns.Count)

否则，如果您需要将 myRows 维护为 Variant 类型，请告诉我，我可以重新处理此问题。