VBA范围对象所需的错误

无法解决这个Range.cut错误。 @ Sheet5.Range（行（i），行（i + 4））。切片Sheet61.Range（行（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)