Question

在下面的代码中，我不断收到“ Run-time error '1004': Copy method of Range class failed”；

Sub MovePC4CHL()


    ActiveSheet.AutoFilterMode = False

    Sheets("PC4 PASTE").Range("H1:H" & Range("H" & Rows.Count).End(3)(1).Row).AutoFilter 1, "CHL"

    Sheets("PC4 PASTE").Range("A1:AG" & Range("A" & Rows.Count).End(3)(1).Row).SpecialCells(xlCellTypeVisible).Copy _

            Sheets("PC4 PASTE CHL").Cells(Rows.Count, "A").End(xlUp).Offset(0)

    Sheets("PC4 PASTE").Range("A2:AG" & Range("A" & Rows.Count).End(3)(1).Row).SpecialCells(xlCellTypeVisible).Delete Shift:=xlUp

    ActiveSheet.AutoFilterMode = False


End Sub

突出显示的错误（https://i.stack.imgur.com/UmZop.png）

我在互联网上看到过类似的话题，但是没有可用的解决方案似乎可以解决我的问题。该代码仅在昨天才有效，而今天在不做任何更改之后，却给了我这个错误。

一些上下文；我有一本每天都会导入数据的工作簿，此代码过滤一列，复制过滤后的数据并将其粘贴到该工作簿中的另一个空白表中。导入的数据的结构不会更改，所有列均具有相同的标题。所有更改都是标题下的数据（因此行数每天都会增加或减少）

我是VBA的新手，为了解决这个问题，我一直在扯头发。可以提供的任何帮助或建议将不胜感激。

将过滤后的行复制到另一个工作表时发生错误1004

0 个答案: