复制并粘贴Excel错误 - 宏

Question

我有一个宏，可以将行从一个工作表复制到另一个工作表。执行复制的行是：

copyRange.SpecialCells(xlCellTypeVisible).Copy tgtAL1.Range("A100")

以下声明：

Dim tgtAL1 As Worksheet
Dim filterRange As Range
Dim copyRange As Range
Dim lastRow As Long
Set src = ThisWorkbook.Sheets("Sheet2")
Set tgtAL1 = ThisWorkbook.Sheets("Sheet2a")
lastRow = 348
Set copyRange = src.Range("A1:J350" & lastRow)

问题是，每当我将范围值更改为超过一定数量（例如300）时，excel会抱怨：

我们无法粘贴，因为复制和粘贴区域的大小不同....等等

但是，只有在愤怒值超过某个值时才会发生这种情况。我不确定确切的值，但它适用于小值，例如100,120,200,300。但是，诸如400,500,600之类的值将返回错误。 任何帮助将不胜感激。