Excel VBA粘贴特殊失败问题

当我运行下面的代码时，我得到一个错误：Range类的粘贴特殊方法失败。知道为什么会这样吗？我获取此错误的行标记为“->>”

---

您有不合格的

单元格

调用，但更容易粘贴到左上角的单元格中：

shiftLines.Cells（q，1）.PasteSpecial…

您可以使用

Resize（）

：

shiftLines.Range（shiftLines.Cells（q，1），shiftLines.Cells（q，6））.Resize（，.Cells（i，3）.Value=.Range（.Cells（i，1），.Cells（i，6））跳过内部循环.Resize（，.Cells（i，3）.Value）.Value

    For i = 2 To p
        For n = 1 To shiftop.Cells(i, 3).Value
            With shiftop
                .Range(.Cells(i, 1), .Cells(i, 6)).Copy
            End With
            ->>shiftlines.Range(Cells(q, 1), Cells(q, 6)).PasteSpecial Paste = xlPasteValues
            q = q + 1
        Next n
    q = wkb.Worksheets("Shift Lines").Range("A" & Rows.Count).End(xlUp).Row
    Next i