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

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

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

ie:

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---

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

Edit:

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

ie

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

我想向未隐藏范围添加​​一个，这将远离隐藏范围，因此它：

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

你有myRows as a Variant数据类型。您需要将其声明为Range object.

Dim myRows as Range

那么你需要使用Set关键字来分配Range目的）。

Set myRows = Range("1:10")

然后，使用范围.Resize method:

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

否则，如果您需要维护myRows作为变体类型，请告诉我，我可以重新处理它。