错误1004:Excel VBA

ActiveSheet.Cells(q,1).Offset(2,1).PasteSpecial.xlPasteValues

想知道为什么我面临运行时错误1004.它提到信息不能粘贴为复制区域和粘贴区域是不一样的大小和形状。 有工作吗?

  For i = 1 To testrows For j = 1 To testcols If (range1.Cells(i, j).Value <> range2.Cells(i, j).Value) Then 'Conclude that range dimension is not the same bMatches = False i = testrows j = testcols 'Exit loops End If Next Next End If 'If ranges of two comparison sheets are the same If bMatches Then rowmatched = True k = referencesheetcols End If 'Sheets(outputsheetname).Cells(1, 1).Value = rowmatched 'Set place to paste data If (Not (rowmatched) And k = referencesheetcols) Then range2.Copy Sheets(referencesheetname).Cells(p, 1).Offset(2, 0).Select ActiveSheet.Paste p = p + 1 Sheets("Datasheet").Activate 'ActiveSheet.Cells(q, 1).Offset(2, 1).Select ActiveSheet.Cells(q, 1).Offset(2, 1).PasteSpecial xlPasteValues 'ActiveSheet.PasteSpecial xlPasteValues q = q + 1 End If Next End If Next End Sub`enter code here` 

 '..... If (Not (rowmatched) And k = referencesheetcols) Then range2.Copy Sheets(referencesheetname).Cells(p, 1).Offset(2, 0) p = p + 1 Sheets("Datasheet").Cells(q, 1).Offset(2, 1).Resize( _ range2.Rows.Count, range2.Columns.Count).Value = range2.Value q = q + 1 End If '.....