vba - 如何避免在循环vba中选择动态行

Question

在过去的几个月里，我一直在使用下面的代码。但我刚刚发现，因为我在工作表中选择了一个动态范围，如果我不在工作表中，我会得到选择方法范围类失败。

以下代码失败:

With w.Sheets("Sheet1")
        n = .Cells(Rows.Count, 2).End(xlUp).Row
        .Range("Y2:AI2").Copy
        .Cells(n, 25).Select
        .Range(Selection, Selection.End(xlUp).Offset(1, 0)).PasteSpecial xlPasteFormulas
        .Application.CutCopyMode = False
    End With

以下代码成功:

With w.Sheets("Sheet1")
        n = .Cells(Rows.Count, 2).End(xlUp).Row
        .Range("Y2:AI2").Copy
        Sheets("Sheet1").Select
        .Cells(n, 25).Select
        .Range(Selection, Selection.End(xlUp).Offset(1, 0)).PasteSpecial xlPasteFormulas
        .Application.CutCopyMode = False
    End With

我必须 选择再看一遍。理想情况下，我想完全避免选择/激活!

任何朝着正确方向的指导将不胜感激!

Answer 1

尝试这个

With w.Sheets("Sheet1")
    .Range("Y2:AI2").Copy
    With .Cells(.Cells(Rows.count, 2).End(xlUp).row, 25)
        .Parent.Range(.Cells, .End(xlUp).Offset(1, 0)).PasteSpecial xlPasteFormulas
    End With
    .Application.CutCopyMode = False
End With