VBA:粘贴函数在清除粘贴范围后会导致1004错误

Question

当我尝试将一些数据从一个工作表(“导入”)复制到另一个工作表(“i”)时，我的代码出现了问题。第二个工作表中有一个范围，在复制数据之前清除。当我试图粘贴它时，我得到一个

错误1004“应用程序定义或对象定义错误”

Sub Data()
Sheets("Import").Cells.ClearContents
Sheets("TIs").Range("A2:F10000").ClearContents

Dim sPath As String 'Input file path
Dim k As Integer
Dim CopyData

CopyData = 10

For k = 1 To 1 'For now k=1
    sPath = ThisWorkbook.Path & "\InputData\Data (" & k & ").csv"                           'defines a path to csv file
    copyDataFromCsvFileToSheet sPath, ",", "Import"                                         'imports data from csv file to "Import" Sheet (this is another functions, it works perfectly)
    DataLength = Application.WorksheetFunction.CountA(Sheets("Import").Range("B:B"))        'defines last row where are imported data
    Sheets("Import").Range(Cells(CopyData + 1, 2), Cells(DataLength, 7)).Copy Sheets("TIs").Range("A2")     'copies it from one sheet to another
Next k

End Sub

在我第一次运行Clear / ClearContents函数之前，它运行得很好。在第一个版本中，这个范围还没有被清除，而且运行良好。然后，我第一次运行一个带有Clear函数的宏，从此“粘贴”函数就根本不工作了--不管是否注释了Clear / ClearContents函数。

你知道问题出在哪里吗？谢谢你的支持。

Answer 1

用户PEH解决了问题。这个问题是关于带线条的纸张的

Sheets("Import").Range(Cells(CopyData + 1, 2), Cells(DataLength, 7)).Copy Sheets("TIs").Range("A2")     'copies it from one sheet to another

正确的版本是：

Sheets("Import").Range(Sheets("Import").Cells(CopyData + 1, 2), Sheets("Import").Cells(DataLength, 7)).Copy Sheets("TIs").Range("A2")     'copies it from one sheet to another