運行時錯誤 1004 你不能在這里粘貼

Question

我的代碼在前 800 次迭代中有效（它在一個包含大約 4,000 個文件的文件夾中運行），現在它拋出了這個錯誤

“運行時錯誤'1004'：您無法在此處粘貼此內容，因為復制區域和粘貼區域的大小不同。僅選擇粘貼區域中的一個單元格或相同大小的區域，然后再次嘗試粘貼.”

這是我的代碼：（僅與錯誤相關的部分）

With sht1
        With .Cells(1, 1).CurrentRegion
            With .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
                If CBool(Application.Subtotal(103, .Columns(1))) Then
                    .Cells.Copy Destination:=.Cells(.Rows.Count + 1, 1)
                End If
                .AutoFilter
                .Cells(1, 1).Resize(.Rows.Count, 1).EntireRow.Delete
            End With
        End With
    End With

錯誤發生在這一行：

.Cells.Copy Destination:=.Cells(.Rows.Count + 1, 1)

Answer 1

原來問題是 excel 最多只允許 1,048,576 行，我試圖粘貼在它下面。

為了解決這些限制並加速我的代碼，我現在使用 PowerQuery 來導入和過濾數據。