VBA范围对象需要错误

Question

无法解决此Range.cut错误。 @ Sheet5.Range（Rows（i），Rows（i + 4））。Cut Sheet61.Range（Rows（i）） 任何帮助表示赞赏。

Dim i As Long
Dim maxRow As Long

    maxRow = 120
    For i = 20 To maxRow Step 19

    Sheet5.Range(Rows(i), Rows(i + 4)).Cut Sheet61.Range(Rows(i))
next i

Answer 1

行（i）返回对活动工作表中范围的引用，因此一个或另一个范围将失败。工作表的前缀行代号：

Sheet1.Range(Sheet1.Rows(i), Sheet1.Rows(i + 4)).Cut Sheet2.Rows(i)