☰

从特定工作表运行时 Excel VBA 宏出现错误

tag-icon • tag-icon microsoft-excel vba macros
从特定工作表运行时 Excel VBA 宏出现错误

我有一个宏，它自动过滤一张表上的某个范围，然后将某些列复制到另一张表。

除了我实际想要使用按钮运行宏的页面之外，宏可以在工作簿的所有工作表中正常运行。

代码如下

With newPlan.sheets("Requirements")
    newPlan.Sheets("Purchase_Orders").Range("A2:A" & lastRow).SpecialCells(xlCellTypeVisible).Copy
        .Range("H4").PasteSpecial xlPasteValues

    newPlan.Sheets("Purchase_Orders").Range("B2:B" & lastRow).SpecialCells(xlCellTypeVisible).Copy
        .Range("I4").PasteSpecial xlPasteValues

    newPlan.Sheets("Purchase_Orders").Range("J2:J" & lastRow).SpecialCells(xlCellTypeVisible).Copy
        .Range("J4").PasteSpecial xlPasteValues
End With

//Etc

当从不起作用的工作表运行时，它将复制并粘贴第一个范围，然后给出一个错误“未找到任何单元格”1004。

我可以注释掉每一行，然后下一行就可以正常复制，所以不会出现拼写错误。出于某种原因，它只能复制第一个实例。

有人知道是什么原因造成的吗？我尝试运行的工作表没有什么特别之处，除了它只包含执行不同任务的不同按钮。

相关内容