运行时错误1004 Microsoft Excel无法将数据粘贴到Excel VBA中

Question

我有两个Excel工作表。 xlVlookupSheet是一个工作表名称，而xlShtCmdb是从中复制列数据的另一个工作表。

我收到以下错误：

Runtime error 1004 Microsoft excel cannot paste the data-

它在下面的for loop的第二次迭代中出现。 addressCols是一个数组，其中包含要复制的列名。

    For index = UBound(addressCols) To 0 Step -1
        xlVlookupSheet.Columns("A:A").Insert xlToLeft
         xlShtCmdb.Columns(addressCols(index) & ":" & addressCols(index)).Copy
        xlVlookupSheet.Activate
        xlVlookupSheet.Select
        xlVlookupSheet.Range("A1").Select
        Selection.PasteSpecial Paste:=xlPasteValues  
    Next

Answer 1

问题是，从我要复制的Excel工作表中包含33767个样式。 如果样式将超过3000，它将不会从源复制到目标。因此，我删除了样式并制作了简单的普通纸即可。

您可以通过以下代码获取活动工作簿样式的数量：-

activeworkbook.styles.count

欲了解更多信息，请点击以下链接：

http://www.think-cell.com/en/support/kb/0156.shtml